4 Pascal повторение
презентация к уроку информатики и икт (9 класс) по теме

Слайд 1
Язык программирования Pascal Повторение

Слайд 2
А. Жидков

Слайд 3
Примеры: for k=3 to 7 do write (k,k*k,’ПРИВЕТ’); for n=9 downto 4 do write (n,2*n,’ответ’);

Слайд 4
Оператор цикла for

Слайд 5
Оператор цикла for имеет одну из двух форм:СИНТАКСИС:1 форма. for переменная := начальное значение to конечное значение do оператор(начальное значение < конечное значение)2 форма. for переменная := начальное значение downto конечное значение do  оператор(начальное значение > конечное значение)Заголовок цикла - текст от слова for до слова do включительно, Тело цикла - оператор после слова do, в том числе составной оператор (begin…end). Параметр цикла - переменная после слова for. СЕМАНТИКА:Для 1 формы цикла со словом to параметр цикла, увеличивается всякий раз на единицу.Для 2 формы со словом downto - параметр цикла уменьшается на единицу.

Слайд 6
N<= конечное значение
Тело цикла
N:=N+1
N:= начальное значение

Слайд 7
Оператор цикла for

Слайд 8
СЕМАНТИКА 1 форма:for переменная := начальное значение to конечное значение do операторШаг 1. При входе в цикл <переменной> присваивается <начальное значение>.Шаг 2. Проверяется условиепеременная <= конечное значениеЕсли условие TRUE - исполняется тело циклаЕсли условие FALSE – цикл завершается, исполняется оператор за телом цикла Шаг 3. После исполнения тела цикла переменная модифицируетсяпеременная:=переменная +1Шаг 4. Цикл продолжается с шага 2

Слайд 9
Дано: K и N – целыеНайти: Write (‘k=‘,k) N-раз
program NK;var N,K,I:integer;beginwrite ('введите целое N=');readln (N);write ('введите целое K=');readln (K);for I:=1 to N do writeln ('K=',K,' I=',I);end.

Слайд 10
Оператор цикла FOR

Слайд 11
1. For1. Даны целые числа K и N (N > 0). Вывести N раз число K.

Слайд 12
Дано: name – имя (текст) V – возраст (целое)Найти: write (name) V - раз
program NK;var v,I:integer; name:string;beginwrite ('введите своё имя Name=');readln (Name);write ('введите свой возраст в годах V=');readln (V);for I:=1 to V do writeln('Name=',Name,' I=',I);end.

Слайд 13
Оператор цикла FOR

Слайд 14
Напечатать свое имя, столько раз сколько тебе лет.

Слайд 15
Задание на самоподготовку

Слайд 16
Задание 1. For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также количество N этих чисел. Задание 2. For3. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел. Задание 3. For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. Задание 4. Задать произвольное слово. Напечатать на экране слово N раз. Лесенкой (со сдвигом вправо).Вася Вася Вася

Слайд 17
program AIB;var A,B,i,N:integer;beginwriteln ('введите А и В - целые A < B');readln (A,B);for i:=A to B do writeln (i:10, i*i:10, i*i*i:10); N:=B-A+1; writeln ('N=',N);end.

Слайд 18
Оператор цикла FOR

Слайд 19
Задание 1. For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также их квадраты, кубы и количество N этих чисел.

Слайд 20
program AIB;var A,B,i,N:integer;beginwriteln ('введите А и В - целые A < B');readln (A,B);N:=0;for i:=B-1 downto A+1 do begin writeln (i:10, i*i:10, i*i*i:10); N:=N+1; end; writeln ('N=',N);end.

Слайд 21
Оператор цикла FOR

Слайд 22
Задание 2. For3. Даны два целых числа A и B (A < B). Вывести в порядке убывания все целые числа, расположенные между A и B (не включая числа A и B), а также количество N этих чисел.

Слайд 23
program konf;var i :integer; C:real;beginwriteln ('введите цену 1 кг конфет = ');read (C);for i:=1 to 10 dowriteln (i, ' кг конфет стоят',i*c:8:2,' рублей'); end.

Слайд 24
Оператор цикла FOR

