Презентация по информатике на тему Pascal ABC 9-11 класс

Учитель информатики ГБОУ школа № 118 Серогодская Н.И. Г.Москва

В программе, написанной на  Паскале, могут быть следующие разделы: Program ... ; { Заголовок программы } Uses ... ; { Подключение модулей } Label ... ; { Раздел объявления меток } Const ... ; { Раздел объявления констант } Type ... ; { Раздел объявления новых типов } Var ... ; { Раздел объявления переменных } Procedure ... ; { Описание своих процедур } Function ... ; { Описание своих функций } Begin { начало основной программы }  ...;  { Операторы }  ...; End.

ПРИМЕР : Простейшая программа. program prim_1; { демонстрация структуры программы} {эта программа не требует никаких объявлений и описаний} begin  write('Привет! Вот мы и начали.')  (* эта строка текста появится на экране *) end.

Переменные Целые типы этих двух типов Integer (читается " 'интеджер", переводится ЦЕЛЫЙ)  Слово указывает, что а и b имеют право быть целыми числами, а не дробными. Смысл подобного ограничения в том, что Паскаль по- разному работает с целыми и дробными числами, а поскольку он язык строгий, то требует, чтобы программист точно указал, к какому из числа.   ·    Integer (-32767 ... 32768, 2 байта),                   основные типы Для того, чтобы переменная имела право принимать значения больших целых чисел, она должна быть описана не как Integer, а как LongInt (сокращение от Long Integer - Длинное Целое, читается “лонг'инт”). Под переменную типа LongInt компьютер отводит в памяти 4 байта и она может принимать значения в диапазоне от  2147483648 до 2147483647. ·    Longint (-2147483648 ... 2147483647, 4 байта), относятся

Вещественные типы " Программист имеет право любую переменную описать не как целую (Integer), а как вещественную (Real). В этом случае переменная имеет право принимать любые целые и дробные значения.По- английски Real читается   'риэл", переводится "вещественный". Под переменную типа Real Паскаль отводит в памяти ячейку размером в 6 байтов.   Real (занимает 6 байт, диапазон от 2.9E-39 до 1.7E+38 по модулю, точность 11-12 значащих цифр)   тип  основной

Логический тип Переменные логического типа Boolean занимают в памяти один байт и могут принимать одно из двух значений False - ложное или True - истинное.   Символьный тип Символьный тип Char также называют литерным. Он позволяет работать с символами, которые записываются двумя способами: в одинарных кавычках или по их коду, например 'a', 'B', '*' или, что то же самое, #97, #130, #42. В отличие от текста программы на паскале, символы, соответствующие строчным и заглавным буквам различаются. Строковый тип String говорит о том, что переменная a обязана иметь строковое (текстовое) значение, то есть ее значением будет не число, а произвольная например,       Привет всем!     или    рпН2Н(*fD6:u   . Слово   String   читается "стринг", переводится "строка". символов, цепочка

Write - по-английски слово означает «пиши» WriteLn -  читается "райт 'лайн, означает пиши строку в программе на экране Write( -500)                    -500 Write(3 + 2)                     5 Пояснения: Можно печатать не только числа, но и результаты вычисления арифметических выражений Write(3 * 2)                     6     Знак  *  обозначает умножение Write(2 * 2 - 1)                    3 Write( 'Хорошо!' )                 Хорошо! Write(1999) 1999

Текст, в отличие от чисел и выражений, нужно брать в одинарные кавычки Write( 'Я изучаю Паскаль' )            Я изучаю Паскаль Write( 3+2 ,  4+4)                    58 Это не пятьдесят восемь, а два числа: пять и восемь. “К сожалению”, они расположены вплотную друг к другу. Чуть ниже вам станет ясно, как преодолеть этот “недостаток” оператора Write. Write( 'Это'   ,    4+4   ,  'кошек' )            Это8кошек Но пробелы, встретившиеся внутри кавычек, отображаются на экране: Write( 'Это   ',4+4,'   кошек')            Это   8   кошек Write('16+16='  ,  16+16)                16+16=32

Программа с использованием оператора WRITE BEGIN     Write('Начали!');    {Это приказ напечатать слово «Начали!»}     Write( 8+1) ;     Write( 5-2)        {А здесь компьютер из 5 вычтет 2 и  напечатает результат} END.                           {Не забыть бы точку}   На экране мы увидим           Начали!93

ПРОГРАММА  BEGIN  Write    ( 'Ама' ); Write    ( 'зонка' ) END.  BEGIN  Write    ( 'Ама' ); WriteLn( 'зонка' ) END.  BEGIN  WriteLn( 'Ама' ); Write    ( 'зонка' ) END.  BEGIN  WriteLn( 'Ама' ); WriteLn( 'зонка' ) END.  ЧТО  ВИДИМ НА  ЭКРАНЕ  Амазонка  Амазонка  Ама зонка  Ама зонка

• WriteLn('Начали!'); WriteLn(8+1);     WriteLn(5-2) //в последнем операторе точка с запятой не ставится • END. • Hа экране мы увидим           Начали!                                                             9

а:=6  называется оператором присваивания. ЧТО ЗАПОМНИТ КОМПЬЮТЕР v=8    h=80    s=88 ФРАГМЕНТ  ПРОГРАММЫ v := -2+10;  h := 10*v;  s := v+h t := 0;   n := Необходимо помнить, что компьютер выполняет оператор 2*t+40;    z := -n присваивания "в уме", то есть результат его выполнения не отображается на экране. Если мы хотим видеть результат выполнения оператора присваивания, используем WriteLn. t=0    n=40    z= -40

имена сокращение величин .  Объявление переменных служебного  описание начинается слова var (читается ВАР, от - переменная). После него английского variable записываются переменных, встречающихся в программе с указанием через каждая двоеточие переменная имеет право принимать. В нашем случае имена переменных а и b, так как только они встречаются между BEGIN и END. Слово Integer (читается 'интеджер", переводится ЦЕЛЫЙ)  указывает, что а и b имеют право быть целыми числами, а не дробными. всех типа значений, которые со это "

Пример объявления переменных Пример программы с использованием оператора   присваивания и объявлении переменных VAR a,b,y : Integer; VAR a,b :Integer;     y :Real;    VAR  a,b : Integer; эта программа  напечатает число 120 BEGIN     a:=100;      b:=20;     WriteLn (a + b) END.

ПОРЯДОК  ИСПОЛНЕ НИЯ  ОПЕРАТОРОВ  ЧТО ВИДИМ НА Э КРАНЕ  ЧТО НАХОДИТ СЯ В ЯЧЕЙКЕ П АМЯТИ  k  10  10  25  25  4  4    10    25    4  k:=10     WriteLn (k)  k:=25     WriteLn (k)  k:=4  WriteLn (k) Как видите, в процессе работы программы содержимое ячейки k меняется.   Так, при выполнении оператора k:=25 там вместо значения 10 появляется 25. А куда же девается десятка? Она стирается, то есть компьютер забывает ее безвозвратно.

Примеры задач   Известны размеры спичечной коробки: высота - 12.41 см., ширина - 8 см., толщина - 5 см.  Вычислить площадь основания коробки и ее объем .   shirina        -    ширина tol        -    толщина visota        -    высота pl        -    площадь V        -    объем     VAR    shirina,tol,pl   :Integer;         visota,V   :Real; BEGIN         shirina:=8;            tol:=5;           visota:=12.41;         pl := shirina * tol;         V  := pl * visota;         WriteLn (pl,'    ', V  :10:3) END.

Автомобиль 3 часа ехал со скоростью 80 км/час и 2 часа со скоростью 90 км/час. Вычислить среднюю скорость автомобиля (она равна суммарному пути, деленному на суммарное время).   VAR   t1, t2 {t1-время на первом отрезке, t2-на втором}    v1, v2,{v1-скорость на первом отрезке, v2-на втором}     s1, s2 :Integer;{s1-первый отрезок пути, s2-второй}    sredn_skorost:Real; BEGIN     t1:=3;            t2:=2;     v1:=80;        v2:=90;     s1:=v1*t1; {путь равен скорость умножить на время}     s2:=v2*t2;     sredn_skorost := (s1+s2)/(t1+t2);     WriteLn (sredn_skorost :10:3);     ReadLn END.

Операторы ввода данных ReadLn  и  Read • ReadLn  читается "рид'лайн", переводится "читай строку". Он приказывает компьютеру остановиться и ждать, когда человек введет с клавиатуры определенную информацию, после чего продолжить работу. В частности, ReadLn (a,b) будет ждать ввода двух целых чисел. • Read(a);       в одну строку ReadLn(В,С);    в столбик

Задача: Сложить два числа  -    20 и 16. Сравним две программы решения этой задачи: VAR a,b : Integer; BEGIN           a:=20;   b:=16;       WriteLn (a+b)     END. VAR a,b : Integer; BEGIN       ReadLn (a,b);   WriteLn (a+b) END.

Операторы деления Операторов деления - три, и все они работают по разному и соответственно выполняют разные действия.  1)Простое деление Простое деление выполняется с помощью оператора вида / , он делит одно число на другое. Данный оператор работает только с типом чисел real, о котором я писал в прошлом уроке. {ввод данных} x:=22; y:=5; x:=x/y; {вывод данных} Ответ: 4.4

2)Целочисленное деление Данное действие делит число только на цело, при таком способе деления невозможно получить десятичную или периодическую дробь. В программе пишется, как div. Данный оператор работает только с типом integer. {ввод данных} x:=22; y:=5; x:=xdivy; {вывод данных} В данном примере х будет равно 4.

