Практическое задание n9 6 Контрольная работа по Turbo Pascal 7.0

1. Составьте программу на существование треугольника со сторонами а, b и с Условие

существования треугольника известно из геометрии: сумма двух любых сторон должна быть больше третьей.

Program KONTRAB; Vara, b,c: real; Begin Writeln (‘ введите длины трех сторон треугольника ’); Readln (а, b, с); Writeln (‘ треугольник со сторонами ’, а, b, с); IF (а + b > с) and (b + с >b) Then writeln (^1 существует ’) Else writeln (‘ не существует ’); Readln; End.
Откомпилируйте, запустите программу на выполнение:
а) введите числа 10 15 20, просмотрите результат;
б) введите числа 10 15 30, просмотрите результат.
Сохраните программу на носителе под именем KONTRAB,
создайте .ехе - файл.
2. Составьте программу для вычисления а^п
Program KONTRAB1;
Var а, b: real; с, n: integer;
Begin
Writeln (^1 введите a - основание степени, a = ’);
Readln (a);
Writeln (^1 введите целое n - показатель степени, n = ’);
Readln (n);
b: =1;
For с: = 1 to n do
b: =b * a;
Writeln(‘b = ’ ,b);	I
Readln;
End.

Откомпилируйте и запустите программу на выполнение: а) Задайте а = 5, п = 2, просмотрите результат;

б) Задайте а = 12, п = 2, просмотрите результат.

Сохраните программу на носителе под именем KONTRAB1 и создайте .ехе-файл.

Program KONTRAB2;

Var x, у: real;

Begin

X: =0;

Writeln (‘ x ’: 10, ’ sin x ’: 10); Whilex< = 3.14do Begin

Y:=sin(x);

Writeln(x: 10,’ y:7:5); X: = x + 0.1;

End;

Readln;

End.

Откомпилируйте и запустите программу на выполнение, просмотрите результат. Сохраните программу на носителе под именем KONTRAB2, создайте ехе-файл.