Презентация к уроку информтике на тему "Циклы. Паскаль ABC"

Расчетные задачи на циклы 15

Небольшое отступление:

Построить таблицу значений функции y = 1/х на интервале [-1; 1] с шагом 0,1

Program n1;

Uses Crt;

var x,y,dx:real;

begin

ClrScr;

x:= -1;

dx:=0.1;

repeat

if (x0) then begin

y:= 1/x;

writeln ('x= ',x:7:5,' y= ',y:7:5);

end;

x:=x+dx;

until (x1);

end.

Program n1;

Uses Crt;

var x,y,dx:real;

begin

ClrScr;

x:= -1;

dx:=0.1;

repeat

if (x0) then begin

y:= 1/x;

writeln ('x= ',x,' y= ',y:7:5);

end;

x:=x+dx;

until (x1);

end.

Нуля нет! А в место него число в минус шестнадцатой степени.

Изменим формат вывода

1e-12) then begin y:= 1/x; writeln ('x= ',x:7:5,' y= ',y:7:5); end; x:=x+dx; until (x1); end. Пусть все числа, по модулю меньшие 0,000000000001 будут для нас нулями. " width="640"

Расчетные задачи на циклы 16

Вот одно из возможных решений данной проблемы:

Program n1;

Uses Crt;

var x,y,dx:real;

begin

ClrScr;

x:= -1;

dx:=0.1;

repeat

if (abs(x)1e-12) then begin

y:= 1/x;

writeln ('x= ',x:7:5,' y= ',y:7:5);

end;

x:=x+dx;

until (x1);

end.

Пусть все числа, по модулю меньшие 0,000000000001

будут для нас нулями.

Расчетные задачи на циклы 17

Составить программу вычисления среднего арифметического

числовой последовательности. Где количество элементов и

сами элементы вводятся с клавиатуры .

Задача 4.

Математическая запись задачи

Program n4;

Uses Crt;

var i,n:integer;

a,s,sr:real;

Begin

ClrScr;

write('N=');readln(n);

s:=0;

for i:=1 to n do begin

write( ‘ Введи [ ‘ , i , ‘ ] = ‘ );Readln(a);

s:=s+a;

end;

sr:=s/n;

writeln(‘Среднее арифметическое = ',sr:10:5)

end.

Результат выполнения программы

0). Используя один цикл найти сумму 1+ 1/2 + 1/3 +…+1/N Program n1; Uses crt; var s:real; i,n:Integer; begin Clrscr; Write(‘Введи n=');Readln(n); s:=0; For i:=1 to N do s:=s+1/i; writeln('s=',s:10:5); End. Результат очень легко проверить в ручную " width="640"

Расчетные задачи на циклы 18

Задача 5.

Дано целое число N (N0). Используя один цикл найти сумму

1+ 1/2 + 1/3 +…+1/N

Program n1;

Uses crt;

var s:real;

i,n:Integer;

begin

Clrscr;

Write(‘Введи n=');Readln(n);

s:=0;

For i:=1 to N do s:=s+1/i;

writeln('s=',s:10:5);

End.

Результат очень легко проверить в ручную

Расчетные задачи на циклы 19

Написать программу выводящую на экран все двузначные

числа сумма цифр которых равна 10.

Задача 6.

program n6;

Uses Crt;

var e,d:integer;

begin

ClrScr;

for d:=1 to 9 do

for e:=0 to 9 do

if d+e=10 then writeln(d*10+e);

end.

Расчетные задачи на циклы 20

Блок-схема к задаче 5

начало

Внешний цикл

D,1,9

Внутренний цикл

E,0,9

Тело цикла

d+e=10

нет

да

Вывод

d*10+e

конец

1/i); writeln('S=',s:10:5); end. " width="640"

Расчетные задачи на циклы 21

( Вычисление суммы бесконечного ряда с определенной

точностью).

Вычислите значение суммы ряда

с точностью Е=0,02

Задача 7.

Сумма вычисляется до тех пор, пока очередное слагаемое не станет меньше

точности Е

Program n7;

Uses crt;

var s,e:real; i:integer;

begin

clrscr;

s:=0; i:=1; e:=0.02;

Repeat

s:=s+1/i;

Writeln('i=',i,' слагаемое',1/i);

i:=i+1;

until (e1/i);

writeln('S=',s:10:5);

end.

4; writeln('Площадь = ',S:10:5 ); end. Высота прямоугольника 1/x . Площадь одного прямоугольника h*1/x Ширина прямоугольника h:=(4-1)/1000; " width="640"

Расчетные задачи на циклы 22

Вычислить площадь фигуры ограниченной линиями: X=1, X=4, Y=0,

Задача 8.

Program n 8 ;

Uses Crt;

Var x,h,s:Real;

Begin

ClrScr;

h:=(4-1)/1000;

x:=1;

Repeat

s:=s+h*1/x;

x:=x+h;

Until x4;

writeln('Площадь = ',S:10:5 );

end.

Высота прямоугольника

1/x

.

Площадь одного прямоугольника

h*1/x

Ширина прямоугольника h:=(4-1)/1000;

Расчетные задачи на циклы 23

Задача 9.

Найти количество цифр в числе введенном с клавиатуры.

Program n8;

Uses Crt;

Var n:Real;

k:Integer;

Begin

ClrScr;

Write ('N= ');readln(n);

k:=0;

Repeat

n:=int(n/10);

k:=k+1;

Until n

writeln('Кол-во = ',k:5);

end.

Если n имеет тип integer то эту строку можно записать так: n:=n div 10;

Часть 4. Всегда ли нужны циклы.

Всегда ли нужны циклы 23

Найти сумму целых четных чисел от 2 до 100.

Задача 10.

Program n10;

Uses crt;

var i,s:Integer;

begin

Clrscr;

s:=0;

For i:=2 to 100 do if (i mod 2 = 0) then s:=s+i;

writeln('s=',s:10);

End.

Всегда ли нужны циклы 24

Вспомним формулу суммы n членов арифметической прогрессии

Найдем количество n членов в этой последовательности:

a n =a 1 +d(n-1)

100=2+2(n-1)

100=2+2n-2

100=2n

n=50

Program n10;

Uses crt;

var s:Real;

begin

Clrscr;

s:=(2+100)/2*50;

writeln('s=',s:10:5);

End.

Подставим значения в формулу суммы