3)Получение остатка Данный способ позволяет получить не само число, которое должно получится, а его остаток. Допустим при делении 22 на 5 мы получим 2, при этом способе деления. В программе обозначается, как mod: {ввод данных} x:=48 mod 5; {вывод данных}

program calc; //вводим название программы var a, b, sum, raz, pro, c: integer; del: real; //вводим переменные begin //начинаем программу readln (a, b); // вводим в программу два числа sum:=a+b; // складываем числа raz:= a-b; // вычтаем pro:=a*b; // умножаем del:=a/b; // выполняем простое деление c:=a div b; //делаем целочисленное деление a:= a mod b; // находим остаток, при этом меняем значение a writeln ('сумма - ', sum); // выводим на экран сумму writeln ('разность - ', raz); // выводим на экран разность writeln ('произведение - ', pro); // выводим на экран произведение writeln ('простое деление - ', del); // выводим на экран обычное деление writeln ('целочисленное деление - ', c); // выводим на экран результат целочисленного деления

1. Оператор квадрата Этот оператор возводит в квадрат заданное число или переменную. Выглядит, как sqr. В программе пишется как sqr(a), где a - любая переменная или число. var a, c:integer; begin   writeln ('Введите число');   readln (a);   c:=sqr(a);   writeln ('Квадрат равен ',c); end.

