Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 3.1
з дисципліни
“Основи програмування та алгоритмічні мови”
Постановка задачі
Для заданого натурального числа n обчислити
Блок – схема
Текст програми
Program lab_3;
uses crt; {Plug crt}
var
povtor:char; {parametr dlz zapyska tcukla povtora}
i:integer; {i - peremennaya dly tcukla for i to n}
n:integer; {n- peremennaya po ysloviy zada4i}
y:real;
begin
povtor:='y';
While ((povtor='y') or (povtor='Y')) do
begin
write('Enter n, n=');
readln(n); {enter n}
if n>0
then
begin
y:=3*n;
for i:=n downto 1 do {Schotchik tsykla umenshaetsa from n to 1}
y:=sqrt(3*(n-1)+y); {Using this tsykl we find the value of y}
writeln('y=',y:5:2);
writeln;
end
else
writeln('n>0');
writeln('Type "y" to start over or "n" to exit');
Readln(povtor);
clrscr;
end;
end.
В даному прикладі виконання програми ми ввели значення а, а=1. Отже програма повинна розв’язати рівняння
Коренем якого є . І дійсно квадратний корінь із трьох дорівнює 1.73. Отже ми можемо зробити висновок що програма працює коректно.
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора