Презентация по информатике Решение задач на циклические алгоритмы для 8 класса

Решение задач на циклические алгоритмы (использование цикла for)Презентацию подготовилУчитель информатики ГБОУ «Школа №1362»Санина Марина Сергеевна Задача 1. Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, …Решение:var a,sum: real; n,i:integer; begin write('Количество элементов ряда: '); readln(n); a:=1; sum:=0; for i:=1 to n do begin sum:=sum+a; a:=-a/2 end; writeln(sum:4:3); readln end.

Задача 2Найти сумму ряда S=1+3+5+7+9+11+13+15.Решение:var n: integer; i, sum: integer;   begin write('n='); readln(n);   if n > 0 then sum := 1 else sum := 0;   for i := 2 to n do sum := sum + 2;   writeln('Sum=',sum); readln; end. Задача 3. Требуется определить, сколько можно приобрести ручек (по цене 10 руб.), карандашей (5 руб.) и ластиков (2 руб.) на 100 рублей. При этом всего предметов должно быть 30.Обозначим искомое количество ручек, карандашей и ластиков через переменные a, b и c соответственно.Цены предметов: pa, pb, pc.Количество предметов: qty.Сумма покупки: sum.Решение:var a, b, c: byte; pa, pb, pc: byte; qty, sum: byte;   begin qty := 30; sum := 100; pa := 10; pb := 5; pc := 2; for a:=0 to (sum div pa) do for b:=0 to (sum div pb) do for c:=0 to (sum div pc) do if (pa*a + pb*b + pc*c = sum) and (a + b + c = qty) then writeln (a:3,b:3,c:3); readln; end.





Задача 4.Даны натуральные числа M и N. Определить, являются ли они взаимно простыми.Решение:Var  k,m,n,f:word;  Begin  Write('Введите 2 натуральных числа');  Readln(n,m);  F:=0;  if n>m then k:=m else k:=n; {k - наименьшее из 2-х чисел }  for I:=2 to k do if (n mod I=0) and (m mod I = 0) then f:=1;  If f=1 then writeln('числа не взаимно простые')    Else writeln('числа взаимно простые');  ReadlnEnd.