Найти сумму чисел ряда 1,2,3,... ,используя функцию.
Program Summa;
uses crt;
var n:integer;
function Sum(m: integer): integer;
var i,s: integer;
begin
s:=0;
for i:=1 to m do s:=s+i;
Sum:=s
end;
Begin
clrscr;
write('До какого числа суммировать? :'); readln(n);
write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.}
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с
клавиатуры.
Задание с функции НУЖНО
В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55
Взаимодействие с играми на новом, впечатляющем уровне. Такого еще не было никогда. Сидя дома, можно путешествовать по древнему Египту либо же воевать в космосе за новую планету. Так как происходящее в устройстве кажется настоящим, то и эмоции от этого неподдельные.
Хороший досуг. После тяжелого учебного или рабочего дня можно погрузиться в фантастический мир, забыв обо всех проблемах, не выходя из дома.
Развитие нестандартного мышления. Порою в играх приходится моментально реагировать, иначе никак. Без этой в них нельзя «выжить», так что геймерам нужно адаптироваться.