1. Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического.
Program Arina
Var x, y, z, w, s:integer;
Begin
ReadLn(x,y,z,w);
s:=(x+y+z+w)/4;
WriteLn(s);
End.
2. Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0.
Program Rusinova
Var a,b,c,x:integer; x1, x2:real;
Begin
WriteIn('Введите коэффициенты')
ReadLn(a,b,c);
d:=b*b-4*a*c;
If (d<0) Then WriteLn('Решений нет')
Else If (d=0) Then
Begin
x1:=-b/(2*a)
WriteLn('x=',x1)
End
Else If (d>0) Then
Begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1,'x2=',x2);
end;
End.
3. Написать программу для вычисления площади кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2).
Program Aleksandrovna
Var R1,R2:real;
Begin
ReadLn(R1, R2);
R1:=3.14*R1*R1
R2:=3.14*R2*R2
If R1>R2 Then Write ('Площадь кольца', R1-R2)
Else Write ('Введены некорректные значения')
End.
Program Arina
Var x, y, z, w, s:integer;
Begin
ReadLn(x,y,z,w);
s:=(x+y+z+w)/4;
WriteLn(s);
End.
2. Написать программу для вычисления дискриминанта d квадратного уравнения ax2 + bx + c = 0. Разработать тесты проверки правильности работы программы для вариантов, когда d>0, d=0 и d<0.
Program Rusinova
Var a,b,c,x:integer; x1, x2:real;
Begin
WriteIn('Введите коэффициенты')
ReadLn(a,b,c);
d:=b*b-4*a*c;
If (d<0) Then WriteLn('Решений нет')
Else If (d=0) Then
Begin
x1:=-b/(2*a)
WriteLn('x=',x1)
End
Else If (d>0) Then
Begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1= ',x1,'x2=',x2);
end;
End.
3. Написать программу для вычисления площади кольца, внешний радиус которого равен R1, а внутренний – R2 (R1>R2).
Program Aleksandrovna
Var R1,R2:real;
Begin
ReadLn(R1, R2);
R1:=3.14*R1*R1
R2:=3.14*R2*R2
If R1>R2 Then Write ('Площадь кольца', R1-R2)
Else Write ('Введены некорректные значения')
End.
Арина!
ОтветитьУдалитьВ первой задаче среднее значение, скорее всего, будет не целым.
Во второй задаче корни искать не надо!
Успехов!
Татьяна Геннадьевна