Практическая работа
по темам
Линейный алгоритм, Алгоритм с ветвлениями, Циклический
алгоритм
Линейный
алгоритм
1. Объясни, что будет напечатано программой
Program e1;
Var b,c,d:real;
Begin
Read (b,c);
D:=sgrt(sgr(b) – 4*c);
Writeln (`x1=` ,(-b+d)/2, ` x2=` , (-b-d)/2
End
2. Написать программу, которая вычисляет площадь
равностороннего треугольника, периметр которого равен p.
Алгоритмическая
структура «ветвление»
1. Объяснить, что будет напечатано программой, если в
качестве исходных данных будет введено значение: 0, 5, 10
Program e1;
Var x,y: byte;
Begin
Read(x);
If x<5then y:=1 else y:=2;<br>
If x>5 then y:-3 else y:=4;
Writeln (`y=`,y);
End
2. Написать программу, которая определяет, является ли
заданное целое число четным.
Алгоритмическая
структура «цикл»
1. Объяснить, что будет напечатано программой
Program e1;
Var x: byte;
Begin
For x:=1 to 5 do
Writeln (x+1);
End
2. Написать программу вывода на экран всех четных чисел
из диапазона от А до В кратных трем (АВ).