Программа на паскале Заполнить линейный массив по формуле c[i]=16*x-i/9-7. Created by nurr322. informatika-ru

9-7...

Giammy //PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var x:=ReadInteger('x=');
var c:=ArrGen(ReadInteger('Введите размер массива->'), i->16*x-(i+1)/9-7); c.Println;
end.

Пример:
x= 3
Введите размер массива-> 5
40.8888888888889 40.7777777777778 40.6666666666667 40.5555555555556 40.4444444444444

0 votes Thanks 1

smnoregrets PROGRAM A23;
const
    max = 42;
var
    с:array[1..max]of real;
    x:integer;
    i:byte;

BEGIN
writeln('Заполнить линейный массив по формуле c[i]=16*x-i/9-7');
write('Введите x='); readln(x);
writeln(' ');

writeln('Массив' );
for i:=1 to max do begin
    с[i]:=16*x - i/9 -7;
    write(с[i], ' ');
end;
END.

0 votes Thanks 0

Answers & Comments

tex]) [-5,5]. H=0.01...

5...

3 6 gde x prinadlezhit promezhutku ot 1 m s shagom h2

2 dlya a 012x

programma na paskal najti kolichestvo elementov massiva celyh chisel c14 bolsh

programma na paskal 9 vvoditsya proizvolnaya posledovatelnost celyh chisel na

programma na pascalabc nuzhno sdelat programmu i blok shemu vychislit 7x 15 x4

(48)...

sdelat blok shemu ili algoritm po proge program genialniykod var abcinteg

programma na paskal 20 zamenit k j element odnomernogo massiva na summu vseh

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

Helpful Links

Helpful Social