Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2013
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 1
з дисципліни
“Основи програмування та алгоритмічні мови”
Дана сторона рівностороннього трикутника. Знайти його площу.
За умовою задачі, нам дається довжина сторони трикутника, а так як трикутник рівносторонній, то всі сторони рівні. Отже в даному випадку найдоцільніше буде шукати його площу за формулою Герона: .
Де р – півперимитер, р=3\2*а.
Блок - схема
Текст програми
Program lab_1;
uses crt; {Plug crt}
var
povtor:char; {zminna dly tcukla povtora}
S, {ploh4a}
p, {pivperumetr}
a:real; {ctorona}
begin
povtor:='y';
While povtor='y' do
begin
write('Enter a, a=');
readln(a);
p:=a*3/2;
S:=sqrt((p-a)*(p-a)*(p-a)*p);
writeln('S=',S:1:2);
writeln;
povtor:='r';
while (((povtor<>'y') and (povtor<>'Y')) and ((povtor<>'n') and (povtor<>'N'))) do
begin
writeln('Do you want to start over?');
writeln('Type "y" to start over or "n" to exit');
Readln(povtor);
end;
clrscr;
end;
end.
Висновок
Якщо ми візьмено сторону трикутника 23, то півпериметр буде дорівнювати 34,5. І обчисливши площу трикутника за формулою Герона, ми отримуєми значення 229,06, що співпадає з результатом, який отримали в результаті виконання програми.
25.02.2013 16:31
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора