Блок-схема программы
Текст программы на языке 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 |
|
1,0 2,0 2,5 |
2 |
|
0,0 1,0 1,2 |
3 |
|
0,0 0,1 1,2 |
4 |
|
0,0 0,1 0,8 |
5 |
|
-2,0 -1,0 2,7 |
6 |
|
0,0 2,0 3,0 |
7 |
|
0,0 1,0 2,8 |
8 |
|
1,0 1,2 2,0 |
9 |
|
0,5 0,8 1,2 |
10 |
|
2,5 3,0 4,0 |
11 |
|
0,0 4,0 4,3 |
12 |
|
0,25 3,0 4,0 |
13 |
|
2,0 5,0 6,0 |
Задание 4.
Преобразование введенного целого числа из диапазона (0..4) в его словесное представление.
Текст программы
на языке Pascal
Program Digit;
var
Num: 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. Составить программу, которая бы по порядковому номеру месяца выдавала к какому времени года он принадлежит.