Дана последовательность из N вещественных чисел. Переменной t присвоить значение...

July 2022 1 6 Report

Дана последовательность из N вещественных чисел. Переменной t присвоить значение true, если в последовательности нет нулевых элементов. Написать программу для Pascal ABC и блок-схему. Студенческий уровень.

Answers & Comments

ManyGames Var
N, i: integer;
x: real;
t: boolean;

begin
readln(N);
i := 0;
repeat
i := i + 1;
Readln(x);
until (x < 0.001) or (i = N);
t := x > 0.001;
writeln(t)
end.

2 votes Thanks 2

parodira А можешь через for написать?

ManyGames А смысл?

ManyGames Через for придётся использовать оператор break. Здесь же цикл завершается, как только вводится нулевой элемент (т.к. вещественный тип представлен в компьютере приближенно, мы сравниваем не с нулём, а с 0.001 (это число может задать сам пользователь)). Ну а так могу через for написать, но решение будет неэффективное.

parodira Напишите пожалуйста))

ManyGames В лс

Answers & Comments

vyyasnit uporyadocheny li cifry v zapisi chisla po ubyvaniyu napisat programmu v

dana posledovatelnost iz n veshestvennyh chisel peremennoj t prisvoit znachenie

najti koordinaty vseh vershin parallelogramma esli izvestny koordinaty odnoj ver

pomogite 10 klass prover sebya po teme stepennaya funkciya zadaniya na foto

teachers husband

hotya by horoshij perevod srochno mnogo ballov

рекомендуемые вопросы

Helpful Links

Helpful Social