2. Оператор корня Этот оператор находит корень из переменной или числа. Выглядит, как sqrt. В программе пишется как sqrt(a), где a - любая переменная или число. var a, c:real; begin   writeln ('Введите число');   readln (a);   c:=sqrt(a);   writeln ('Корень равен ',c); end.

3. Оператор модуля Данный оператор переводит число из обычного в число по модулю, то есть меняет знак этого числа на всегда положительный. Обозначается, как abs, в программе пишется, как abs(a), где a - любое число или переменная. var a, c:real; begin   writeln ('Введите число');   readln (a);   c:=abs(a);   writeln ('Модуль равен ',c); end.

оператор условия Он работает по принципу: Если (условие), то (команда 1), иначе (команда 2). Слово если выполняет команда IF, слово тогда - then, а иначе - else. На деле этот цикл выглядит так: Program sravnenie; // Название программы. var a,b,c,d: integer; // Вводим переменные. begin // Начало программы. readln(a); // Ввести значение a. readln(c); // Ввести значение c. if a < с then // Если а меньше с, то b:=с // b будет равно с. writeln(b); // Вывести значенние b на экран. else a:=d; // В противном случае а равно d. writeln(d); // Вывести значенние d на экран. end. // Конец программы.

Цикл с параметром - FOR будет программа Цикл FOR задает определённое условие по которому работать определённое количество раз, допустим нам нужно 5 (или n) раз зациклить программу, это легко сделать с помощью данного цикла. У цикла FOR есть характерная черта - счетчик который обычно обозначается буквой i или j.  Внешний вид цикла с параметром в паскале: for i:= 1 to n do // присваиваем i сначала одному, потом двум, трем, ..., n

