8-А

tux 2020.03.19 Карантин https://tux.org.ua/?p=3332 425 0

Теоретический и практический материал для 8-х классов на время карантина. Программирование циклов.

Содержание

Первая неделя (12)
Вторая неделя (13)
Третья неделя (14)

Первая неделя (12)

Доброе время суток!

Напоминаю, что мы продолжаем усиленно программировать циклы. Тем, кто забыл, что это такое, настоятельно рекомендую изучить соответствующую статью на этом сайте, а также прочитать §6.6 учебника по информатике.

Решим задачу.

var
  Form1: TForm1;
  s:real;
  ch,zn:real;
  i,n:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
   n:=StrToInt(Edit1.Text);
   s:=0;
   ch:=0;
   zn:=0;
   for i:=1 to n do
   begin
     // Находим числитель
     ch:=1;
     // Находим знаменатель
     zn:=zn+sin(i);
     // Вычисляем сумму
     s:=s+ch/zn;
   end;
   Label2.Caption:='s = '+FloatToStr(s);
end;

var

Form1: TForm1;

s:real;

ch,zn:real;

i,n:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=StrToInt(Edit1.Text);

s:=0;

ch:=0;

zn:=0;

for i:=1 to n do

begin

// Находим числитель

ch:=1;

// Находим знаменатель

zn:=zn+sin(i);

// Вычисляем сумму

s:=s+ch/zn;

end;

Label2.Caption:='s = '+FloatToStr(s);

end;

Напоминаю, что «сложные» формулы гораздо проще вычислять по частям, объединяя затем в одну. В данном примере нам намного удобнее было найти числитель и знаменатель отдельно.

Решим еще одну задачу.

var
  Form1: TForm1;
  n,i:integer;
  s:real;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
     n:=StrToInt(Edit1.Text);
     s:=0;
     // Иногда вместо to гораздо удобнее использовать downto
     for i:=1 to n do
       s:=sqrt(2+s);
     Label2.Caption:='s ='+FloatToStr(s);
end;

var

Form1: TForm1;

n,i:integer;

s:real;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

n:=StrToInt(Edit1.Text);

s:=0;

// Иногда вместо to гораздо удобнее использовать downto

for i:=1 to n do

s:=sqrt(2+s);

Label2.Caption:='s ='+FloatToStr(s);

end;

Иногда вместо to гораздо удобнее использовать downto.

Теперь вам нужно самостоятельно решить две задачи из сборника Абрамова: 77е и 77ж. Скриншоты скомпилированных без ошибок программ отправляйте на электропочту. Кроме этого повторить §6.6 учебника по информатике.

На скриншоте должно быть отчетливо видно поле Caption формы которое должно содержать вашу фамилию.

Срок выполнения задания — ~~пятница~~ воскресенье 20:00.

Вопросы можно задавать с помощью формы ниже, в Telegram и, конечно же, через электропочту.

Вторая неделя (13)

Доброе время суток!

На этой неделе предлагаю продолжить знакомство с циклами. Рекомендую к изучению статью на этом сайте, а также §6.7 учебника по информатике.

Думаю, что теоретического материала на этой неделе будет более, чем достаточно, каникулы все-таки 🙂

Третья неделя (14)

Доброе время суток!

Предыдущая неделя в силу того, что она была «каникулярная» являлась несколько облегченной. Теперь давайте поработаем в полную силу 🙂
Итак, на данный момент мы знаем три вида циклов: арифметический, итерационный с предусловием и итерационный с послеусловием.

Но прежде чем мы продолжим хочу напомнить несколько особенностей итерационных циклов.

Между операторами REPEAT и WHILE существует три основные различия:

В операторе REPEAT проверка условия выхода выполняется в конце, а не в начале цикла, так что тело цикла выполняется по крайней мере один раз.
В операторе REPEAT условие выхода удовлетворяется, если выражение истинно, а в операторе WHILE — если ложно.
Между служебными словами REPEAT и UNTIL можно поместить несколько операторов, а в операторе WHILE тело цикла должно содержать только один, возможно составной, оператор.

Теперь составим программу определения наибольшего числа Фибоначчи, непревосходящего заданного натурального М.
Рассмотрим решения задачи о числах Фибоначчи несколькими способами.

Числа Фибоначчи образуют последовательность, u₁, u₂, u₃, … элементы которой определяются рекуррентными соотношениями u_n+2=u_n+1+u_n (n=0, 1, 2), u₀=0, u₁=1.
Например: для M=15 числа будут следующие — 0, 1, 1, 2, 3, 5, 8, 13.

Решим задачу с помощью цикла while.

var
  Form1: TForm1;
  m,un,un1,un2:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
     m:=StrToInt(Edit1.Text);
     un:=0;
     un1:=1;
     un2:=1;
     while un2<=m do
     begin
       un2:=un1+un;
       un:=un1;
       un1:=un2;
     end;
     Label2.Caption:='f = '+IntToStr(un);
end;

var

Form1: TForm1;

m,un,un1,un2:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

un:=0;

un1:=1;

un2:=1;

while un2<=m do

begin

un2:=un1+un;

un:=un1;

un1:=un2;

end;

Label2.Caption:='f = '+IntToStr(un);

end;

А теперь с помощью цикла repeat

var
  Form1: TForm1;
  m,un,un1,un2:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
     m:=StrToInt(Edit1.Text);
     un:=0;
     un1:=1;
     repeat
       un2:=un1+un;
       un:=un1;
       un1:=un2;
     until un2>m;
     Label2.Caption:='f = '+IntToStr(un);
end;

var

Form1: TForm1;

m,un,un1,un2:integer;

implementation

{$R *.frm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

un:=0;

un1:=1;

repeat

un2:=un1+un;

un:=un1;

un1:=un2;

until un2>m;

Label2.Caption:='f = '+IntToStr(un);

end;

После изучения теоретического материала и повторения §6.7 учебника по информатике вам нужно выполнить практическую работу №12 из учебника (стр. 220). Это, так сказать, «очень классная работа» 🙂
А также решить задачу 77д из сборника Абрамова с помощью циклов while и repeat (с помощью арифметического цикла она уже была решена ранее).

Скриншоты скомпилированных без ошибок программ отправляйте ТОЛЬКО НА ЭЛЕКТРОПОЧТУ. На скриншоте должно быть отчетливо видно поле Caption формы которое должно содержать вашу фамилию.

Срок выполнения задания — пятница 20:00.

Вопросы можно задавать с помощью формы ниже, в Telegram (c 8⁰⁰ до 16⁰⁰) и, конечно же, через электропочту.

pascal, карантин, программирование

9-А, В

#:

8-А

Содержание

Первая неделя (12)

Вторая неделя (13)

Третья неделя (14)

Похожие материалы:

Оставить комментарий

Навигация

Социальные кнопки