04-05-2005, 16:15
|
|
|
חבר מתאריך: 11.04.05
הודעות: 12
|
|
בעיה בתוכנית בפסקל
מוזר רצח אני דווקא מקמפל דיי הרבה ב C \ C++ ופרל
ועכשיו הפסקל עושה לי בעיות ואין לי מושג למה
אממ מי שמבין בבקשה לעזור לי לתקן
קוד:
program ghghg;
uses Graph;
var
Gd, Gm: Integer;
Radius: Integer;
x,y,z: real;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'c:\tp7\bgi ');
settextstyle(8,horizDir,2);
writeln (' 888b d 888 888 ');
writeln (' 88 ');
writeln (' 88888b d8 888 888 ');
writeln (' 888Y8888b d88b 888 888 ');
writeln (' 8Y8b 888 88P ');
writeln (' 88888888888 888888K ');
writeln (' 88b ');
writeln (' 888 ');
outtextxy(80,120, ' Own This Work ! ');
writeln('This program is going to teach you How calc a cirlce size! ');
writeln('My program will multiply the Radius that the user will insert , with the Pai ');
writeln('And then the User will get the circle size with numberz and on screnn circle ');
writeln('The radius is the line between the center of the circle into it ');
writeln('Please insert your Radius ');
readln(x);
z:=3.141592;
y:=z*x ;
Outtextxy(20,120, 'The Circle Size is : 'y );
if GraphResult <> grOk then
Halt(1);
setbkcolor(7);
Circle(200, 300, y );
Readln;
CloseGraph;
end.
|