|
Примеры программ, написанных на языке 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; просмотров: 35 | Нарушение авторских прав
<== предыдущая лекция | | | следующая лекция ==> |
Филиал учреждения образования | | | Простейшей моделью молекулярно-кинетической теории является модель идеального газа. В кинетической модели идеального газа молекулы рассматриваются как идеально упругие шарики, взаимодействующие |