Процедуры Опции

[Sir-j]

Люди помогите!! Где можно найти как решать задачи через процедуры!!! не понимаю!!

[Orlangur]

http://books.dore.ru/bs/f1bid2138.html - Здесь очень хорошая книга. (М. Сухарев - "Turbo Pascal 7.0".
Я по ней учил (и сейчас учу) Pascal. Процедуры понял сразу. Так, что советую.
Напишу один пример, по которому я понял процедуры сразу.
Программа на вычисление корней квадратного уравнения:

Program Roots1;
Uses
Crt;
Var
a, b, c: Real; {Переменные для хранения коэффициентов}
D, x1, x2: Real; {Переменные для дискриминанта и корней ур-ния}
Procedure Writeroots; {Заголовок процедуры, имя процедуры - Writeroots}
 begin
 D := b*b-4*a*c;
 if D < 0 then writeln('Уравнение корней не имеет')
  else if D = 0 then 
    begin
     x1 := -b/(2*a);
     Writeln('Уравнение имеет один корень: ');
     WriteLn('x = ', x1);
     end
     else
       begin
        x1 := (-b + sqrt(D))/(2*a);
        x2 := (-b - sqrt(D))/(2*a);
        Writeln(Уравнение имеет два корня: ');
        WriteLn('x1 = ', x1);
        WriteLn('x2 = ', x2);
        end;
     end;
Begin
ClrScr;
a := 2;
b := 12;
c := 11;
Writeroots;
a := 1;
b := 5;
c := 200;
Writeroots;
ReadKey;
End.

Сообщение отредактировано: Orlangur - 19.11.2005 22:22