Текст программы на языке Pascal

Uses crt; //Обращение к модулю Сrt библиотеки
Var A,t,t2,v1,v2: Real; // объявление вещественных переменных
begin // начало программы
Clrscr; // очистка экрана
writeLn('Vvedite A, t, t2');
readLn(A, t, t2); // Ввод А, T и t2
v1:=20/t; // вычисление скорости до обеда
v2:=(A-20)/t2; // скорость после обеда
if v1>v2 then // проверка, какая скорость больше
writeLn('Do obeda skorost vishe') // вывод данного сообщения, если скорость до обеда больше
else
writeLn('Posle obeda skorost vishe'); // вывод сообщения, что скорость после обеда больше
readLn

END. // конец программы

Задания для самостоятельного выполнения

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

Таблица 2

№ варианта	Функция	Данные
		1,0 2,0 2,5
		0,0 1,0 1,2
		0,0 0,1 1,2
		0,0 0,1 0,8
		-2,0 -1,0 2,7
		0,0 2,0 3,0
		0,0 1,0 2,8
		1,0 1,2 2,0
		0,5 0,8 1,2
		2,5 3,0 4,0
		0,0 4,0 4,3
		0,25 3,0 4,0
		2,0 5,0 6,0

Задание 4.

Преобразование введенного целого числа из диапазона (0..4) в его словесное представление.

Текст программы на языке Pascal Program Digit; varNum: integer; begin write('Введите число:'); readln(Num); case Num of 0: writeln('Нуль'); 1: writeln('Один'); 2: writeln('Два'); 3: writeln('Три '); 4: writeln('Четыре') else writeln('Введено другое число') end; readln end.  

Блок-схема

Задания для самостоятельного выполнения

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

1. Вводиться число от 1 до 4, определяющее пору года. Дать название этой поры года (1 - зима, 2 - весна, 3 - лето, 4 - осень).

2. Ввести число от 1 до 100, если введенное число попадет в диапазон [1..10] определить его четность.

3. Определение номера квартала по введенному номеру месяца.

4. Вводится число от 1 до 7, определяющее день недели. Дать название этого дня (1 - понедельник, 2 - вторник, …, 7 - воскресенье).

5. Вводится число от 1 до 12, определяющее месяц года. Дать название этого месяца года (1 -Январь, 2 - Февраль, …, 12 Декабрь).

6. Вводится число от 1 до 15. Вывести данное число, записанное римскими цифрами (I, II, III, IV, V, VI, …., XV).

7. Вводится число от 1 до 15. Вывести данное число, записанное в двоичной системе счисления (1, 10, 11, 100, 101, …., 1111).

8. Дано натуральное число N (N<20), определяющее сумму денег в рублях. Дать для этого числа наименование: "рубль", "рубля", "рублей".

9. Дано натуральное число N (N<100), определяющее возраст человека в годах. Дать для этого числа наименование: "год", "года", "лет".

10. Вводится число от 1 до 7, определяющее день недели. Вывести расписание уроков в классе в этот день.

11. В спортивных соревнованиях Шарик, кот Матроскин, дядя Фёдор и почтальон Печкин заняли соответственно 1, 2, 3 и 4 места. Составить программу, которая по номеру места выдаёт имя участника соревнований.

12.Составить программу, которая по номеру квартиры выдает фамилию ее владельца (ввести не менее 6-7 номеров).

13. Составить программу, которая бы по порядковому номеру месяца выдавала к какому времени года он принадлежит.

Дата добавления: 2014-12-10