Turbo Pascal ПАСКАЛЬ Язык программирования l l

Turbo Pascal ПАСКАЛЬ Язык программирования

l l Английский язык Цифры, знаки арифметических действий Знаки препинания, скобки, АПОСТРОФ Клавиша ввода информации ‘Э

Оператор присваивания: : = – оператор присваивания Синтаксис: имя переменной : = её значение Пример: a: =0; z: =x; х: =а*а-2*sin(x);

Оператор ввода - readln ( «читать» ) – оператор ввода данных с клавиатуры. Синтаксис: readln(имя переменной, . . . ) Пример: readln(а, b); readln(х1, х2, …);

Оператор вывода - writeln l writeln ( «писать» ) - оператор вывода о результата на экран. Синтаксис: writeln(имя переменной, . . . ) writeln(‘подсказка’, имя переменной) Пример: writeln(x); writeln(‘x=’, х );

Найдите значение выражения Х 2 +2 х - 5 Program primer; Uses CRT; Var х , Y : real; Begin clrscr; writeln( ‘ Bbed x ‘ ); readln(x); Y: = x*x + 2 * x – 5; writeln( ‘ otb= ‘ , Y: 5: 2); end. readln;

ОПЕРАТОРЫ УПРАВЛЕНИЯ l l l Условный оператор. Оператор варианта. Циклические операторы: – – – Цикл «пока» , Цикл «до» , Цикл с параметром.

Условный оператор – IF …THEN … Для организации вычислений в зависимости от какого-либо условия в Паскале используется условный оператор. l В качестве условия используется логическое значение, представленное константой, переменной или выражением. l

Условный оператор – IF …THEN … Синтаксис: IF <условие> THEN <команда_1> ELSE <команда_2>;

Условный оператор – IF …THEN … а: =2; b: =8; If a>b then writeln(‘a больше b’) else writeln (‘b больше a’);

Составной оператор l Если необходимо выполнить группу операторов как единую команду, то используется составной оператор: begin оператор_1; оператор_2; … end;

Условный оператор – IF …THEN … If a>b then begin max: =a; min: =b; end; else begin max: = b; min: = a; end;

Оператор варианта (выбора) l Необходим в тех случаях, когда в зависимости от множества значений какойлибо переменной надо выполнить те или иные операторы.

Оператор варианта (выбора) – CASE … Case управляющая_переменная of набор_значений 1 : оператор1; набор_значений 2 : оператор2; … … набор_значений. N : оператор. N; еlse альтернативный_оператор end;

Работа оператора CASE Если управляющая_переменная принимает значение из набора_значений 1, то выполняется оператор1; Если управляющая_переменная принимает значение из набора_значений 2, то выполняется оператор2; и т. д. Если управляющая_переменная не принимает ни одно значение из имеющихся наборов, то выполняется альтернативный_оператор.

Тип – управляющей_переменной: Целочисленный. Var – c: integer; Перечислимый, Var a: (red, blue, green); – Диапазон, Var d: -5. . 5;

Набор значений управляющей_переменной: l Набор_значений – это конкретное значение управляющей переменной или выражение, при котором необходимо выполнить соответствующий оператор, игнорируя остальные варианты l l l Значения в каждом наборе дб уникальными. Пересечение наборов значений для разных вариантов является ошибкой. Ключевое слово еlse может отсутствовать.

ЗАДАЧИ: 1) 2) 3) Вывести на печать название дня недели, соответствующее заданному числу D, при условии, что в месяце 31 день и 1 -е число - понедельник. По заданному номеру месяца m вывести на печать название времени года. ДЗ: Вывести на печать название оценки успеваемости по пятибалльной шкале (5 - отлично, 4 - хорошо, 3 удовлетворительно, 2 и 1 - неудовлетворительно, в противном случае – «такой оценки НЕТ» ).

ЗАДАЧА № 1. Program z 1; Var d: integer; Begin write(‘введи номер дня недели D=’); readln(D); if (d>=1) and (d<=31) then Case D mod 7 of 1: writeln(‘понедельник’); 2: writeln(‘вторник’); 3: writeln(‘среда’); 4: writeln(‘четверг’); 5: writeln(‘пятница’); 6: writeln(‘суббота’); 0: writeln(‘воскресенье’); else writeln(‘ошибка при вводе’); end.

