Примеры программ, написанных на языке Pascal

Примеры программ, написанных на языке Pascal

1. Программа, суммирующая два числа

program summa;

var a, b, sum: integer;

Begin

Write( 'Введите слагаемыe' );

Readln( a, b );

sum:=a+b;

Writeln( 'Сумма чисел равна ', sum );

End.

2. Программа, высчитывающая дискриминант

program diskr;

var a, b, c, d: real;

Begin

Write( 'Введите коэффициенты a, b, c' );

Readln( a, b, c );

d:=b*b-4*a*c;

Writeln( 'Дискриминант равен ', d );

End.

3. Программа, высчитывающая периметр и площадь прямоугольника

program pryam;

var a, b, per, plo: integer;

Begin

Write( 'Введите длину и ширину' );

Readln( a, b );

per:=(a+b)*2;

plo:=a*b;

Writeln( 'Периметр прямоугольника равен ', per );

Writeln( 'Площадь прямоугольника равна ', plo );

End.

4. Программа, вычисляющая среднее арифметическое трех чисел

program srednee;

const n=3: real;

var a, b, c, sr: real;

Begin

Write( 'Введите три числа' );

Readln( a, b, c );

sr:=(a+b+c)/n;

Writeln( 'Среднее арифметическое равно ', sr );

End.

5. Задача

Площадь квадрата равна 64. Найти его сторону.

Решение: сторона квадрата есть корень квадратный из его площади. Корень в Паскале находится при помощи оператора sqrt();

program storona;

var s, a: real;

Begin

Write( 'Введите площадь квадрата' );

Readln( s );

a:= sqrt( s );

Writeln( 'Сторона квадрата равна ', a );

End.

6. Задача

Найти площадь треугольника по трём его сторонам.

Решение: площадь треугольника в данном случае ищут по формуле Герона.

Выглядит она так: .

В ней p – это полупериметр (т.е. периметр, разделённый на 2), a, b и c – стороны треугольника.

Напишем программу:

program plo_tre;

var a, b, c, p, s: real;

Begin

Write( 'Введите стороны треугольника' );

Readln( a, b, c );

p:=a+b+c;

p:=p/2;

s:= sqrt( p*(p-a)*(p-b)*(p-c) );

Writeln( 'Площадь треугольника равна ', s );

End.

Заметим, что переменная для изменения значения может обращаться и к самой себе, что мы и видим в строке p:=p/2;. Её значение на данном этапе сохранено, поэтому такое действие возможно.

Дата добавления: 2015-08-29