Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Тема урока: Подпрограммы-процедуры

Цель Д: ввести понятие подпрограммы-процедуры, синтаксис объявления процедуры в программе, актуализировать знания определений формальных, фактических, локальных, глобальных переменных, рассмотреть примеры процедур с параметрами и без них, научить определять, что будет выведено на экран после выполнения программы, содержащей процедуру, научить составлять программы с использованием процедуры.

Р:

В:

Тип урока:

Ход уроку

I. Организационный момент

II. Проверка домашнего задания (проверить д/з путем проведения кратковременной с/р)

Program obmen;

Var

x, y:real;

Procedure rec(Var a, b:real);

Var

c:real;

Begin

c:=a;

a:=b;

b:=c;

End;

Begin

Writeln('vvod x, y');

Readln(x, y);

rec(x, y);

Writeln(x:8:2,y:8:2);

End.

(Обсудим, что в данной задачи будет служить параметрами-значениями, а что параметрами-переменными)

III. Отработка ЗУНов, решение задач

- процедуру

Program obmen;

Var

x, y,t, r:integer;

Procedure rec(a:integer;Var S:integer);

Var

i, t:integer;

Begin

S:=0; i:=1;

While a>0 do

Begin

t:=a mod 10;

S:=S+t;

a:=a div 10;

End;

end;

Begin

Writeln('vvod x, y');

Readln(x, y);

rec(x, t);

rec(y, r);

if t>r then Writeln ('summa cifr chisla x > summi cifr chisla y') else

if t<r then Writeln ('summa cifr chisla x < summi cifr chisla y')

else Writeln ('summa cifr chisla x = summi cifr chisla y');

readln;

End.

IV. Подведение итогов урока

V. Постановка домашнего задания

(Обсудим, что в данной задачи будет служить параметрами-значениями, а что параметрами-переменными)