И так если ты прочитал первые 2 урока, то ты более или менее познакомился с языком Pascal. ))))
Теперь приступим к решению простых задач.
В этом уроке я объясню решение некоторых простых примеров
Пример 1:
Выведем надпись на экран монитора.
Код примера:
Код:
program Text;
begin
Writeln ('Привет! я рад что у нас все получилось :)');
end.
begin
Writeln ('Привет! я рад что у нас все получилось :)');
end.
На 2-х дистрибутивах языка Pascal задача выполнилась нормально… о чем можно судить из картинок
Теперь разберём задачу:
Как ты видишь что программа у нас называется: «Text» это видно из строки program Text;
Begin и end. – составные операторы между которыми стоит процедура Writeln (можно было использовать так же процедуру Write, различие лишь в том что Процедура writeln после вывода своих параметров осуществляет переход на следующую строку, а Write нет.
Вот мы и разобрали первый пример
))) Пример 2:
Сложение, вычитание, умножение, деление и операции div и mod для целых чисел.
i div j - дает частное от i/ j округленное до целого числа
i mod j – возвращает остаток от деления i/ j
program arf_op;
{описание данных, var является служебным словом}
Код:
begin
var a,b,c,z,x,y1,y2: real;
j,i: integer;
{Просим пользователя ввести данные}
Writeln ('Введите произвольное число a'); Readln(a);
Writeln ('Введите произвольное число b'); Readln(b);
Writeln ('Введите произвольное число c'); Readln(c);
Writeln ('Введите целое число i'); Readln(i);
Writeln ('Введите целое число j'); Readln(j);
{Решение}
Z:=a+b-c;
x:=a/b*c;
y1:=i div j;
y2:=j mod i;
{Вывод результата}
Write;Writeln ('a+b-c= ',z);
Write;Writeln ('a/b*c= ',x);
Write;Writeln ('i div j = ', y1);
Write;Writeln ('j mod i = ', y2);
end.
var a,b,c,z,x,y1,y2: real;
j,i: integer;
{Просим пользователя ввести данные}
Writeln ('Введите произвольное число a'); Readln(a);
Writeln ('Введите произвольное число b'); Readln(b);
Writeln ('Введите произвольное число c'); Readln(c);
Writeln ('Введите целое число i'); Readln(i);
Writeln ('Введите целое число j'); Readln(j);
{Решение}
Z:=a+b-c;
x:=a/b*c;
y1:=i div j;
y2:=j mod i;
{Вывод результата}
Write;Writeln ('a+b-c= ',z);
Write;Writeln ('a/b*c= ',x);
Write;Writeln ('i div j = ', y1);
Write;Writeln ('j mod i = ', y2);
end.