Turbo Pascal

Glu4it

Member
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

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

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

Пух

كنت بلهاء
Модератор

Piva

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

Пионерка

MuzZ♥z♥Zz♥
Люди добрые....помогите:)

Составить программу обработки одномерного массива. Значения выводить в формате 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...
 
Останнє редагування:

Пионерка

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


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