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: Скорость равномерного движения ```pascal 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: Перевод температур ```pascal 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: Периметр прямоугольника ```pascal 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: Расстояние до точки ```pascal 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: Гипотенуза прямоугольного треугольника ```pascal 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: Вычисление углов ```pascal 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: Нахождение угла по значению косинуса ```pascal program Prim2; var x, alpha, grad: real; // значение косинуса и угол begin write('Введите значение косинуса: '); readln(x); alpha := arccos(x); // расчет угла в радианах grad := alpha * 180 / pi; // перевод в градусы writeln('Угол в градусах: ', grad:0:2); end. ``` Каждая программа имеет свои задачи: от расчета расстояний до преобразований единиц измерения и работы с геометрией. Если вам нужны дополнительные пояснения по любой из программ или их функциональности, дайте знать!