Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0 - Pascal
Формулировка задачи:
Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интревале от 3.5 до 4.0, предшествующих первому отрицательному в последовательности чисел.
я нашел подобную задачу, но она не до конца удовлетворяет условию
[
прога дожна выводить все числа (в интервале от 3.5 до 4) которые располагаются до отрицательного числа
помогите плиз, что можно сделать?)
вот почти получилось)
но програма выдает только одно число следующее до отрицательного
а нужно чтобы выводила все
подскажите ктонить как это сделать?)
Решение задачи: «Дана последовательность из 10 чисел.Вывести на экран одной строкой числа в интервале от 3.5 до 4.0»
textual
Листинг программы
uses crt; var mas:array[1..10] of real; i:integer; begin clrscr; writeln('ввод десяти чисел'); for i:=1 to 10 do readln(mas[i]); i:=1; while mas[i] > 0 do begin if (mas[i] > 3.5) and (mas[i] < 4) then write(mas[i]:5:3, ' '); inc(i); end; end.
Объяснение кода листинга программы
- В программе используется стандартная библиотека CRT (C Run-Time), позволяющая работать с консолью.
- Объявлен массив
mas
типа array[1..10] of real, который будет хранить 10 чисел. - Также объявлена переменная
i
типа integer, которая будет использоваться в качестве счетчика для цикла. - При помощи функции clrscr очищается экран перед выводом.
- Выводится сообщение
ввод десяти чисел
. - Используя цикл for, программа считывает 10 чисел с помощью функции readln() и сохраняет их в массиве
mas
. - После заполнения массива, цикл while начинается. Он будет выполняться до тех пор, пока значение элемента массива
mas
больше 0. - Внутри цикла есть условие if, которое проверяет, находится ли текущее число в диапазоне от 3.5 до 4.0.
- Если число находится в указанном диапазоне, то оно выводится на экран с помощью функции write(). При этом числа выводятся в формате 5 знаков после запятой, а затем записывается пробел.
- После вывода числа, счетчик
i
увеличивается на 1. - Цикл while продолжается до тех пор, пока не будет выполнено условие окончания цикла (массив
mas
полностью пройден). - Программа завершается.