Домашнее задание:

 Четверг,

 3 апреля 2014 г.

Домашнее задание:

Практическое задание №20

Тема: Знакомство с языком Паскаль
    
1. 

Написать на языке Паскаль программу ввода четырёх целых чисел и вычисления их среднего арифметического. 

Program one
Var a,b,c,d,e:integer;
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 two
Var a,b,c,x:integer; x1, x2:real;
Begin
  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 three
Var R1,R2:real;
Begin
    ReadLn(R1, R2);
    R1:=3.14*R1*R1
    R2:=3.14*R1*R2
    If R1>R2 Then Write ('Площадь кольца', R1-R2, 'радиан')
    Else Write ('Введены некорректные значения')
End.