Pascal — задача про курочку Рябу

Дочка, как оказалось, от трех месяцев изучения основ Excel на уроках информатики в школе перешла к изучению Pascal. Стало интересно — что за задачи задают детям, учитывая, что до этого их терзали заучиванием определений. Среди ряда каких-то более-менее практических задачек особо выделяется своим идиотизмом, как по мне, задача про курочку Рябу, условие которой звучит следующим образом:

Курочка Ряба знесла яєчко, а мишка розбила його. Після цього Ряба знесла на К яєчок більше, але мишка знову їх розбила. Ряба піднатужилась і знесла знову на К яєчок більше, ніж попереднього разу, але безсовісна мишка розтрощила і ці. Так продовжувалось п’ять разів, поки Ряба не здалася. Зі скількох яєць Дід і Баба змогли б врешті-решт зробити собі яєчню?

И возникает вопрос — Курочка поддерживает Стахановское движение? Дед — принципиально противник мышеловок, или? Кошка — ее съели, или она убежала от голода?

Задача про Петю тоже ничего так:

Петрусь задумав число і нікому його не назвав. Друзі спіймали його і примусили подвоїти задумане число, а потім додати до нього 5. І тільки після того, як друзі пообіцяли Перусеві благодійну допомогу на контрольній з математиків, він зізнався, що вийшло число n. Визначте, яке число задумав і приховав від своїх друзів Петрусь?

Просто интересно — по какому принципу придумываются условия задач?

Собственно — решения чуть ниже, пишу просто для того, что бы кто-то нашел готовые и не парился со всякой ерундой.

Задача про Петю, которого пытали:
program petya;
var a: integer;
begin
writeln(‘Введите число, которое в итоге выбили с помощью угроз из Пети его друзья: ‘);
readln (a);
writeln(‘Оказывается, Петя задумал число ‘, (a-5)/2);
end.

Задача про курочку Рябу, Деда и Бабу, которые жили и не знали о существовании Кошек, или мышеловок:
program eggs;
var a: integer;
begin
writeln(‘На сколько больше снесла яиц курочка Ряба во второй раз?: ‘);
readln(a);
writeln(‘Если бы у Деда и Бабы была Кошка — Дед и Баба в итоге насладились бы яичницей из ‘, 1+(1+a)+(1+a+a)+(1+a+a+a)+(1+a+a+a+a) ,’ яиц’);
end.

Задача про машину, которая проедет сколько-то километров через сколько-то часов:
program car;
var a, b: integer;
begin
writeln(‘Введите скорость автомобиля: ‘);
readln(a);
writeln(‘Сколько часов ехал автомобиль: ‘);
readln(b);
writeln(‘За ‘, b,’ часа автомобиль проехал ‘, a * b,’ километров’);
end.

Задача про вычисление объема куба по его ребру:
program v;
var a: integer;
begin
writeln(‘Введите длину ребра куба: ‘); //т.к. в учебнике нет указания — какая фигура — исходим,что нужно считать объем куба 🙂
readln(a);
writeln(‘Объем куба равен ‘, exp(ln(a)*3));
end.

Спасибо за внимание!
Школьная программа — отстой, Министерство образования — уроды.
Sic!

Не забываем сделать репост на свою страницу в социальных сетях 😉

Pascal — задача про курочку Рябу

Pascal — задача про курочку Рябу