Примеры на Pascal

Пример 1.

Написать программу для алгоритма двух чисел.

Program delenie;

Var a,b,x: Real;

Begin

Writeln (‘Введите два числа: ’);

ReadLn (a,b);

If b=0 then Writeln (‘На ноль делить нельзя!!!’) Else

Begin

x:=a/b;

Writeln (‘Частное равно ’,x:0:3);

End;

End.

Пример 2.

Написать программу, которая запрашивает действие(+ или -), а затем числа к которым применяются это действие и выдает результат данного действия.

Program Calculator;

Var Deistvie: Char;

Chislo1, Chislo2: Integer;

Begin

Writeln (‘Введите действие (+/-): ’);

ReadLn (Deistvie);

Case Deistvie of

‘+’: begin

Writeln (‘Введите два слогаемых: ’);

ReadLn (Chislo1, Chislo2);

Result:= Chislo1+Chislo2;

Writeln (‘Сумма двух чисел равна ’, Result);

End;

‘-’: begin

Writeln (‘Введите уменьшаемое и вычитаемое: ’);

ReadLn (Chislo1, Chislo2);

Result:= Chislo1-Chislo2;

Writeln (‘Разность двух чисел равна ’, Result);

End;

End.

Пример3.

Написать программу, которая запрашивает начальное и конечное число, а затем выдает все числа по порядку через запятую.

Program Shisla;

Var nach, con, i: Integer;

Begin

Writeln (‘Введите начальное число: ’);

ReadLn (nach);

Writeln (‘Введите конечное число: ’);

ReadLn (con);

For i:= nach To con Do

Begin

Write(i);

If i
End;

End.

. pascal программа которая запрашивает действие + или - а затем числа к которому применяется это действие и выдает результат данного действия
. pascal программа которая запрашивает действие + или - а затем числа к которому применяется это действие и выдает результат данного действия
Комментирование и размещение ссылок запрещено.