Практическая работа

по темам

Линейный алгоритм, Алгоритм с ветвлениями, Циклический
алгоритм

Линейный
алгоритм


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;

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. Написать программу вывода на экран всех четных чисел
из диапазона от А до В кратных трем (АВ).

1

Ответы и объяснения

2014-02-06T19:59:02+04:00
1. Программа для решения квадратного уравнения, где a=1