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

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

Скачать материал
Скачать материал "Язык программирования Pascal. Повторение"

Получите профессию

Менеджер по туризму

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Методические разработки к Вашему уроку:

Получите новую специальность за 2 месяца

Психолог-консультант

Описание презентации по отдельным слайдам:

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

    1 слайд

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

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

    2 слайд

    Оператор цикла 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,’ответ’);

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

    3 слайд

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


    Шаг 1. При входе в цикл <переменной> присваивается <начальное значение>.

    Шаг 2. Проверяется условие
    переменная <= конечное значение
    Если условие TRUE - исполняется тело цикла
    Если условие FALSE – цикл завершается, исполняется оператор за телом цикла

    Шаг 3. После исполнения тела цикла переменная модифицируется
    переменная:=переменная +1

    Шаг 4. Цикл продолжается с шага 2
    N<= конечное значение
    Тело цикла
    N:=N+1
    N:= начальное значение

  • Оператор цикла FOR1. For1. Даны целые числа K и N (N &gt; 0). Вывести N раз числ...

    4 слайд

    Оператор цикла FOR
    1. For1. Даны целые числа K и N (N > 0). Вывести N раз число K.
    Дано: K и N – целые
    Найти: Write (‘k=‘,k) N-раз
    program NK;
    var N,K,I:integer;
    begin
    write ('введите целое N=');
    readln (N);
    write ('введите целое K=');
    readln (K);
    for I:=1 to N do writeln ('K=',K,' I=',I);
    end.

  • Оператор цикла FORНапечатать свое имя, столько раз сколько тебе лет.Дано: nam...

    5 слайд

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

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

    6 слайд

    Задание на самоподготовку
    Задание 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 раз. Лесенкой (со сдвигом вправо).
    Вася
    Вася
    Вася

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

    7 слайд

    Оператор цикла FOR
    Задание 1. For2. Даны два целых числа A и B (A < B). Вывести в порядке возрастания все целые числа, расположенные между A и B (включая сами числа A и B), а также их квадраты, кубы и количество N этих чисел.
    program AIB;
    var A,B,i,N:integer;
    begin
    writeln ('введите А и В - целые 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.

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

    8 слайд

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

    program AIB;
    var A,B,i,N:integer;
    begin
    writeln ('введите А и В - целые 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.

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

    9 слайд

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

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

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

    10 слайд

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

    program NK;
    var N,i,k:integer;
    sl:string;
    begin
    write ('введите слово');
    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.

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

    11 слайд

    Оператор цикла FOR
    For9. Даны два целых числа A и B (A < B). Найти сумму квадратов всех целых чисел от A до B включительно.
    program ABSUM2;
    var A,B,I,S:integer;
    begin
    write ('введите целое A=');
    readln (A);
    write ('введите целое B=');
    readln (B);
    s:=0;
    for I:=A to B do s:=s+I*I;
    writeln('сумма квадратов S=',S);
    end.

  • Оператор цикла FORFor20°. Дано целое число N (&gt; 0). Используя один цикл, найт...

    12 слайд

    Оператор цикла 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;

    begin
    write ('введите целое 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.

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

    13 слайд

    Оператор цикла FOR
    For39. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение (например, число 3 выводится 3 раза).
    program ABSUM2;
    var A,B,I,K:integer;
    begin
    write ('введите целое A=');
    readln (A);
    write ('введите целое B=');
    readln (B);
    for I:=A to B do
    begin
    for K:=1 to I do write(I);
    writeln;
    end
    end.

  • Задание на самоподготовку1. For14. Дано целое число N (&gt; 0). Найти квадрат да...

    14 слайд

    Задание на самоподготовку
    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).

  • Оператор цикла while( цикл с предусловием )СИНТАКСИС: 

while  do  ;

 - выр...

    15 слайд

    Оператор цикла while
    ( цикл с предусловием )
    СИНТАКСИС:

    while <условие> do <оператор>;

    <Условие> - выражение логического типа.
    <Оператор> после do называется телом цикла.
    <Оператор> может быть составным (begin…end)

    СЕМАНТИКА:

    1. Вычисляется <условие>,
    2. Если <условие> истинно (TRUE), выполняется тело цикла,
    в противном случае (FALSE) происходит выход из цикла.

    Если <условие> всегда истинно, будет зацикливание, например: while 2>1 do write(1);

    Прервать зацикливание - клавиш <Ctrl-F2> или кнопку«stop» .

    Тело цикла while в Pascal ABC не может быть пустым.

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

    16 слайд

    Оператор цикла while
    Распечатать квадраты чисел, находящихся в диапазоне от 0 до 1 с шагом 0,2
    Дано: 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.

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

    17 слайд

    Оператор цикла while
    Составьте таблицу значений функции
    y = 5x2 – 2x + 1
    на отрезке [-5; 5]  с шагом     x = 2.
    Дано: 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.

  • Задание на оператор whileДаны целые положительные числа N и K. Используя толь...

    18 слайд

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

  • Задание на оператор whileДаны целые положительные числа N и K. Используя толь...

    19 слайд

    Задание на оператор while
    Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело N на K, а также остаток от этого деления.
    Дано: N и K – целые положительные
    Найти: N div K, N mod K
    Пусть N=13 K=4

    13 – 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;
    begin
    writeln ('введите N и K - целые');
    readln (N,K);
    N1:=N;
    S:=0;
    while N1>=K do
    begin
    N1:=N1-K;
    S:=S+1;
    end;
    writeln (N,' div ',K,' = ',S);
    writeln (N,' mod ',K,' = ',N1);
    end.

  • Задание на оператор whileДано целое число N (&gt; 1). Найти наибольшее целое чис...

    20 слайд

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

  • Задание на оператор whileДано целое число N (&gt; 0). Используя операции деления...

    21 слайд

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

  • Задание на оператор whileНачальный вклад в банке равен 1000 руб. Через каждый...

    22 слайд

    Задание на оператор while
    Начальный вклад в банке равен 1000 руб. Через каждый месяц размер вклада увеличивается на P процентов от имеющейся суммы (P — вещественное число, 0 < P < 25). По данному P определить, через сколько месяцев размер вклада превысит 1100 руб., и вывести найденное количество месяцев K (целое число) и итоговый размер вклада S (вещественное число).
    program vklad;
    var v,p, vk, s, k: real;
    begin
    write ('Величина вклада V= '); readln (V);
    write ('Процент по вкладу P= '); readln (P);
    write ('Порог вклада Vk= '); readln (VK);
    k:=0; S:=V;
    while S<VK do
    begin
    S:=S+S*P/100;
    k:=k+1;
    end;
    writeln ('Конечный размер вклада S= ',S);
    writeln (' через ', k , ' месяцев');
    end.

  • Задание на оператор whileДаны два положительных целых числа A и B (1

    23 слайд

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

  • Оператор цикла repeatОператор цикла repeat имеет следующую форму: 
СИНТАКСИС:...

    24 слайд

    Оператор цикла repeat
    Оператор цикла repeat имеет следующую форму:
    СИНТАКСИС:
    repeat
      <операторы>
    until <условие>
    СЕМАНТИКА:
    1. <Условие> вычисляется после очередной итерации цикла,
    2. Если <условие> истинно (TRUE), то происходит выход из цикла.

    Тело цикла оператора repeat, выполняется по крайней мере один раз.

    Оператор repeat используют, когда <условие> нельзя проверить, не выполнив тело цикла. Например: проверка данных при вводе
    repeat
      read(x);
    until x=0;

    Если условие всегда ложно (FALSE) происходит зацикливание:
    repeat
      write(1);
    until 2=1;

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

    25 слайд

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

  • Задание на оператор repeatЗадание 1. Определить  число n, при котором сумма к...

    26 слайд

    Задание на оператор 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.

  • Задание на самоподготовкуЗадание 2.  Напечатать таблицу функций sin x и cos x...

    27 слайд

    Задание на самоподготовку
    Задание 2. Напечатать таблицу функций sin x и cos x на отрезке [0,1] с шагом 0.1 в следующем виде:
        x              sin(x)          cos(x)
    ---------------------------------
    0.0000        0.0000        1.0000
    0.1000        0.0998        0.9950
    Program Table;
    Const xn=0; xk=1; dx=0.1;
    Var x: Real;
    Begin
    x:=xn;
    Writeln(' x  sin(x)  сos(x)');
    Writeln('----------------------------');
    While x<=xk Do
    Begin
    Writeln(x:8:4,sin(x):8:4,cos(x):8:4);
    x:=x+dx
    End;
    End.

  • Задание на самоподготовкуЗадание 3. Вычислить значения функции f(x)= x3 – 3x...

    28 слайд

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

    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.

Получите профессию

Интернет-маркетолог

за 6 месяцев

Пройти курс

Рабочие листы
к вашим урокам

Скачать

Скачать материал

Найдите материал к любому уроку, указав свой предмет (категорию), класс, учебник и тему:

6 625 221 материал в базе

Скачать материал

Другие материалы

Вам будут интересны эти курсы:

Оставьте свой комментарий

Авторизуйтесь, чтобы задавать вопросы.

  • Скачать материал
    • 12.02.2020 462
    • PPTX 746 кбайт
    • Оцените материал:
  • Настоящий материал опубликован пользователем Ворожищева Елена Егоровна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт

    Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.

    Удалить материал
  • Автор материала

    Ворожищева Елена Егоровна
    Ворожищева Елена Егоровна
    • На сайте: 3 года и 3 месяца
    • Подписчики: 0
    • Всего просмотров: 71673
    • Всего материалов: 202

Ваша скидка на курсы

40%
Скидка для нового слушателя. Войдите на сайт, чтобы применить скидку к любому курсу
Курсы со скидкой

Курс профессиональной переподготовки

Методист-разработчик онлайн-курсов

Методист-разработчик онлайн-курсов

500/1000 ч.

Подать заявку О курсе
  • Сейчас обучается 66 человек из 34 регионов

Курс повышения квалификации

Специалист в области охраны труда

72/180 ч.

от 1750 руб. от 1050 руб.
Подать заявку О курсе
  • Сейчас обучается 40 человек из 19 регионов

Курс профессиональной переподготовки

Библиотечно-библиографические и информационные знания в педагогическом процессе

Педагог-библиотекарь

300/600 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 458 человек из 66 регионов

Курс профессиональной переподготовки

Организация деятельности библиотекаря в профессиональном образовании

Библиотекарь

300/600 ч.

от 7900 руб. от 3950 руб.
Подать заявку О курсе
  • Сейчас обучается 282 человека из 66 регионов

Мини-курс

Теоретические аспекты трекинга и менторства

2 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Психологическая экспертиза в юридической сфере: теоретические аспекты

2 ч.

780 руб. 390 руб.
Подать заявку О курсе

Мини-курс

Инновационные технологии в краеведческой и географической работе со школьниками: применение туристических приемов для эффективного обучения

6 ч.

780 руб. 390 руб.
Подать заявку О курсе