Создание первых программ на языке Паскаль

Создание первых программ

Обычно принцип работы программы написанной на языке Pascal состоит из трёх этапов:

• ввод данных
• обработка данных
• вывод данных.

Структура программы выглядит так:

Program «имя программы»; — заголовок программы; ( Примечание: в конце строки ставится точка с запятой, не во всех, но в большинстве)   Const тут указываем переменные с постоянной величиной , например, p =3.14; Var: тут через запятую перечисляем все переменные, а затем, указываем тип данных (Пример: Var : K , L , M : integer ; N , O : real ; (если несколько типов)); Begin (здесь без точки с запятой) Дальше следует основной блок программы; end . – конец программы (обязательно после “ end ” точка, если только это конец программы, а не операторные скобки).

Следует заметить, что из вышеперечисленных разделов обязательными есть только « Var », « Begin » и « end », остальные же могут применяться, если это требуется в ходе выполнения поставленной задачи.  

Оператор write

служит для вывода данных без перехода на новую строку.

Оператор writhen

используется для вывода данных с переходом на новую строку.

program Programma 1; begin write (' Моя первая программа '); end .

program Programma 1; begin writeln (' Моя первая программа '); end .

program Programma 1; begin writeln (' Моя первая программа '); writeln (' выполнил Петров Иван '); end .

Оператор ввода

Read ; Readln ;

После выполнения данного оператора программа останавливается и ждет ввода данных с клавиатуры. Если вводятся числовые данные, то их можно ввести через пробел друг за другом, а можно каждый отдельно нажимая в конце ввода Enter.

Переменны е в разделяются запятой.

Ln за словом Read означает, что после ввода следует перевести курсор на следующую строку.

Вводить с клавиатуры можно только значения переменных, но не выражения.

READLN (f,b,a);

read(s); readln(w);

Задача 1 : Написать программу, которая вводит значения двух любых чисел, выводит на экран сумму, разность, произведение и частное от деления этих чисел. Ввод каждого числа произвести с отдельной строке. Каждый результат также нужно поместить на отдельную строку, пояснив в комментарии, чему соответствует выводимое число.

program zadacha1;

var a,b : integer;

begin

writeln('Введите первое число’); readln(a);

writeln('Введите второе число’); readln(b);

writeln('A+B= ', a+b);

writeln('A-B= ', a-b);

writeln('A*B= ', a*b);

writeln('A div B= ', a div b); writeln('Нажмите ');

readln;

end.

Оператор присваивания

: =

Слева по отношению к оператору присваивания долж на стоять переменная, которую требуется найти, справа те переменные, с помощью которых можно найти.

Задача 2 :

Написать программу определения цифр трехзначного числа.

program zadacha 2;

var a, z1,z2,z3, rez : integer;

begin

writeln('Введите число’);

readln(a);

z1:=a Mod 10;

writeln('Цифра единиц числа - ’ , z1);

z2:=(a Div 10) Mod 10;

writeln('Цифра десятков числа - ’ , z2);

z3:=a Div 100;

writeln('Цифра сотен числа - ’ , z3); rez:=z3*100+z2*10+z1;

writeln('Это тоже число - ’ , rez);

end.

Домашнее задание

Составить программу к следующ ей задач е :

Дано двузначное число.

Определить сумму и произведение цифр числа;