Вывести номера второго, четвертого и пятого положительных элементов массива - Pascal ABC
Формулировка задачи:
Помогите пожалуйста!! Одномерный массив!в Pascal ABC )
Создать и вывести массив у с элементами yk = cos2.1*x*sin (x/0.15)-5.8, k = 16. Выполнить задание своего варианта. Вывести номера второго, четвертого и пятого положительных элементов.
Решение задачи: «Вывести номера второго, четвертого и пятого положительных элементов массива»
textual
Листинг программы
program arrays23;
const
k=16;
var
y:array[1..k] of real;
n,i:integer;
x:real;
begin
// readln(x); как меняется x?
for i:=1 to k do
begin
y[i] := cos(2.1)*i*sin(i/0.15)-5.8;
writeln(y[i]:0:2,' ');
end;
writeln;
n:=0;
for i:=1 to k do
if y[i]>0 then
begin
inc(n);
if n=2 then
writeln('2-st positive: ',i);
if n=4 then
writeln('4-st positive: ',i);
if n=5 then
writeln('5-st positive: ',i);
end;
readln;
end.
Объяснение кода листинга программы
Этот код написан на языке Pascal ABC и выполняет следующие действия:
- Объявляет переменные: k (равное 16), y (массив из 16 элементов типа real), n (целое число) и i (целое число).
- Задает начальное значение для переменной n, которая будет использоваться для отслеживания количества найденных положительных элементов.
- Запускает цикл for, который выполняется k раз (от 1 до 16).
- Внутри цикла вычисляет значение каждого элемента массива y, используя формулу y[i] = cos(2.1)isin(i/0.15)-5.8.
- Выводит значение каждого элемента массива y с префиксом '2-st positive: ', если n равно 2, '4-st positive: ', если n равно 4, и '5-st positive: ', если n равно 5.
- Увеличивает значение переменной n, если текущий элемент массива y больше нуля.
- Проверяет, равно ли значение переменной n 2, 4 или 5, и выводит соответствующую строку в зависимости от этого.
- Выводит сообщение 'Read more' и ожидает ввода пользователя.
- Конец программы.