PPt4Web Хостинг презентаций

Главная / Информатика / Язык программирования Pascal. Повторение
X Код для использования на сайте:

Скопируйте этот код и вставьте его на свой сайт

X

Чтобы скачать данную презентацию, порекомендуйте, пожалуйста, её своим друзьям в любой соц. сети.

После чего скачивание начнётся автоматически!

Кнопки:

Презентация на тему: Язык программирования Pascal. Повторение


Скачать эту презентацию

Презентация на тему: Язык программирования Pascal. Повторение


Скачать эту презентацию



№ слайда 1 Язык программирования Pascal ПовторениеА. Жидков
Описание слайда:

Язык программирования Pascal ПовторениеА. Жидков

№ слайда 2 Оператор цикла for Оператор цикла for имеет одну из двух форм:СИНТАКСИС:1 форма.
Описание слайда:

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

№ слайда 3 Оператор цикла for СЕМАНТИКА 1 форма:for переменная := начальное значение to кон
Описание слайда:

Оператор цикла for СЕМАНТИКА 1 форма:for переменная := начальное значение to конечное значение do операторШаг 1. При входе в цикл присваивается .Шаг 2. Проверяется условиепеременная

№ слайда 4 Оператор цикла FOR 1. For1. Даны целые числа K и N (N > 0). Вывести N раз число 
Описание слайда:

Оператор цикла FOR 1. For1. Даны целые числа K и N (N > 0). Вывести N раз число K. Дано: 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.

№ слайда 5 Оператор цикла FORНапечатать свое имя, столько раз сколько тебе лет. program NK;
Описание слайда:

Оператор цикла FORНапечатать свое имя, столько раз сколько тебе лет. 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.

№ слайда 6 Задание на самоподготовку Задание 1. For2. Даны два целых числа A и B (A 
Описание слайда:

Задание на самоподготовку Задание 1. For2. Даны два целых числа A и B (A 

№ слайда 7 Оператор цикла FOR Задание 1. For2. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR Задание 1. For2. Даны два целых числа A и B (A 

№ слайда 8 Оператор цикла FOR Задание 2. For3. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR Задание 2. For3. Даны два целых числа A и B (A 

№ слайда 9 Оператор цикла FOR Задание 3. For4. Дано вещественное число — цена 1 кг конфет.
Описание слайда:

Оператор цикла FOR Задание 3. For4. Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет. program konf;var i :integer; C:real;beginwriteln ('введите цену 1 кг конфет = ');read (C);for i:=1 to 10 dowriteln (i, ' кг конфет стоят',i*c:8:2,' рублей'); end.

№ слайда 10 Оператор цикла FOR Задание 4. Задать произвольное слово. Напечатать на экране сл
Описание слайда:

Оператор цикла FOR Задание 4. Задать произвольное слово. Напечатать на экране слово N раз лесенкой (со сдвигом вправо).Вася Вася Вася 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.

№ слайда 11 Оператор цикла FOR For9. Даны два целых числа A и B (A 
Описание слайда:

Оператор цикла FOR For9. Даны два целых числа A и B (A 

№ слайда 12 Оператор цикла FOR For20°. Дано целое число N (> 0). Используя один цикл, найти
Описание слайда:

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

№ слайда 13 Оператор цикла FOR For39. Даны целые положительные числа A и B (A 
Описание слайда:

Оператор цикла FOR For39. Даны целые положительные числа A и B (A 

№ слайда 14 Задание на самоподготовку 1. For14. Дано целое число N (> 0). Найти квадрат данн
Описание слайда:

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

№ слайда 15 Оператор цикла while( цикл с предусловием ) СИНТАКСИС: while do ; - выражение ло
Описание слайда:

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

№ слайда 16 Оператор цикла while Распечатать квадраты чисел, находящихся в диапазоне от 0 до
Описание слайда:

Оператор цикла while Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2 Дано: XH=0 XK=1 dX=0,2Найти X2 var k,s:real;begins := 0;while s

№ слайда 17 Оператор цикла while Составьте таблицу значений функции y = 5x2 – 2x + 1 на отре
Описание слайда:

Оператор цикла while Составьте таблицу значений функции y = 5x2 – 2x + 1 на отрезке [-5; 5]  с шагом     x = 2. Дано: XH= - 5 XK= 5 dX= 2Найти: y = 5x2 – 2x + 1 var y,x:real;beginx := -5;while x

№ слайда 18 Задание на оператор while Даны целые положительные числа N и K. Используя только
Описание слайда:

Задание на оператор while Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Дано целое число N (> 1). Найти наибольшее целое число K, при котором выполняется неравенство 2K  0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 

№ слайда 19 Задание на оператор while Даны целые положительные числа N и K. Используя только
Описание слайда:

Задание на оператор while Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления. Дано: 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=K dobegin N1:=N1-K; S:=S+1;end;writeln (N,' div ',K,' = ',S);writeln (N,' mod ',K,' = ',N1);end.

№ слайда 20 Задание на оператор while Дано целое число N (> 1). Найти наибольшее целое число
Описание слайда:

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

№ слайда 21 Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от
Описание слайда:

Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, вывести все его цифры, начиная с самой правой (разряда единиц). program cifra;var N,sifra,ost: integer;beginwriteln ('введите N - целое');readln (N);ost:=N;while ost0 dobegin sifra:=ost mod 10; write (' ',sifra); ost:=(ost-sifra) div 10;end;end.

№ слайда 22 Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличи
Описание слайда:

Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 

№ слайда 23 Задание на оператор whileДаны два положительных целых числа A и B (1&lt;A&lt;B).
Описание слайда:

Задание на оператор whileДаны два положительных целых числа A и B (1&lt;A&lt;B). Вывести все простые числа, расположенные между A и B, в порядке их возрастания, а также количество этих чисел.

№ слайда 24 Оператор цикла repeatОператор цикла repeat имеет следующую форму: СИНТАКСИС: rep
Описание слайда:

Оператор цикла repeatОператор цикла repeat имеет следующую форму: СИНТАКСИС: repeat&nbsp; &lt;операторы&gt; until &lt;условие&gt;

№ слайда 25 Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чи
Описание слайда:

Задание 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.

№ слайда 26 Задание на оператор repeat Задание 1. Определить  число n, при котором сумма ква
Описание слайда:

Задание на оператор repeat Задание 1. Определить  число n, при котором сумма квадратов натурального ряда чисел от 1 до n не превысит величину K. 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.

№ слайда 27 Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1
Описание слайда:

Задание 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 Program Table;Const xn=0; xk=1; dx=0.1;Var x: Real;Beginx:=xn;Writeln(' x  sin(x)  сos(x)');Writeln('----------------------------');While x

№ слайда 28 Задание на самоподготовку Program Table;Const xn=-2; xk=2; dx=0.2;Var x, fx : Re
Описание слайда:

Задание на самоподготовку Program Table;Const xn=-2; xk=2; dx=0.2;Var x, fx : Real;Beginx:=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.

Скачать эту презентацию


Презентации по предмету
Презентации из категории
Лучшее на fresher.ru