var
a:array[1..20] of real;
c:array[1..20] of real;
b:array[1..2,1..20] of real;
n,m,i,j,y:integer;
begin
writeln('enter n: ');
readln(n);
writeln('enter m: ');
readln(m);
if n<m then
begin
for i:=1 to 2 do
begin
for j:=n to m do
begin
b[1,j]:=exp(1/j)-sin(4*j); write(b[1,j]:5:2,' '); b[2,j]:=j; writeln(b[2,j]:5:2,' ');
end;
end;
end
else
begin
for j:=1 to 2 do
begin
for i:=m to n do
begin
b[1,i]:=exp(1/j)-sin(4*j); write(b[1,j]:5:2,' '); b[2,i]:=i; writeln(b[2,j]:5:2,' ');
end;
end;
end;
readln;
end.
Paskal.столбцы чисел
Цитата:
Составить программу на языке Pascal, которая выводит в два столбца значения переменной x и функции f(x);
f(x)=exp(1/x)-sin4x;
f(x)=exp(1/x)-sin4x;
йа тут набрал кой чего мне хотелось бы какнить столбцы в массив "b" затолкать (с массивами у меня канечно проблемы в знаниях :))
Я тут немного пое...эксперементировал теперь вроде столбики рисует - проблема теперь в том что он не в том порядке их выставляет в кмком нада !!!!
program ggg;
Код:
[COLOR="Red"]Оформляй код по Правилам.модератор.[/COLOR]
Цитата:
Paskal
Pascal ;)
Вот, чуть попеределал :)
Код:
var
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[1,i]:=i;
write(b[1,i]:3:0, ' ');
b[2,i]:=exp(1/i)-sin(4*i);
write(b[2,i]:3:2);
Writeln;
end;
readln;
end.
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[1,i]:=i;
write(b[1,i]:3:0, ' ');
b[2,i]:=exp(1/i)-sin(4*i);
write(b[2,i]:3:2);
Writeln;
end;
readln;
end.
А вообще, я бы предложил написать небольшую функцию (ведь в задании именно про функцию говориться ;) ):
Код:
function f(x:Integer):Real;
begin
Result := exp(1/x)-sin(4*x);
end;
begin
Result := exp(1/x)-sin(4*x);
end;
И вызывать её соответсвенно вот так: b[2,i]:=f(i);
Нада 1 столбик икс второй игрек а у мну наоборот!!!
Код:
var
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[2,i]:=i;
write(b[2,i]:3:0, ' ');
b[1,i]:=exp(1/i)-sin(4*i);
write(b[1,i]:3:2);
Writeln;
end;
readln;
end.
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[2,i]:=i;
write(b[2,i]:3:0, ' ');
b[1,i]:=exp(1/i)-sin(4*i);
write(b[1,i]:3:2);
Writeln;
end;
readln;
end.
Так?
Так чтоли:
Цитата:
var
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
function f(x:Integer; var result:real):real;
begin
Result := exp(1/x)-sin(4*x);
end;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[1,i]:=i;
write(b[1,i]:3:0, ' ');
b[2,i]:=f(i);
write(b[2,i]:3:2);
Writeln;
end;
readln;
end.
b:array[1..2,1..20] of real;
n, m, i, min, max: integer;
function f(x:Integer; var result:real):real;
begin
Result := exp(1/x)-sin(4*x);
end;
begin
write('enter n: ');
readln(n);
write('enter m: ');
readln(m);
if n<m then
begin
min := n;
max := m;
end
else
begin
min := m;
max := n;
end;
for i := min to max do
begin
b[1,i]:=i;
write(b[1,i]:3:0, ' ');
b[2,i]:=f(i);
write(b[2,i]:3:2);
Writeln;
end;
readln;
end.
Подчеркивает b[2,i]:=f(i); последнюю скобочку и ошибку выдает 87: ',' expented;
Не не у тебя всё правильно было у меня он выдавал столбцы неправильно !!