Выполнить значение функции y=kx+b на отрезке [-2; 2] с шагом 2. k и b ввести с клавиатуры. решение с оператором repeat и while. и если не трудно, то блок-схемы.
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016) begin var k:real; var b:real; repeat k := ReadReal('Введите k'); b := ReadReal('Введите b'); until k <> 0; var x := -2; while x <= 2 do begin print(k * x + b); x := x + 2; end; end.
1) Не понятно задание, в комментах допишу, как только пойму. 2)var t,c:array [1..10] of integer; i,sum:integer; begin for i:=1 to 10 do begin t[i]:=random(20+i); c[i]:=random(20000+i); end; for i:=1 to 10 do begin sum:=sum+t[i]*c[i]; end; for i:=1 to 10 do begin writeln('Количество товара ',i,' вида ',t[i],' Стоимость товара ',i,' вида ', c[i]); end; writeln('Общая сумма ',sum); end. 3) Мы опишем его так ves: array [1..31] of real; 4) var sum,x:real; n,i:integer; begin read(n); for i:=1 to n do begin read(x); sum:=sum+x; end; writeln(sum/n); end.
1) Не понятно задание, в комментах допишу, как только пойму. 2)var t,c:array [1..10] of integer; i,sum:integer; begin for i:=1 to 10 do begin t[i]:=random(20+i); c[i]:=random(20000+i); end; for i:=1 to 10 do begin sum:=sum+t[i]*c[i]; end; for i:=1 to 10 do begin writeln('Количество товара ',i,' вида ',t[i],' Стоимость товара ',i,' вида ', c[i]); end; writeln('Общая сумма ',sum); end. 3) Мы опишем его так ves: array [1..31] of real; 4) var sum,x:real; n,i:integer; begin read(n); for i:=1 to n do begin read(x); sum:=sum+x; end; writeln(sum/n); end.
begin
var k:real;
var b:real;
repeat
k := ReadReal('Введите k');
b := ReadReal('Введите b');
until k <> 0;
var x := -2;
while x <= 2 do
begin
print(k * x + b);
x := x + 2;
end;
end.