Разработка программ, содержащих оператор (операторы) цикла. Урок 58

1.

15 апреля 2024 г.
Классная работа
Практическая работа № 7.
Разработка программ,
содержащих оператор
(операторы) цикла.
Урок 58

2.

I. Теоретическая часть:
1) Определи значения переменных после
выполнения фрагментов программ
А)
Б) a:=53;
b:=14;
if a<=b then x:=a+b
else x:=2*a-4*4;

3.

2. Найди соответствие
Var
№1
x, y: integer;
begin
y:=0;
x:=10;
while x>0 do
begin
x:=x-2;
y:=y+x
end;
writeln (‘y=’, y);
end.
А
Программа
линейной
структуры
№2
program zadacha;
var
x,y:real;
begin
readln(x);
if x<=10 then y:=210
else y:=x*x*x;
writeln(‘при х=’, х,
'y=', у)
end.
Б
Программа
циклической
структуры
№3
program zadacha;
var x1, x2, y1,y2,c:real;
begin
writeln (‘Введите
значения x1, y1,x2,y2’);
readln(x1, y1,x2,y2);
c:=sqrt((x2-x1)*(x2-x1)+
(y2-y1)*(y2-y1));
writeln(‘расстояние =’,с)
end.
В
Программа,
содержащая конструкцию
«ветвление»

4.

3.

5.

II. Компьютерный практикум

6.

II. Компьютерный практикум
4)
Составить программу по фрагменту блок – схемы.
Организовать вывод значения переменной с.
Результат сохраните в
собственной папке под
именем ПР7_4_Фамилия.

7.

II. Компьютерный практикум
Задание 5 Компьютер в первую секунду печатает на
экране 1, во вторую – число 12, в третью – число 23. То
есть, в каждую следующую секунду – на 11 больше, чем в
предыдущую. В какую секунду впервые появится число,
делящееся на 2009? Напишите программу на языке
программирования Паскаль. Результат сохраните в
собственной папке под именем ПР7_5_Фамилия.