Классная работа 1 «Оператор ввода ReadLn на Pascal»

Классная работа 1 «Оператор ввода ReadLn на Pascal»

8 класс, Pascal, Информатика
  • Функция int(x) – получает целую часть от числа x.
  • Функция frac(x) – получает дробную часть от числа x.
  • Функция ceil(x) – округляет число x, до целых всегда в большую сторону.
Задание 1

Перепишите условие задачи в тетрадь и её решения в двух вариантах: когда числа присваиваются в программе и когда вводятся с клавиатуры. Сравните программы. По возможности наберите программы в Паскале и запустите.

Для чего в программе используется функция int?

Сырок стоит 7 рублей. Какое наибольшее число сырков можно купить на 68 рублей?

{ Вариант решения 1: числа присваиваются переменным внутри программы }
Var sena_sirok, vsego_deneg, kol_sirok: Real;
Begin
sena_sirok := 7;
vsego_deneg := 68;
kol_sirok := vsego_deneg / sena_sirok;
WriteLn('Купить можно ', int(kol_sirok), ' сыр.');
End.
{ Вариант решения 2: числа вводятся с клавиатуры }
Var sena_sirok, vsego_deneg, kol_sirok: Real;
Begin
WriteLn('Введите цену на сырок: ');
ReadLn(sena_sirok);
WriteLn('Введите кол-во наличных: ');
ReadLn(vsego_deneg);
kol_sirok := vsego_deneg / sena_sirok;
WriteLn('Купить можно ', int(kol_sirok), ' сыр.');
End.
Задание 2

Перепишите условие задачи в тетрадь и её решения в двух вариантах: когда числа присваиваются в программе и когда вводятся с клавиатуры. Заполните пропуски. По возможности наберите программы в Паскале и запустите.

Для чего в программе используется функция ceil?

Теплоход рассчитан на 1100 пассажиров и 35 членов команды. Каждая спасательная шлюпка может вместить 90 человек. Какое наименьшее число шлюпок должно быть на теплоходе, чтобы в случае необходимости в них можно было разместить всех пассажиров и всех членов команды?

{ Вариант решения 1: числа присваиваются переменным внутри программы }
Var kol_pass, kol_kom, v_lodke: Integer;
    kol_lodok: Real;
Begin
kol_pass := 1100;
kol_kom := 35;
v_lodke := 90;
kol_lodok := (kol_pass + kol_kom) / v_lodke;
WriteLn('Всего шлюпок: ', ceil(kol_lodok));
End.
{ Вариант решения 2: числа вводятся с клавиатуры }
Var kol_pass, kol_kom, v_lodke: Integer;
    kol_lodok: Real;
Begin
WriteLn('Введите кол-во пассажиров: ');
?????????
WriteLn('Введите кол-во членов команды: ');
?????????
WriteLn('Введите, сколько человек помещается в шклюпку: ');
?????????
kol_lodok := (kol_pass + kol_kom) / v_lodke;
WriteLn('Всего шлюпок: ', ceil(kol_lodok));
End.

ОпубликованоАвторkandid