1.
Составить программу на языке
программирования Pascal, которая выясняет,
существует ли произвольный треугольник со
сторонами a, b, c и в случае его
существования вычислить площадь по формуле
Герона. (,
где
PROGRAM geron;
var a,b,c,p,S:real;
BEGIN
write('Введите стороны треугольника');
readln(a,b,c);
if (a+b>=c) and (a+c>=b) and (b+c>=a)
then
begin
p:=(a+b+c)/2;
s:=sqrt(p(p-a)*(p-b)*(p-c));
end
else writeln('Треугольник с
данными сторонами не существует');
END.
2. Дан треугольник со
сторонами a, b, c. Составить программу,
которая проверяет условие существования
треугольника и определяет вид треугольника
(равнобедренный, прямоугольный,
разносторонний).
PROGRAM geron;
var a,b,c:real;
BEGIN
write('Введите стороны треугольника');
readln(a,b,c);
if (a+b>=c) and (a+c>=b) and (b+c>=a) then
begin
if (a=b) or (a=c) or
(b=c) then writeln('Равнобедренный');
if (a*a+b*b=c*c) or
(b*b+c*c=a*a) or (a*a+c*c=b*b)
then ('Прямоугольный');
if (a<>b) and (a<>c) and
(b<>c) then writeln('Разносторонний');
end
else writeln('Треугольник
с данными сторонами не существует');
END.
Циклические программы
3. Составить
программу, которая находит множество
значений функции y=x2 на отрезке
[2;8] с шагом 1.
PROGRAM funck;
var x,y:integer;
BEGIN
writeln('Таблица значений функции:');
for x:=2
to 8 do
begin
y:=x*x;
writeln('x=',x,' y=',y);
end;
END.
4. Напечатать таблицу
перевода температуры из градусов
по шкале Цельсия в градусы по шкале
Фаренгейта для значений температуры от 15°
до 30oС (Формула перевода из
градусов Цельсия в градусы Фаренгейта: F=
1,8*С+32).
PROGRAM
perevod;
var C:integer; F:real;
BEGIN
write('Таблица перевода градусов Цельсия в
градусы Фаренгейта');
for
C:=15
to 30 do
begin
F:=1.8*C+32;
writeln('Сумма =
',s:5:2);
END.
5. Напишите программу на языке
программирования (или составьте алгоритм).
Дано натуральное число n. Вычислите сумму
первых n слагаемых:
.
,
где
.
