трудности с типами данных

[hasana]

код следующий...
проблема в том, что переменная y не может присвоить переменную h

uses graph;
var device,mode:integer;
y,s,v,t,x:integer;
h:real;
begin
device:=detect;
initgraph(device,mode,'');
setfillstyle(1,green);
line(0,440,640,440);
floodfill(300,450,wite);
setfillstyle(1,brown);
rectangle(560,40,680.440);
floodfill(600,350,white);
circle(550,30,10);
t:=1; v:=80;
while y>0 do begin
s:v*t;
h:=4*(100-9.81*sqr(t)/2);
x:=560-s;
y:=440-h;
setfillstyle(1,white);
circle(x,y,10);
floodfill(x,y,white); end;
readln;
closegraph
end.

[Grag]

Совершенно справедливо! Несовместимость типов данных...

[Alex Cones]

Великий Round поможет.

[p51x]

s:v*t;

Что сие значит у вас в коде?

[sunman]

переменные целого типа, не могут принимать значения вещественного. Возможно только наоборот. проще добавить y к типу real

Либо применять подобные функции:
Round(12.75) = 13
Trunc(12.75) = 12

[hasana]

Сообщение от p51x

s:v*t;

Что сие значит у вас в коде?

это формула... программа описывает падение камня с башни

[Aronax]

Сообщение от hasana

это формула... программа описывает падение камня с башни

он имеет ввиду что равно пропущено.

[hasana]

Сообщение от Aronax

он имеет ввиду что равно пропущено.

ааа, понятно, опечатка наверное...
а из паскаля на форум как можно скопиравать текст?

[ROMA2PVT]

открываешь .pas в текстовом редакторе.при надобности кодировку меняешь на дос и копируешь.