Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа №1 по дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
(оценка, дата)
Разработал:
студент гр. 21-7
Никова А.О.
(подпись)
Задача № 441.
Дано натуральное число n. Cреди чисел 1, 2,…, n найти все те, которые можно представить в виде суммы квадратов двух натуральных чисел (определить процедуру, позволяющую распознавать полные квадраты).
Блочная схема программы:
K – целое число
Pol_kv = true
Program primer441;
Var
n,j: integer;
Function Pol_kv(k: integer):Boolean;
Begin
Pol_kv:= sqr(round(sqrt(k)))=k;
End;
Begin
Writeln ('введите число n, не больше 1000 = ');
Readln (n);
Writeln('полные квадраты:');
For j:=1 to n do
If Pol_kv(j)
then
Writeln('j=',j);
Readln;
End.
Задача № 456.
Написать программу вычисления un для данного неотрицательного целого n, включающую рекурсивную процедуру, которая основана на непосредственном использовании соотношения un=un-1+un-2. Доказать по индукции, что при вычислении un (n=2, 3) по этой программе придется выполнить un-1 сложение чисел Фибоначчи.
Блочная схема программы:
N – целое число
Program primer456;
Var
n,i: integer;
Function fibonacci(n:integer):Real;
Var
F: real;
Begin
If n<3
then
F:=1
else
F:=fibonacci(n-1)+fibonacci(n-2);
fibonacci:=F;
End;
Begin
Writeln ('введите номер числа Фибоначчи:');
Readln(n);
For i:=1 to n do
Writeln('u[',i,']=',fibonacci(i):5:1);
Readln;
End.