Turbo Pascal

[stan]

Tom d`Cat, пасибо большое

 

[Tom d`Cat]

Вообще говоря, во втором примере следовало писАть результаты в файлы - чтобы снять ограничение. Но для этого надо реализовать посимвольное сложение... Тож лень

 

[stan]

Вообще говоря, во втором примере следовало писАть результаты в файлы - чтобы снять ограничение. Но для этого надо реализовать посимвольное сложение... Тож лень

Да мне главное чтобы работало. Я с этим программированием никак разобраться не могу

 

[Бобер]

Народ, нужена простинькая графика(рисунок), выручайте.

 

[KoLoB]

Народ, помогите плиз.
Задачи элементарные, просто надо паралельно ещё кучу всего сделать и не хватает времени.

Условие во вложении.

 

[Tepesh]

Народ, нужена простинькая графика(рисунок), выручайте.

Program BAr;
 Uses Graph;
 Var
 Gd, Gm : Integer;
 Y0, Y1, Y2, X1, X2 : Integer;
 Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 Y0:=10;
 Y1:=60;
 Y2:=110;
 X1:=10;
 X2:=50;
 Bar3D(X1, Y0, X2, Y1, 10, TopOn);
 Bar3D(X1, Y1, X2, Y2, 10, TopOff);
 ReadLn;
 CloseGraph;
End.

Подскажите пожалсто
задача
Вычислите сулу положительных целых чисел больше 20 и меньше 100 крантых 3..

как вписать в цылке кратых 3
I - число S - сумма

repeat
S:=S+I;
I:=I????;
until I>20 and I>=100;

 

[Hamster]

i mod 3 = 0

 

[Tepesh]

ужє сам разчихлил

S:=0;
I:=21;
repeat
S:=S+I;
I:=I+3;
until I>=100

вот можєт камуто пригодицо

 

[Tepesh]

Проверьте плизз

Вічислить суму:
2+3/2+4/3+5/4+...30/29

PROGRAM abs;
  USES CRT;
  VAR I,S:Integer;
  Ch:CHAR;
 BEGIN
  TEXTBACKGROUND(0);
  TEXTCOLOR(2);
  ClrScr;
   S:=0;
   I:=1;
  REPEAT
   S:=S+I mod I+1;
   I:=I+1;
  UNTIL I>=29;
  GOTOXY(20,12);
  WRITELN('S=',S);
  ch:=ReadKey
 END.

мой ответ S=29

Вывести на екран таблицу значений функции cos(x) от 0 до Pi/2 с шагом 0.1 cos(0)=1 --- шото не доходит 8(((

 

[Hamster]

for i:=1 to 29 do
begin
s:=s+(i+1)/i;

end;