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!

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

Support the Blog!

Running a blog takes a lot of effort, time, and passion. Your donations help improve the content, inspire new ideas, and keep the project going.
If you’ve enjoyed the blog’s materials, any support would mean the world to me. Thank you for being here! ❤️

PayPal Logo Donate via PayPal

Revolut Logo Donate via Revolut

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

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

Support the Blog!

Running a blog takes a lot of effort, time, and passion. Your donations help improve the content, inspire new ideas, and keep the project going.
If you’ve enjoyed the blog’s materials, any support would mean the world to me. Thank you for being here! ❤️

PayPal Logo Donate via PayPal

Revolut Logo Donate via Revolut