Слайд 25
Задание 3. For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.

Слайд 26
program NK;var N,i,k:integer; sl:string;beginwrite ('введите слово');readln (sl);write ('введите N>0-целое');readln (n);for i:=1 to N do begin write('I=',I); for k:=1 to i do write (' '); writeln(sl); end;end.

Слайд 27
Оператор цикла FOR

Слайд 28
Задание 4. Задать произвольное слово. Напечатать на экране слово N раз лесенкой (со сдвигом вправо).Вася Вася Вася

Слайд 29
program ABSUM2;var A,B,I,S:integer;beginwrite ('введите целое A=');readln (A);write ('введите целое B=');readln (B);s:=0;for I:=A to B do s:=s+I*I; writeln('сумма квадратов S=',S);end.

Слайд 30
Оператор цикла FOR

Слайд 31
For9. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.

Слайд 32
program NK;var S,F:real; N,I:integer;beginwrite ('введите целое N=');readln (N);S:=0;F:=1;for I:=1 to N do begin F:=F*I; S:=S+F; end;writeln('S=',S);end.

Слайд 33
Оператор цикла FOR

Слайд 34
For20°. Дано целое число N (> 0). Используя один цикл, найти сумму 1! + 2! + 3! + … + N! (выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N:    N! = 1·2·…·N). Чтобы избежать целочисленного переполнения, проводить вычисления с помощью вещественных переменных и вывести результат как вещественное число.

Слайд 35
program ABSUM2;var A,B,I,K:integer;beginwrite ('введите целое A=');readln (A);write ('введите целое B=');readln (B);for I:=A to B dobeginfor K:=1 to I do write(I);writeln;endend.

Слайд 36
Оператор цикла FOR

Слайд 37
For39. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).

Слайд 38
Задание на самоподготовку

Слайд 39
1. For14. Дано целое число N (> 0). Найти квадрат данного числа, используя для его вычисления следующую формулу: N2 = 1 + 3 + 5 + … + (2·N − 1).После добавления к сумме каждого слагаемого выводить текущее значение суммы (в результате будут выведены квадраты всех целых чисел от 1 до N).2. For40. Даны целые числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом число A должно выводиться 1 раз, число A + 1 должно выводиться 2 раза и т. д. 3. For21. Дано целое число N (> 0). Используя один цикл, найти сумму 1 + 1/(1!) + 1/(2!) + 1/(3!) + … + 1/(N!)(выражение N! — N–факториал — обозначает произведение всех целых чисел от 1 до N:    N! = 1·2·…·N). Полученное число является приближенным значением константы e = exp(1).

Слайд 40
СЕМАНТИКА:1. Вычисляется <условие>, 2. Если <условие> истинно (TRUE), выполняется тело цикла, в противном случае (FALSE) происходит выход из цикла.Если <условие> всегда истинно, будет зацикливание, например: while 2>1 do write(1);Прервать зацикливание - клавиш или кнопку«stop» .Тело цикла while в Pascal ABC не может быть пустым.

Слайд 41
Оператор цикла while( цикл с предусловием )

Слайд 42
СИНТАКСИС: while <условие> do <оператор>;<Условие> - выражение логического типа.<Оператор> после do называется телом цикла. <Оператор> может быть составным (begin…end)

Слайд 43
Дано: XH=0 XK=1 dX=0,2Найти X2
var k,s:real; begin s := 0; while s <= 1 do begin k := s*s; writeln ('s=',s,' k=',k); s := s + 0.2; end; end.

Слайд 44
Оператор цикла while

Слайд 45
Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2

Слайд 46
Дано: XH= - 5 XK= 5 dX= 2Найти: y = 5x2 – 2x + 1
var y,x:real; begin x := -5; while x <= 5 do begin y := 5*x*x-2*x+1; writeln ('x=', x ,'y=', y); x := x + 2; end; end.

Слайд 47
Оператор цикла while

Слайд 48
Составьте таблицу значений функции y = 5x2 – 2x + 1 на отрезке [-5; 5]  с шагом     x = 2.

Слайд 49
Задание на оператор while