Цикл с предусловием - WHILE Оператор цикла с предусловием выполняет действия заранее неизвестное число раз. Выход из цикла осуществляется, если какое-либо логическое выражение или его результат окажется ложным. Так как верность логического выражения проверяется в самом начале, то тело цикла может не выполнится разу. Структура цикла с предусловием: одного ни WHILE  <условие> DO         begin                 <тело цикла>         end;

Пример: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30 program example-while; var    sum:real;    n:real; BEGIN    sum:=0;    n:=1;    while n < =30 do         begin            sum:=sum+n;            n:=n+0.5;         end;    writeln('Сумма равна: ',sum); END.

Вычислите периметр и площадь прямоугольника.     var a,b :integer; begin writeln('введите  длину прямоугольника.'); readln(a); writeln('введите  ширину прямоугольника.'); readln(b); writeln('Периметр прямоугольника = ', 2*(a+b)); writeln('Площадь прямоугольника

Даны катеты прямоугольного треугольника a и b.  Найти его гипотенузу c и периметр P . var a,b,c: real; begin   writeln('Введите катеты треугольника a,b-? '); readln(a,b); c:=sqrt(sqr(a)+sqr(b));   writeln('Гипотенуза c = ',c :4:2);  writeln('Периметр треугольника P = ',a+b+c:5:2); end.

Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей.  Цену и количество вводит пользователь. • var kar,tetr: real; { цена карандаша и тетради } nk,nt: integer; { количество тетрадей и карандашей } summ: real; { стоимость покупки } begin writeln('Вычисление стоимости покупки.'); writeln('Введите исходные данные:'); write('Цена тетради (руб.) —>'); readln(tetr); write('Количество тетрадей —>') ; readln(nt); write('Цена карандаша (руб.) — >'); readln(kar); write('Количество карандашей —>'); readln(nk); summ:=tetr*nt + kar*nk; writeln('Стоимость покупки:',summ:6:2,' руб.');  readln; end.

Написать программу вычисления площади поверхности параллелепипеда.  Длину ,ширину и высоту  вводит пользователь. var l,w,h : real; { длина, ширина и высота параллелепипеда} s: real; { площадь поверхности параллелепипеда}  begin writeln('Вычисление площади поверхности параллелепипеда'); writeln('Введите исходные даные:'); write('Длина (см) —> '); readln(l) ; write('Ширина (см) ->'); readln(w); write('Высота (см) — >') ; readln(h); s:=(l*w + l*h + w*h)*2;  writeln('Площадь поверхности параллелепипеда:',s:6:2,' кв.см. ');  readln;  end.

• Исходник калькулятора для паскаля, который умеет: - складывать; - вычитать; - умножать; - находить корень; - находить квадрат; - делить в обычном и привычном для нас виде; - делить в целых числах  - делить с остатком.  Использованы операторы sqrt, sqr, mod и div, +, -, /, *. • (программа прилагается в папке на компьютере)

Program calc2; var a, b, sum, raz, pro, c, n: integer; // Задаём переменные, их типы del: real; begin   writeln (' Введите требуемое действие:' ); // Диалог с пользователем   writeln (' 1 - сложение, 2 - вычитание, 3 - умножение, 4 - простое деление, 5 - деление с остатком, 6 - квадрат, 7 - кв. корень');     readln (n); // считывание действия   writeln ('Введите числа для операции, если корень или квадрат, то второе число - любое');   readln (a, b); // считываем два числа     if n = 1 then begin // Если n = 1 (сложение), то начало д.     sum:=a+b; // складываем числа     writeln ('сумма - ', sum); // выводим сумму     end; //конец д.           if n = 2 then begin // Если n = 2 ( вычитание), то начало д.           raz:= a-b; //вычитаем           writeln ('разность - ', raz); // выводим разность end; // конец д.

if n = 3 then begin // Если n = 3 (умножение), то начало д.                 pro:=a*b; // умножаем                 writeln ('произведение - ', pro); // выводим произведение                 end; // конец действия.                 {Дальше комментарии к оператору if отсутствуют, т.к. они почти теже}                       if n = 4 then begin                       del:=a/b; // выполняем простое деление                       writeln ('простое деление - ', del); // выводим обычное деление                       end;                             if n = 5 then begin                             c:=a div b; //делаем целочисленное деление                             a:= a mod b; // находим остаток, при этом меняем значение a                             writeln ('целочисленное деление - ', c); // выводим результат целочисленного деления                             writeln ('остаток - ', a); // выводим остаток                             end;                                if n = 6 then begin                                 pro:= sqr (a); // находим квадрат первого числа                                writeln ('Квадрат a равен ', pro); // выводим квадрат перового числа                                 end;                                  if n = 7 then begin                                   del:= sqrt (a); // Находим квадратный корень первого числа

Циклы Циклы делятся на две группы - это циклы с условием и цикл с параметром (FOR). Циклы с условием делятся на циклы с предусловием (WHILE) и постусловием (REPEAT). То есть цикл с параметром задает параметр (условие выполнения цикла) сразу, цикл с предусловием проверяет работу цикла в начале, с постусловием - в конце. Цикл позволяет зациклить программу, а точнее её часть до выполнения нужного действия или получения требуемого результата.

1)Цикл с параметром FOR Цикл FOR задает определённое условие по которому программа будет работать определённое количество раз, допустим нам нужно 5 (или n) раз зациклить программу, это легко сделать с помощью данного цикла. У цикла FOR есть характерная черта - счетчик который обычно обозначается j.  Внешний вид цикла с параметром в паскале: for i:= 1 to n do // присваиваем i сначала одному, потом двум, трем, ..., n После 1-го прохода переменной i присваиваем 1, после второго присваиваем 2 и так до тех пор, пока не дойдем до n. to - это до .. в порядке возрастания, также есть downto - до .. в порядке убывания. буквой i или

