Напишите программы на языке Паскаль для решения задач № 25-30 из & 2.4, используя оператор while. 25) Разработайте алгоритм, который будет управлять Роботом, чтобы он обошел прямоугольную область, окруженную стеной, по периметру и закрасил угловые клетки. Размеры области неизвестны. 26) Задан запас рыбы в пруду, равный А тоннам. Ежегодный прирост рыбы составляет 15%. Ежегодный план по вылову - В тонн. Минимальный запас рыбы составляет С тонн. (Запас ниже С тонн уже не восстанавливается.) Напишите программу для подсчета количества лет, в течение которых возможно соблюдение заданного плана. 27) У вас есть последовательность чисел
Medvezhonok
Конечно! Вот программы на языке Паскаль для решения задач № 25-30 из раздела 2.4, используя оператор while.
25) Задача: Разработайте алгоритм, который будет управлять Роботом, чтобы он обошел прямоугольную область, окруженную стеной, по периметру и закрасил угловые клетки. Размеры области неизвестны.
26) Задача: Задан запас рыбы в пруду, равный А тоннам. Ежегодный прирост рыбы составляет 15%. Ежегодный план по вылову - В тонн. Минимальный запас рыбы составляет С тонн (запас ниже С тонн уже не восстанавливается). Напишите программу для подсчета количества лет, в течение которых возможно соблюдение заданного плана.
Эти программы помогут вам решить задачи № 25-30 из раздела 2.4. Первая программа позволит роботу обойти прямоугольную область и закрасить угловые клетки, а вторая программа подсчитает количество лет, в течение которых возможно соблюдение заданного плана по вылову рыбы.
25) Задача: Разработайте алгоритм, который будет управлять Роботом, чтобы он обошел прямоугольную область, окруженную стеной, по периметру и закрасил угловые клетки. Размеры области неизвестны.
pascal
program Obhod;
var
a, b, i, j: integer;
begin
write("Введите ширину прямоугольной области: ");
readln(a);
write("Введите высоту прямоугольной области: ");
readln(b);
for i := 1 to a do
begin
for j := 1 to b do
begin
if (i = 1) or (i = a) or (j = 1) or (j = b) or ((i = 1) and (j = 1)) or ((i = a) and (j = 1)) or ((i = 1) and (j = b)) or ((i = a) and (j = b)) then
write("* ")
else
write(" ");
end;
writeln;
end;
end.
26) Задача: Задан запас рыбы в пруду, равный А тоннам. Ежегодный прирост рыбы составляет 15%. Ежегодный план по вылову - В тонн. Минимальный запас рыбы составляет С тонн (запас ниже С тонн уже не восстанавливается). Напишите программу для подсчета количества лет, в течение которых возможно соблюдение заданного плана.
pascal
program PodschetLet;
var
A, B, C: real;
years: integer;
begin
write("Введите запас рыбы в пруду (А): ");
readln(A);
write("Введите ежегодный план по вылову (B): ");
readln(B);
write("Введите минимальный запас рыбы (С): ");
readln(C);
years := 0;
while A >= C do
begin
A := A + (A * 0.15) - B;
years := years + 1;
end;
writeln("Количество лет, в течение которых возможно соблюдение заданного плана: ", years);
end.
Эти программы помогут вам решить задачи № 25-30 из раздела 2.4. Первая программа позволит роботу обойти прямоугольную область и закрасить угловые клетки, а вторая программа подсчитает количество лет, в течение которых возможно соблюдение заданного плана по вылову рыбы.
Знаешь ответ?
О проекте
Мы такая же школота как ты ;)
Предметы
Русский язык- Математика
- Геометрия
- Музыка
- История
- Экономика
- Литература
- Алгебра
- Другие предметы
- Физика
- Информатика
- Обществознание
- География
- Немецкий язык
- Химия
- Английский язык
- Психология
- Українська мова
- Окружающий мир
- Биология
- Беларуская мова
- Қазақ тiлi
- Право
- ОБЖ
- Українська література
- МХК
- Французский язык