Слайд 50
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 2K < N. Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число). Даны два положительных целых числа A и B (1

Слайд 51
Дано: N и K – целые положительныеНайти: N div K, N mod K
Пусть N=13 K=413 – 4 = 9 (9>=4, продолжать)9 – 4 = 5 (5>=4, продолжать)5 – 4 = 1 (1<4, завершить)
N div K
N mov K
program divmod;var N,K,N1,S:integer;beginwriteln ('введите N и K - целые');readln (N,K);N1:=N;S:=0;while N1>=K dobegin N1:=N1-K; S:=S+1;end;writeln (N,' div ',K,' = ',S);writeln (N,' mod ',K,' = ',N1);end.

Слайд 52
Задание на оператор while

Слайд 53
Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.

Слайд 54
program NK;var N,K,P: integer;begin writeln ('введите N - целое'); readln (N); P:=1; k:=0; while P<=N do begin p:=2*P; K:=K+1; end; write ('k=',K-1);end.

Слайд 55
Задание на оператор while

Слайд 56
Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 2K < N.

Слайд 57
program cifra;var N,sifra,ost: integer;beginwriteln ('введите N - целое');readln (N);ost:=N;while ost<>0 dobegin sifra:=ost mod 10; write (' ',sifra); ost:=(ost-sifra) div 10;end;end.

Слайд 58
Задание на оператор while

Слайд 59
Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц).

Слайд 60
program vklad;var v,p, vk, s, k: real;beginwrite ('Величина вклада V= '); readln (V);write ('Процент по вкладу P= '); readln (P);write ('Порог вклада Vk= '); readln (VK);k:=0; S:=V;while S

Слайд 61
Задание на оператор while

Слайд 62
Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число).

Слайд 63
Задание на оператор while

Слайд 64
Даны два положительных целых числа A и B (1

Слайд 65
СЕМАНТИКА:1. <Условие> вычисляется после очередной итерации цикла,2. Если <условие> истинно (TRUE), то происходит выход из цикла. Тело цикла оператора repeat, выполняется по крайней мере один раз.Оператор repeat используют, когда <условие> нельзя проверить, не выполнив тело цикла. Например: проверка данных при вводе repeat  read(x); until x=0;Если условие всегда ложно (FALSE) происходит зацикливание: repeat  write(1);until 2=1;

Слайд 66
Оператор цикла repeat

Слайд 67
Оператор цикла repeat имеет следующую форму: СИНТАКСИС: repeat  <операторы> until <условие>

Слайд 68
Задание на самоподготовку

Слайд 69
Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K.Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:     x              sin(x)          cos(x)---------------------------------0.0000        0.0000        1.00000.1000        0.0998        0.9950Задание 3. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом x=0,2.

Слайд 70
program sum_sqr; var k, s, n : integer; begin writeln( 'Введите K' ); readln (k); s:=0; n:=0; repeat n := n+1; s:=s+n*n; until s > k; s:= s-n*n; n:=n-1; writeln('N= ', n, ‘ s=' ,s );end.

Слайд 71
Задание на оператор repeat

Слайд 72
Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K.

Слайд 73
Program Table;Const xn=0; xk=1; dx=0.1;Var x: Real;Beginx:=xn;Writeln(' x  sin(x)  сos(x)');Writeln('----------------------------');While x<=xk DoBeginWriteln(x:8:4,sin(x):8:4,cos(x):8:4);x:=x+dxEnd;End.

Слайд 74
Задание на самоподготовку

Слайд 75
Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:     x              sin(x)          cos(x)---------------------------------0.0000        0.0000        1.00000.1000        0.0998        0.9950

Слайд 76
Program Table; Const xn=-2; xk=2; dx=0.2; Var x, fx : Real; Begin x:=xn; Writeln(' x  f(x)'); Writeln('----------------'); x:=xn; repeat fx:=x*x*x-3*x; Writeln(x:8:4,fx:8:4); x := x+dx; until x > xk; end.

Слайд 77
Задание на самоподготовку

Слайд 78
Задание 3. Вычислить значения функции f(x)= x3 – 3x на интервале [-2,2] с шагом x=0,2.