ЗАДАЧА № 2. Program z 2; Var m: integer; Begin write(‘введи номер месяца m=’); readln(m); if (m>=1) and (m<=12) then Case m of 12, 1, 2: writeln(‘ЗИМА’); 3. . 5: writeln(‘ВЕСНА’); 6. . 8: writeln(‘ЛЕТО’); 9. . 11: writeln(‘ОСЕНЬ’); else writeln(‘ошибка при вводе’); end; Еnd.

ЗАДАЧА № 3. Program оценки; Var х: integer; Begin write(‘введи балл х=’); readln(х); if (х>=1) and (х<=5) then Case х of 1, 2: writeln(‘неудовлетворительно’); 3: writeln(‘удовлетворительно’); 4: writeln(‘хорошо’); 5: writeln(‘отлично’); else writeln(‘ошибка при вводе’); end; Еnd.

Самостоятельная работа 1. 2. 3. 4. 5. 6. 7. Для каждой введённой цифры (0 -9) вывести соответствующее ей название (0 – ноль, 1 - один, 2 - два, …). Составить программу, которая по данному числу (1 -12) выводит название соответствующего ему месяца. Составить программу, которая по номеру месяца выдаёт название следующего за ним месяца (при m=1 получаем февраль, 4 - май). Составить программу, которая бы по введённому номеру времени года (1 - зима, 2 - весна, …) выдавала соответствующие этому времени года месяцы. Имеется пронумерованный список деталей: 1) шуруп, 2) гайка, 3) винт, 4) гвоздь, 5) болт. Составить программу, которая по номеру детали выводит на экран её название. Составить программу, которая по номеру месяца выдаёт название предыдущего месяца(при m=1 – декабрь, 2 январь). Составить программу, которая по целому числу из промежутка от 0 до 1000 выдаёт: однозначное число, двузначное, трёхзначное или четырёхзначное. Учесть ввод числа не принадлежащего этому промежутку.

ОПЕРАТОРЫ ЦИКЛА l Циклом в программировании называют повторение одних и тех же действий. l Последовательность действий, которые повторяются в цикле, называют телом цикла. l Типы алгоритмов циклической структуры: – условные циклы: l l – Цикл с предусловием (цикл «пока» ); Цикл с постусловием (цикл «до» ); Цикл с параметром.

Задачи. 1. Вычислить сумму натурального ряда чисел от 1 до N. 2. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежал спортсмен за 7 дней? 3. Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12, …, 24 часа. 4. У гусей и кроликов вместе 64 лапы. Сколько могло быть кроликов и гусей (указать все сочетания, которые возможны)? 5. Сколько можно купить быков, коров и телят, платя за быка 10 р. , за корову – 5 р. , за телёнка – 0. 5 р. , если надо купить 100 голов скота? 6. Найти сумму всех n–значных чисел (1≤n ≤ 4). 7. Дано натуральное число N. Вычислить:

ЗАДАЧА № 1 (цикл «до» ). начало Program natur; Var n, i, s : integer; n Begin End. write(‘конеч нат число n=’); readln(n); i: =1; s: =0; Repeat s: =s+i; i: =i+1; Until i>n ; writeln(‘s=‘, s); i: =1 ; S: =0 S: =s+i i: =i+1 _ i >n + s конец

ЗАДАЧА № 1 (цикл «пока» ). Program natur; Var n, i, s: integer; Begin End. write(‘конеч нат число n=’); readln(n); i: =1; s: =0; while i<=n do begin s: =s+i; i: =i+1; end; writeln(‘s=‘, s); начало n i: =1 ; S: =0 S: =s+i i: =i+1 s конец

ЗАДАЧА № 2. Program sport; Var d, s: integer; Begin End. d: =1; s: =10; while d<=7 do begin s: =s+s*0. 1; d: =d+1; end; writeln(‘s=‘, s); начало d: =1, s: =10 d<=7 + -