так покажи ж результаты твоих упрашиваний зделать, говорили ж сам бы уже за 2 дня зделалбы)уря, доделал.
Всем спасибо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.
2я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.
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.
Люди надо найти добуток первых десяти чисел...тоесть зделат как бы таблицу умножения...ХЭЛП!=)
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 элементов. Определить сумму отличных от нуля элементов с четными номерами.
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...