Pascal Примеры задач

[Mathian]

Всем Хай!
В данном уроке мы разберём несколько простых задач в Pascal'е, не только для понимания Структуры Программы, но и для понимания того, что мы вообще делаем!
Я выложу несколько кодов программ и поясню каждую строчку в них.​

[HR][/HR]
Начнём с самого простого... По этому в первой программе мы рассмотрим пример складывания двух чисел и вывод ответа на экран.
Код:

Program Primer1; //Название программы.
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a,b,c:real;//Объявляем переменные.
begin//Тело программы
clrscr;//Очищаем экран.
	write('Введите числа A и B через запятую:');//Выводим сообщение пользователю.
	readln(a,b);//Читает символы с клавиатуры и записывает в переменную. В данном случае: при 55 4, a=55, b=4.
	c:= a+b;//Присваиваем переменной "c" значение суммы переменных "a" и "b".
	writeln('Ответ:',c:5:2);//Выводим сообщение с ответом на экран.
	readkey;//Ожидаем нажатия клавиши.
end.//Конец

[HR][/HR]
Теперь рассмотрим пример немного сложней, мы уже рассчитаем Периметр Прямоугольника по формуле.
Код:

Program Primer2;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a,b,s:real;//Объявляем переменные
begin//Тело программы
clrscr;//Очищаем экран
	//В прошлом примере мы записывали значение переменных так: readln(a,b);
	//Можно ещё и по отдельности, тогда будет выводиться сообщение -> ввод -> вывод сообщения -> ввод.
	write('Введите длину пр-ка');//Выводим сообщение пользователю.
	readln(a);//Читает символы с клавиатуры и записывает в переменную.
	write('Введите ширину пр-ка');//Выводим сообщение пользователю.
	readln(b);//Читает символы с клавиатуры и записывает в переменную.
	s:=2*(a+b);//Присваиваем значение переменной S сумму переменных A и B умноженную на 2
	writeln('P прямоугольника равна',s:5:2);//Выводим сообщение с ответом на экран
	readkey;//Ожидаем названия клавиш
end.//Конец

[HR][/HR]
В предыдущих 2-ух примерах мы устанавливали значение переменной S. Но можно без этого. Формулу можно применить и при выводе ответа на экран.
Код:

Program Program3;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a:integer;//Объявляем переменные 
begin//Тело программы
clrscr;//Очищаем экран
	writeln('Введите кол-во краски которое потратили на покраску 22м пола:');//Выводим сообщение пользователю на экран
	readln(a);//Читает символы с клавиатуры и записывает в переменную.
	writeln('Для покраски остальной части требуется:',(56*a)/22:5:0 ,' кг краски');//Выводим сообщение с ответом на экран
	readkey;//Ожидаем названия клавиш
end.

[HR][/HR]
Вот ещё 1 пример, вводите кол-во Лет и вам показывает сколько: дней, часов и минут вы живёте.
Код:

Program Primer4;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a,b,c,d:real;//Объявляем переменные
begin//Тело программы
clrscr;//очищаем экран
	write('Введите возраст:');//Выводим сообщение пользователю на экран
	readln(a);//Читает символы с клавиатуры и записывает в переменную.
	b:=a*365;//Присваиваем значение переменной B произведение A и 365
	c:=b*24;//Присваиваем значение переменной C произведение B и 24
	d:=c*60;//Присваиваем значение переменной D произведение C и 60
	writeln('Дней: ',b:5:2);//Выводим сообщение с ответом на экран
	writeln('Часов: ',c:5:2);//Выводим сообщение с ответом на экран
	writeln('Минут: ',d:5:2);//Выводим сообщение с ответом на экран
	readkey;//Ожидаем названия клавиш
end.//Конец

[HR][/HR]
Пример работы с Условным оператором If. Он через условие If находит наименьшее число.
Код:

Program Primer5;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a,b,c:real;//Объявляем переменные
begin//Тело программы
clrscr;//Очищаем экран
	write('Введите 1 число: ');//Выводим сообщение пользователю на экран
	readln(a);//Читает символы с клавиатуры и записывает в переменную.
	write('Введите 2 число: ');//Выводим сообщение пользователю на экран
	readln(b);//Читает символы с клавиатуры и записывает в переменную.
	write('Введите 3 число: ');//Выводим сообщение пользователю на экран
	readln(c);//Читает символы с клавиатуры и записывает в переменную.
	if (a < b and a < c) then writeln('Самое маленькое число: ',a:5:2);//Если A < B и A < C то Самое маленькое число A 
	if (b < a and b < c) then writeln('Самое маленькое число: ',b:5:2);//Если B < A и B < C то Самое маленькое число B
	if (c < b and c < a) then writeln('Самое маленькое число: ',c:5:2);//Если C < B и C < a то Самое маленькое число C
	readkey;//Ожидаем названия клавиш
end.//Конец

[HR][/HR]
Данный пример показывает как можно работать с циклом.

Program Primer6;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a,b: integer;//Объявляем переменные
begin//Тело программы
clrscr;//Очищаем экран
	a:=0;//Присваиваем значение переменной A
	for b := 100 to 999 do if odd(b) then a := a + b;//Цикл - Для всех нечётных чисел от 100 до 999
	writeln('Сумма всех нечётных трёх значных цифр равно: ', a);//Выводим сообщение с ответом на экран пользователя
	readkey;//Ожидание нажатия клавиши
end.//Конец

[HR][/HR]
В данном примере вы увидите как можно использовать Арифметический оператор mod:

Program Primer7;//Название программы
	uses crt;//Подключаем Модуль. В модуле Crt описаны и определены функции для работы с текстовой информацией на дисплее.
	var a:real;//Объявляем переменные
begin//Тело программы
clrscr;//Очищаем экран
	write('Введите число: ');//Выводим сообщение пользователю на экран
	readln(a);//Читает символы с клавиатуры и записывает в переменную.
	if(a mod 2)=0 then writeln('Число чётное!');//Если число делится на 2 без остатка(остаток = 0), то Число чётное
	else writeln('Число не чётное!');//Иначе - не чётное
	readkey;//Ожидание нажатия клавиши
end.//Конец

[HR][/HR]
Позже, как будет время - добавлю ещё примеров.
С вами был Лев Попов((Lev_Popov)).
Удачного обучения! xD