Turbo Pascal

[Glu4it]

уря, доделал.

 

[Cris]

уря, доделал.

так покажи ж результаты твоих упрашиваний зделать, говорили ж сам бы уже за 2 дня зделалбы)

 

[Glu4it]

Uses Crt, Graph;
CONST seeing_page:Word=0;
Var Gd, Gm, x, y, a, b: Integer;

Begin
Gd:=ega;
GM:=egahi;
InitGraph(Gd, Gm, '');
If GraphResult <> grOk Then Halt(1);

x:=getmaxx div 2;
y:=getmaxy div 2;
a:=1;
b:=-1;
repeat
delay(5000);

if (x+(50)*a>=getmaxx) or (x+(50)*a<=0)
then a:=-a;
if (y+(50)*b>=getmaxy) or (y+(50)*b<=0)
then b:=-b;

x:=x+10*a;
y:=y+10*b;

setactivepage(0); cleardevice;
setcolor(15);
setlinestyle(solidln,4,normwidth);
setfillstyle(solidfill,1);
bar3d(x,y,x+50,y+50,15,topon);
setfillstyle(solidfill,4);
floodfill(x+20,y-3,15);
setfillstyle(solidfill,2);
floodfill(x+53,y+10,15);
delay(5900);
setactivepage(1); cleardevice;
setactivepage(1-seeing_page); setvisualpage(seeing_page);
setcolor(black);
setlinestyle(solidln,4,normwidth);
setfillstyle(solidfill,black);
bar3d(x,y,x+50,y+50,15,topon);


until keypressed;
end.
ReadLn;
CloseGraph;
End.

Всем спасибо

 

[DrapokyR]

1. Скаласти програму для знаходження добутку всiх непарних чисел менших за 100!

2. Скаласти програму для знаходження суми вcix парних чисел менших N

 

[Пух]

1я

program lol1;
uses crt;
var i,s:integer;
begin
clrscr;
i:=1;
s:=1;
while i<100 do
begin
s:=s*i;
i:=i+2;
end;
write("добуток = ",s);
readkey;
end.

2я

program lol2;
uses crt;
var i,s,n:integer;
begin
clrscr;
i:=2;
s:=0;
write("введите N: "),
readln(n);
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
write("сума = ",s);
end.

 

[Piva]

Люди надо найти добуток первых десяти чисел...тоесть зделат как бы таблицу умножения...ХЭЛП!=)

 

[Cris]

Люди надо найти добуток первых десяти чисел...тоесть зделат как бы таблицу умножения...ХЭЛП!=)

program gg;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 9 do
writeln(i,' * ',j,' = ',i*j);
end;

 

[Пионерка]

Люди добрые....помогите

Составить программу обработки одномерного массива. Значения выводить в формате 4:2:
Дан одномерный массив действительных чисел, состоящий из 6 элементов. Определить сумму отличных от нуля элементов с четными номерами.

 

[Пух]

Люди добрые....помогите

Составить программу обработки одномерного массива. Значения выводить в формате 4:2:
Дан одномерный массив действительных чисел, состоящий из 6 элементов. Определить сумму отличных от нуля элементов с четными номерами.

program massiv;
uses crt;
var a:array[1..6] of real;
s:real;
i:byte;
begin
clrscr;     //очищаем экран  
  for i:=1 to 6 do   // вводим элементы в массив
    read(a[i]);
clrscr;    //очищаем экран
write('Массив: ');
  for i:=1 to 6 do     //выводим массив на экран
  write(a[i]:4:2,' ');
readln;
s:=0;
 for i:=1 to 6 do
  begin
   if (i mod 2 = 0) and (a[i]<>0) then     //проверка на парность порядкового номера и на то, равен элемент нулю или нет.
  s:=s+a[i];
  end;

gotoxy(1,3);
write('Сумма равна ',s:4:2);       // выводим сумму на экран
readln; 
end.

не проверял, но вроде так)
хотя не совсем понятно, какая разница равно число нулю или нет. Если убрать проверку на "ноль", то сумма ж от этого не изменится...
если вместо суммы нужно произведение(логичней было б), то вместо строки s:=0 ставим строку s:=1 и вместо s:=s+a ставим s:=s*a...

 

[Пионерка]

не проверял, но вроде так)
хотя не совсем понятно, какая разница равно число нулю или нет. Если убрать проверку на "ноль", то сумма ж от этого не изменится...
если вместо суммы нужно произведение(логичней было б), то вместо строки s:=0 ставим строку s:=1 и вместо s:=s+a ставим s:=s*a...

Спасибо,всё работает)) По поводу нуля согласна,он тут явно ничего не меняет..
а что делает команда gotoxy(1,3);?