С этого оператора начинается программа англ

Операторы
Пример
переменная:= выражение
program имя программы;
Задает имя программы.

Имя программы начинается с английской буквы, может состоять из английских букв, чисел.
program primer1 ;
uses имя встроенного модуля;
Объявление встроенного модуля, процедуры которого будут использоваться в программе.
uses Crt ;

Модуль CRT предназначен для работы с текстовым окном.
ClrScr — очистка текстового окна (заливка цветом фона)

var имя переменной : тип переменной;
var x , y : integer;

После выполнения в ОП (оперативной памяти) выделяются ячейки, которые помечаются как переменные x , y , z .

Операторные скобки
end ;
write , writeln (элемент(ы) вывода на экран);
Вывод на экран указанных элементов.
writeln после вывода своих элементов осуществляет переход на следующую строку.

writeln ( ‘введите с клавиатуры целое число’);
после выполнения на экране будет
введите с клавиатуры целое число
Данные расположенные между апострофами ‘ … ’ выводятся на экран в том же виде .
read , readln ();
Ввод данных с клавиатуры.
readln после ввода данных осуществляет переход на следующую строку.

НИКОГДА НЕ ПОВТОРЯЙ ЭТО В STANDOFF 2

readln ( x );

После выполнения на экран выводиться мигающий курсор и ожидается ввод данных с клавиатуры, после ввода в ОП переменной с именем x присваивается введенной значение.

Условный оператор if
if then оператор 1 else оператор 2;
Операторы сравнения:
> больше
меньше
= равно
>= больше или равно
меньше или равно
<> не равно
and – и
or – или
not – не
xor – без

Оператор цикла for
for := to do оператор;
Используется для выполнения однотипных действий с известным числом их повторений. Количество повторений может быть указанно в условии задачи или должно вводиться как параметр с клавиатуры.

for i := 1 to 5 do writeln (‘привет’) ;
На экране 5 раз будет напечатано слово «привет»

Оператор цикла while
while do оператор;
Выполняет действие или действия пока истинно условие. После каждого прохождения тела цикла, условие проверяется и если условие ложно, осуществляется выход из цикла.
Если условие истинно всегда, то происходит зацикливание. Чтобы прервать зациклившуюся программу, следует использовать комбинацию клавиш Ctrl-F2.
Условие — логическое выражение, записанное с помощью логических операторов сравнения.

x:=5;
while x<>0 do
begin
writeln (‘привет’) ;
x:=x-1;
end;
На экране будет печататься слово «привет» пока x не равен 0, это произойдет на 6 шаге цикла, т.е. слово «привет» будет напечатано 5 раз.

Источник: pascal304.blogspot.com

Условный оператор (if)

Условные операторы в программах позволяют выполнять определенные действия, в зависимости от самого условия. Обычно оператор if (с англ. «если») начинается с ключевого слова IF, за которым следует условие и ключевое слово THEN (с англ. «то»). Например, если переменная A будет больше переменной B, то выполнить следующее действие: в переменную Z присвоить значение переменной A, записывается следующим образом: IF A>B THEN Z:=A;.
После THEN точка с запятой никогда не ставится, но для выполнения не одного действия, можно поставить BEGIN, а в конце действий END. Если это условие не верно, то действия, указанные сразу после THEN, не выполняются.

Чтобы обработать условие в случае его невыполнения, используют ELSE (с англ. «иначе»). Перед ELSE, даже если и стоит какое-либо действие, точка с запятой никогда не ставится. Если перед ELSE стоит END, то точка с запятой после END также не ставится. Вот полный код программы, благодаря которой пользователь вводит два числа, а программа находит наибольшее значение из них и выводит на экран:

Если Вы внимательно посмотрели на данный код, то заметили, что часть кода, выделенная желтым цветом, Вам пока еще не известна. На самом деле здесь ничего особенного нет. Мы выводим значение переменной и пишем в скобках просто переменную. Но если нам нужно вывести на экран свое дополнение, то апостроф (‘) поможет нам в этом. Для этого выделите дополнение в ‘одиночные кавычки’ и Ваше предложение появится на экране (на большинстве клавиатурах это русская буква «Э», печатаемая на английской раскладке).

Как говорилось выше после THEN и ELSE можно выполнять множество действий. Например:

Задания:

• Составьте программу, используя апостроф, символ «*» (без кавычек) и оператор вывода, отображающую на экране рисунок домика
• Дан номер месяца. Найдите этот месяц.
• Найдите ошибки:
  program SUMMA
  begin
  i:=1;
  wirte(‘i:=’,a) ;
  end

Ответы к заданиям предыдущей статьи:

• Напишите программу, которая находила бы среднее арифметическое из трех чисел.

• Найдите площадь прямоугольника, треугольника, окружности.

Для решения данной задачи достаточно лишь узнать формулы площадей прямоугольника, треугольника и окружности.
Sпр=ab
Sтр=(a*b)/c
Sокр= p R 2
Теперь вставляем полученные действия в наши три программы. Результат формул выводим на экран, а значение остальных переменных будет задавать пользователь.

Площадь прямоугольника

Площадь треугольника

Площадь окружности

• Есть число 256. Найдите все цифры, составляющие это число, и высветите на экран при помощи mod и div.

Здесь, видимо, подразумевалось найти эти цифры при помощи функций mod и div. Вот полный код:

В начале программы в переменную chislo пользователь вводит свое значение, например 256. Можно было записать сразу chislo:=256, но мы будем делать такую программу, которая находила цифры для любых чисел. Дальше в переменную a мы присваиваем значение первой цифры переменной chislo. Для этого мы просто chislo делим на 100 и забираем только целую часть числа (256/100=2).

Чтобы найти второе число, мы находим остаток от деления chislo на 100 (например из числа 256 мы нашли 56, так как 256/100=2, ост. 56) и затем делим на 10, используя div, тем самым забирая целую часть числа (56/10=5). Затем находим третье число, также используя mod (256/10=25, ост. 6). Таким образом мы нашли и записали в переменные цифры, составляющие число, записанное в переменной chislo.

То есть наша программа работает только для трехзначных чисел. Теперь полученные цифры мы должны вывести на экран в столбик (так как, если все числа вывести в одну строку, то они сольются и результат будет совпадать с тем же числом, которое мы ввели, и никаких изменений в программе видно уже и не будет). Для этого мы воспользовались три раза оператором вывода. Теперь наша программа работает успешно.

Опубликовано: 2011-11-05 21:25:07

Источник: fortran-new.ru

Программирование на Basic Основные операторы Автор Хмелькова Ольга

>»>