Задача 1
Треугольник задан длинами сторон. Найти углы треугольника:
; 
;
Работа программы
Вводятся исходные стороны треугольника N,K,L с клавиатуры, после чего выводятся на экран углы треугольника A,B,C.
Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 1
Таблица 1 – Назначение переменных
| Переменная | Тип | Назначение |
| N,K,L | real | Вещественные числа,стороны треугольника,вводимые с клавиатура |
| P | real | Полупериметр треугольника |
| A,B,C | real | Углы получившегося треугольника |
Блок – схема алгоритма программы
| начало |
| Ввод исходныхсторон треугольника N,K,L |
| Расчет углов треугольника по заданным сторонам |
| Вывод сторон треугольникаA,B,C |
| Конец |
Рис. 1 Блок схема алгоритма программы
Текстпрограммы
program treygolnik;
uses crt;
var n,k,l,p,A,B,C: real;
begin
write('Vvedite storony treugolnika a ');
read(n);
write('Vvedite storony treugolnika b ');
read(k);
write('Vvedite storony treugolnika c ');
read(l);
p:=(n+k+l)/2;
A:=(2*arctan(sqrt(p-k)*(p-l)/p*(p-n))*180/pi);
B:=(2*arctan(sqrt(p-n)*(p-l)/p*(p-k))*180/pi);
C:=(2*arctan(sqrt(p-n)*(p-k)/p*(p-l))*180/pi);
writeln('Ygol a raven ',a:5:4);
writeln('Ygol b raven ',b:5:4);
writeln('Ygol c raven ',c:5:4);
end.
Тестирование
Вводим 3 числа(стороны треугольника): (1) находим полупериметр треугольника, (2) вычисляем углы треугольника(А,В,С), (3) выводим результат.
1:
Введите сторону треугольника а=5
Введите сторону треугольника в=4
Введите сторону треугольника а=6
Находим полупериметр р
Вывод данных
Угол А=95.8
Угол В=86.1
Угол С=86.1
Задача 2
Написать программу вычисления стоимости покупки нескольких тетрадей и карандашей. Предполагается, что во время работы программы пользователь будет вводить данные о каждой составляющей покупки в отдельной строке: сначала цену, затем количество.
Работа программы
Вводится стоимость, количество карандашей и тетрадей. После чего программа выводит стоимость вашей покупки.
Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 1
Таблица 1 – Назначение переменных
| Переменная | Тип | Назначение переменной |
| a, с | Real | Вещественные числа, стоимость карандаша и тетради, вводятся с клавиатуры |
| b, d | Real | Вещественные числа, количество карандашей и тетрадей, вводятся с клавиатуры |
| r, t | Real | Вещественные числа, стоимость всех карандашей и тетрадей |
| y | Real | Вещественные числа, общая стоимость покупки |
Блок – схема алгоритма программы
| начало |
| Ввод цены,количества карандашей и тетрадей |
| Находим стоимость карандашей и тетрадей,потом находим общую стоимость |
| Вывод Стоимости покупки (Sum, M, P) |
| Конец |
Текстпрограммы
program stoimost;
uses crt;
var a,b,c,d,e,r,t,y: real;
begin
write('Vvedite cenu tetradi ');
read(a);
write('Vvedite kollichestvo tetradei ');
read(b);
write('Vvedite cenu karandasha ');
read(c);
write('Vvedite kollichestvo karandashei ');
read(e);
r:=a*b;
t:=c*e;
d:=r+t;
writeln('Stoimost vashei pokypki sostavila ', d:5:2);
end.
Тестирование
Вводим количество, стоимость карандашей и тетрадей: (1) находим стоимость тетрадей и карандашей (2)находим общую стоимость карандашей и тетрадей (3) вывод данных
1:
Введите стоимость тетради a=5
Введите количество тетрадей в=2
Введите стоимость карандаша с=4
Введите количество карандашей d=1
Стоимость тетрадей r=10
Стоимость карандашей t=4
Стоимость покупки y=14
Задача 3
Написать программу вычисления объема цилиндра.
Работа программы
Вводится высота, радиус цилиндра после чего вычисляется его объем данного.
Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 1
Таблица 1 – Назначение переменных
| Переменная | Тип | Назначение переменной |
| r,h | Real | Радиус и высота цилиндра вещественные числа вводимые с клавиатуры |
| V | Real | Вещественное число объем цилиндра |
Блок – схема алгоритма программы
| начало |
| Ввод радиуса и высоты цилиндра |
| Находим объем цилиндра V |
| Вывод Объема цилиндра (Sum, M, P) |
| Конец |
Текстпрограммы
program ob;
var r,h,v: real;
begin
write('Vvedite vusoty cilindra ');
read(h);
write('Vvedite radius cilindra ');
read(r);
v:=pi*r*r*h;
writeln('Obem cilindra raven ',v:5:4);
end.
Тестирование
Вводим высоту(h) и радиус(r) цилиндра после чего программа находит его объем(v).
1:
Введите радиус цилиндра r=5
Введите высоту цилиндра h=10
Объем цилиндра v=785.3982
Задача 4
Написать программу вычисления стоимости поездки на автомобиле на дачу (туда и обратно). Исходными данными являются: расстояние до дачи (в километрах); количество бензина, которое потребляет автомобиль на 100 км пробега; цена одного литра бензина.
Работа программы
Вводится цена бензина, расстояние до дачи, расход бензина на 100 км. После чего программа рассчитывает стоимость затрат на бензин.
Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 1
Таблица 1 – Назначение переменных
| Переменная | Тип | Назначение переменной |
| a,b,c | Real | Расстояние до дачи, расход бензина на 100 км,цена бензина за 1 литр. Вещественные числа вводятся с клавиатуры |
| q,w,e | Real | Расстояние до дачи \100, расчет количества бензина затраченного на поездку, стоимость бензина на поездку. Вещественные числа |
| r | Real | Ваши затраты на бензин. Вещественное число. |