Знакомство с языком Паскаль
1. Написать
на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего
арифметического.
program 12
var a,b,c,d : integer; e: real;
begin
readln(a,b,c,d);
e:=(a+b+c+d)/4;
writeln(e)
end.
2. Написать
программу для вычисления дискриминанта d квадратного уравнения ax2
+ bx + c
= 0. Разработать тесты проверки
правильности работы программы для вариантов, когда d>0, d=0 и d<0.
program 666
var a,b,c,d :real;
begin
readln(a,b,c);
d:=b*b-4*a*c;
writeln(d)
end.
тест для проверки правильности работы программы:
d=0:
b=-4; a=2; c=2;
d>0:
b=5; a=3; b=1;
d<0:
b=1; a=4; c=2.
3. Написать
программу для вычисления площади кольца, внешний радиус которого
равен R1, а внутренний – R2 (R1>R2).
program god
var R1, R2, S: real;
begin
readln(R1, R2);
S:= 3.14*(R1*R1 - R2*R2);
writeln(S)
end.
|
Комментариев нет:
Отправить комментарий