gdz.top
Страница 193 - гдз по информатике 8 класс учебник Босова, Босова
Авторы: Босова Л. Л., Босова А. Ю.
Тип: Учебник
Издательство: Просвещение
Год издания: 2023 - 2025
Уровень обучения: базовый
Цвет обложки: синий с котом
ISBN: 978-5-09-102543-9 (2023)
Допущено Министерством просвещения Российской Федерации
Популярные ГДЗ в 8 классе
Cтраница 193
Страница 192
№4 (с. 193)
Условие. №4 (с. 193)
4. Проанализируйте следующий цикл:
while a ‹ b do
c := a = b
В чем его особенность?
Решение. №4 (с. 193)
Ни a, ни b в теле цикла не меняются. Если условие выполняется, то программа будет зациклена (выполняться бесконечно), если не выполняется, то входа в цикл не будет. Также команда присваивания записана неверно.
№5 (с. 193)
Условие. №5 (с. 193)
5. Запишите на языке Паскаль программы решения задач № 3, 4, 6, 7 из § 3.6. Используйте оператор while.
Решение. №5 (с. 193)
№ 3
var
A, B, C: real;
years: integer;
begin
writeln('Введите начальный запас рыбы в пруду (в тоннах):');
readln(A);
writeln('Введите годовой план отлова (в тоннах):');
readln(B);
writeln('Введите наименьший запас рыбы (в тоннах):');
readln(C);
years := 0;
while A >= C do
begin
A := A + A * 0.15 - B;
years := years + 1;
end;
writeln('Количество лет: ', years);
end.
№ 4
var
s, a: integer;
k: integer;
begin
s := 0;
a := 5;
k := 0;
while s ‹ 324 do
begin
s := s + a;
a := a + 4;
k := k + 1;
end;
writeln('Количество слагаемых: ', k);
end.
№ 6
program vremja;
var a,x,l:real;
begin
a:=10000;
x:=10000/100*5;
l:=0;
writeln(‘Первоначальная сумма ‘,a,’ рублей’);
while a‹=20000 do
begin
a:=x+a;
l:=l+1
end;
writeln(‘Через ‘,1,’ год первоначальная сумма увеличится в 2 раза’);
end.
№ 7
var
x, v, n: integer;
begin
writeln ('x');
readln (x);
v := 0;
n := 1;
while n ‹ x do
begin
v:=v+3;
n:=n*2;
end;
writeln('Через ', v, ' времени будет ', x, ' амеб');
end.
№6 (с. 193)
Условие. №6 (с. 193)
6. Дана последовательность операторов:
a := 1;
b := 1;
repeat
a := a + 1;
b := b * 2
until b > 8;
s := a + b
Сколько раз будет повторено тело цикла и какими будут значения переменных a, b, s после выполнения этой последовательности операторов? Обсудите этот вопрос в группе.
Решение. №6 (с. 193)
Четыре раза. a=5; b=16; s=21.
| Количество шагов | a | b | b>8 | s |
| 0 | 1 | 1 | нет | - |
| 1 | 2 | 2 | нет | - |
| 2 | 3 | 4 | нет | - |
| 3 | 4 | 8 | нет | - |
| 4 | 5 | 16 | да | 21 |
№7 (с. 193)
Условие. №7 (с. 193)
7. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и подсчёт суммы всех введённых чисел. Используйте оператор rереаt.
Решение. №7 (с. 193)
Repeat в Паскале используется для организации повторений (итераций) с заранее неизвестным их числом. Цикл повторяется до тех пор, пока не станет истинным некоторое условие. repeat оператор 1; оператор 2; ...; операторN until условие {до тех пор, пока условие не станет истинным} repeat оператор1; оператор2; ...; операторN until условие {до тех пор, пока условие не станет истинным}.
var
c, s, k: integer;
begin
s:=0;
k:=0;
repeat
writeln ('Введите число');
readln (c);
s:=s+c;
k:=k+1;
until c=0;
writeln ('Сумма=', s);
end.
№8 (с. 193)
Условие. №8 (с. 193)
8. Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введён ноль) и определение максимального (наибольшего) из введённых чисел. Используйте оператор repeat.
Решение. №8 (с. 193)
var
c, k, max: integer;
begin
max:=c;
k:=0;
repeat
writeln ('Введите число');
readln (c);
if c> max then max:=c;
k:=k+1;
until c=0;
writeln ('Максимальное число=', max);
end.
Помогло решение? Оставьте отзыв в комментариях ниже.