2)Цикл с предусловием - WHILE Оператор цикла с предусловием выполняет действия заранее неизвестное число раз. Выход из цикла осуществляется, если какое-либо логическое выражение или его результат окажется ложным. Так как верность логического выражения проверяется в самом начале, то тело цикла может не выполнится ни одного разу. Структура цикла с предусловием: WHILE  <условие> DO         begin                 <тело цикла>         end;

Порядок выполнения цикла: - логическое выражение, истинность которого проверяется вначале выполнения циклического оператора; - любые выполняемые операторы языка. Пока условие истинно выполняется тело цикла. Как только условие становится ложно, выполнение цикла прекращается. Пример: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30 program example-while; var    sum:real;    n:real; BEGIN    sum:=0;    n:=1;    while n < =30 do         begin            sum:=sum+n;            n:=n+0.5;         end;    writeln('Сумма равна: ',sum); END.

3. Цикл с постусловием - Repeat - until. REPEAT <тело цикла> UNTIL  <условие>; Пример: Program test2; Var b:Real; Begin b:=100; Repeat b:=b/2; Until b<10; Writeln(b:0:2); End. за Until. Последовательность операторов, входящих в тело цикла выполняется один раз, после чего проверяется соблюдение условия, записанного следом служебным Если словом условие не соблюдается, тогда цикл завершается. В противном случае - тело цикла повторяется ещё раз, после чего снова проверяется соблюдение условия. Формат записи, структура цикла:

Использованная литература 1.  Паскаль для школьников. Автор: Ушаков Д. М., Юркова Т. А. 2.Рубцов в. Занимательные уроки с Паскалем. https://vk.com/doc299482826_437286 249? hash=8326765eaf51f32ed0&dl=0757b 20b1fa350fbe6