понедельник, 7 апреля 2014 г.

Знакомство с языком Паскаль

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.

1 комментарий:

  1. Арина!
    В первой задаче среднее значение, скорее всего, будет не целым.
    Во второй задаче корни искать не надо!
    Успехов!
    Татьяна Геннадьевна

    ОтветитьУдалить