HELP PLIZ

← →
element © (2006-01-10 11:15) [0]

Народ помогите плиз перевести проги из pascala в delphi ...очень нужно

Задача 1.7. Даны действительное число а и натуральное число n. Вычислить
.
1/a+1/a^2+1/a^4+…+1/a^2n

1)
var
n,i :integer; {i-zna4enie n poslednee}
s,s2:real; {s-otvet}{s2obwaya summa}

begin

writeln("введи n");
read(i); {чтении n макс--заноситься в i}
writeln("vvedi a");
read(a);
n:=0;
repeat {nachalo cikla}
n:=n+1;
s:=(1 /exp((2*n)*ln(a)));
s2:=s2+s;

until n=i; {konec cikla}
writeln("ваш ответ =",s2:6:2);
readln;
end.

Задача 2.19. Даны натуральное число n, действительное число х, действительная матрица размера n на 2n. Получить последовательность b1, b2,...,bn из 0 и 1, где bi =1, если элементы
i–й строки матрицы не превосходят х и bi =0 в противном случае.

2)
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
n=3;
var
i, j: Byte;
x: Real;
sum: Boolean;
mas: Array[1..n,1..2*n] of Real;
oimas: Array[1..n] of Byte;
begin
Write("Vvedite x: "); ReadLn(x);
For i:= 1 to n do
begin
sum:= False;
oimas[i]:= 1;
For j:= 1 to (2*n) do
begin
Write("Vvedite ", i, " * ", j, "element matricy: ");
ReadLn(mas[i,j]);
if mas[i,j]>x then sum:= True;
end;
if sum then oimas[i]:= 0;
end;
WriteLn;
WriteLn("Vot polu4ivwaqsq matrica:");
WriteLn;
For i:= 1 to n do
begin
For j:= 1 to (2*n) do
Write(mas[i,j]:0:3, " ");
WriteLn;
end;
WriteLn;
WriteLn("Vot massiv pokazyvauwii sootnowenie elementov strok i 4isla X: ");
For i:= 1 to n do
Write(oimas[i], " ");
ReadLn;
end.

← →
Rouse_ © (2006-01-10 11:26) [1]

А скомпилить в Дельфе пробовал?

HELP PLIZ Найти похожие ветки