[deleted]
( off
)
(
07:41 08-11-2008
)
Могут выгнать из универа. Не знаю как написать програмку
Flash
( off
)
(
17:39 08-11-2008
)
Что за фри паскаль?и в чем проблема?
[deleted]
( off
)
(
19:26 08-11-2008
)
Это язык програмирования. Нужно помоч написать програмку.
Gaist-Endruy
( off
)
(
22:07 08-11-2008
)
Цитата: DJskin
Это язык програмирования. Нужно помоч написать програмку.
Давай излогай какую ПО тебе нужно настряпать. Настряпаю.
Gaist-Endruy
( off
)
(
22:10 08-11-2008
)
Напиши в личку.
Gaist-Endruy
( off
)
(
10:13 09-11-2008
)
// Фрагмент программы:
n:=0;
repeat
n:=n+1;
u:=cos(cos(n)/sin(n));
until u<0;
// 2) Пусть a0=a1=1; a k=a k-2+a k-1/2k-1 (k=2,3,...).
// Найти произведение a0a1...a14.
// Решение задачи может быть таким:
var
a,a0,a1,p:real;
st,k:integer;
begin
a0:=1; a1:=1; p:=a0*a1; st:=2; k:=2;
repeat
a:=a0+a1/st;
p:=p*a;
k:=k+1;
a0:=a1;
a1:=a;
st:=st*2;
until k>14;
write('p=',p);
end.
// Конец программы.
Gaist-Endruy
( off
)
(
10:15 09-11-2008
)
Это якобы исходник, если нужно то могу склепать и программу, просто нет компилятора установленого но могу установить. Тебе нужно ПО? Или это подойдет.
[deleted]
( off
)
(
11:09 09-11-2008
)
Чувак.! Нужно по! Но если что, то спасиба огромное!
Gaist-Endruy
( off
)
(
12:07 09-11-2008
)
Цитата: DJskin
Чувак.! Нужно по! Но если что, то спасиба огромное!
ну счас тогда подожди, я компилятор установлю.
Gaist-Endruy
( off
)
(
12:44 09-11-2008
)
Цитата: DJskin
Чувак.! Нужно по! Но если что, то спасиба огромное!
Ну, на держи. Внутри и программа и исходник на всякий случай.
Прикрепленный файл .zip:
скачать
(25.3Kb)
)