31. Линейные алгоритмы Примеры простых инейных прарамм Натисать программу, которая оцисывает как вещественные переменные пводит клавматуры скорость " преми равиомерного движения…
31. Линейные алгоритмы Примеры простых инейных прарамм Натисать программу, которая оцисывает как вещественные переменные пводит клавматуры скорость " преми равиомерного движения тела, рассчитытает пазодит на экран мичение расстолння пройденного телом за это премя, с 4 знаками после запопой Program April; hegin var vA,stread. read(v.); 2. Написать программу, которан описывает целую переменную 1С (температура по Цельсню) и вещественные переменные tR, IF (температуры по Ресмору и Фаренгейтy) Программа пподит t с клавиатуры, расечитывает и выводит с одним знаком после запятой по формулам tR 081CtF 9C/5 32 writeln('57:4); end. Program Pri2. var tR,F:real; tC:integer. begin rend((C); tR: 0.8-C tF: 9*1C/5+32; writeln('tR=",IR:5:1, 3 Написать программу, которая описывает как целые переменные и вводит с клавнатуры длины сторои прямоугольника (а и b), расочитывает и выводит на экран значение периметра (переменная р вещественного типа) с двумя знаками после запятой "F=",tF:5:1); end. Program Pr13; var p:real; n,b:integer; begin read(a,b); p:=2"(a+b); 4. Написать программу, в которой описываются вещественные переменные xy.d. вводит с клавиатуры координаты точки х.у, рассчитывает расстоянне d от нее до точки (13) и выводит на экран значение d с двумя знаками после запитой. writein('p',p:5:2); end. Program Pr14; var x,y,d:real; begin read(x,y); writeln('d='d:5:2); d:=sqrt(sqr(x-1)+sqr(y-3)); end. Program Pr15; 5. Вычислите значение выражения - V2 по заданным а, b, с. var a,b,c:real; begin read(a,b,c); б Вычислить гипотенузу прямоугольного треугольника с и величины двух прилежащих к ней углов а и В по известным катетам а н b. Воспользуемся известными формулами: writeln(((a+b)/(a-b) +sqrt(c/2)): 5:2); end, Program Pr15; var a,b,c, alf, bet: real; begin C= va + rend(a,b); c:=sqrt(a*atb*b); ce - arcty(-) - arcty alf:=arctan(a/b); bet: =arctan(b/a); Угол выразим в градусах. writeln('гипотенуза =', c:5:2); writeln('yrол = all180/pi:2:1); writeln('yгол b= ', bet*180/pi:2:1); 7. Вычисление arcos(x) Te. нужно пайти такой угодчто cos(a)x,к tga an сова end. Program Prim2; var x,alfa,grad: real; begin write("Внедите значение косинуса "); read(x);
Ваш запрос включает описание и написание нескольких программ на языке Pascal, которые выполняют различные вычисления. Давайте рассмотрим каждую из программ по отдельности и исправим ошибки, если такие имеются.
Программа 1: Скорость равномерного движения
program April;
var
v: real; // Скорость
t: real; // Время
s: real; // Расстояние
begin
write('Введите скорость (м/с): ');
readln(v);
write('Введите время (с): ');
readln(t);
s := v * t; // Расчет расстояния
writeln('Расстояние: ', s:0:4); // Вывод результата с 4 знаками после запятой
end.
Программа 2: Перевод температур
program Pri2;
var
tC: integer; // Температура по Цельсию
tR, tF: real; // Температуры по Реомюру и Фаренгейту
begin
write('Введите температуру по Цельсию: ');
readln(tC);
tR := 0.8 * tC; // Формула перевода в Реомюр
tF := (9 * tC / 5) + 32; // Формула перевода в Фаренгейт
writeln('Температура по Реомюру: ', tR:0:1);
writeln('Температура по Фаренгейту: ', tF:0:1);
end.
Программа 3: Периметр прямоугольника
program Pr13;
var
a, b: integer; // Стороны прямоугольника
p: real; // Периметр
begin
write('Введите длину стороны a: ');
readln(a);
write('Введите длину стороны b: ');
readln(b);
p := 2 * (a + b); // расчет периметра
writeln('Периметр: ', p:0:2); // Вывод результата с 2 знаками после запятой
end.
Программа 4: Расстояние до точки
program Pr14;
var
x, y, d: real; // координаты и расстояние
begin
write('Введите координаты точки (x, y): ');
readln(x, y);
d := sqrt(sqr(x - 1) + sqr(y - 3)); // Расчет расстояния до точки (1, 3)
writeln('Расстояние до точки (1, 3): ', d:0:2); // Вывод результата с 2 знаками после запятой
end.
Программа 5: Гипотенуза прямоугольного треугольника
program Pr15;
var
a, b, c: real; // катеты и гипотенуза
begin
write('Введите катеты a и b: ');
readln(a, b);
c := sqrt(sqr(a) + sqr(b)); // расчет гипотенузы
writeln('Гипотенуза: ', c:0:2); // Вывод результата с 2 знаками после запятой
end.
Программа 6: Вычисление углов
program Pr16;
var
a, b, alf, bet: real; // катеты и углы
begin
write('Введите катеты a и b: ');
readln(a, b);
alf := arctan(a / b); // Угол a в радианах
bet := arctan(b / a); // Угол b в радианах
writeln('Угол alf = ', alf * 180 / pi:0:1); // перевести в градусы
writeln('Угол bet = ', bet * 180 / pi:0:1);
end.
Программа 7: Нахождение угла по значению косинуса
program Prim2;
var
x, alpha, grad: real; // значение косинуса и угол
begin
write('Введите значение косинуса: ');
readln(x);
alpha := arccos(x); // расчет угла в радианах
grad := alpha * 180 / pi; // перевод в градусы
writeln('Угол в градусах: ', grad:0:2);
end.
Каждая программа имеет свои задачи: от расчета расстояний до преобразований единиц измерения и работы с геометрией. Если вам нужны дополнительные пояснения по любой из программ или их функциональности, дайте знать!
