نصب برنامه پاسکال

[آرتیمیس]

سلام میشه مراحل نصب پاسکال رو بنویسید؟:-?

[shafiei7]

سلام
مرحله خاصی نداره, شما برنامش مثل همه برنامه های دیگه نصب میکنی البته اگر تحت ویندوز باشه و اگر تحت داس باشه نیاز به نصب نداره و یکراست اجرا میشه.

[آرتیمیس]

---------- Post added at 04:12 PM ---------- Previous post was at 04:10 PM ----------

[/COLOR]من نصب کردم ولی فقط یه پوشه توربو پاسکال در قسمت programfile ویندوز ساخت

[shafiei7]

داخلش فایل اجرایی نداره؟ و اینکه شاید با نسخه ویندوزت سازگار نیست.

[آرتیمیس]

داخلش فایل اجرایی نداره؟ و اینکه شاید با نسخه ویندوزت سازگار نیست.

فایل اجرایی نداره فقط چند تا پوشه هست :106:

[1eng.ir]

فایل اجرایی نداره فقط چند تا پوشه هست :106:
تو فولدر bin باید فایل اجراییش باشه

[آرتیمیس]

تو فولدر bin باید فایل اجراییش باشه

فقط چندتا فایل داس هست :-s

[1eng.ir]

فقط چندتا فایل داس هست :-s
همیناست دیگه :دی
ببین کدومش توربو پاسکاله، همونو اجرا کن

[آرتیمیس]

مشکلم حل شد ممنون از راهنماییتون:53::53::53:

---------- Post added at 06:00 PM ---------- Previous post was at 05:16 PM ----------[COLOR="Silver"]

---------- Post added at 06:04 PM ---------- Previous post was at 06:01 PM ----------

برنامه رو نوشتم ولی بعد ازاینکه Run رو کلیک می کنم چیزی اجرا نمیشه:39:

[Sajad]

uses wincrt;
زدی ؟ برنامه که نوشتی رو بذار....

[آرتیمیس]

program P1;
uses CRt;
Begin

write('this is test');
End.

[Sajad]

شما نسخه ویندوزی نصب کردی.
باید wincrt بزنی.... crt مال نسخه داس هست....

[آرتیمیس]

شما نسخه ویندوزی نصب کردی.
باید wincrt بزنی.... crt مال نسخه داس هست....

خوب این Error رو میده:
File not found(WinCRT.TPu)
:-b

[Sajad]

مطمئنی کامل نصب کردی ؟

شما این نسخه رو به روشی که میگم نصب کن راحت و آسوده ! نسخه داس هست.

1- دانلود برنامه:

دانلود نرم فزار با حجم ۲ مگابایت (http://dl.kamyabonline.com/download/program/Turbo%20Pascal%207.0.exe)
پاسورد فایل : www.kamyabonline.com (http://www.kamyabonline.com/)

2- آنزیپش کن

3- یه فلدر به نام tp داخل درایو c بساز

4- محتویات فایل آنزیپ شده رو به مسیر c:\tp منتقل کن.

5- برو توی c:\tp و فایل برنامه رو اجرا کن (آیکونش معلومه)

6- تو این نسخه باید uses crt; استفاده بشه

7- حالشو ببر

8- مشکلی بود خبر کن

[آرتیمیس]

مطمئنی کامل نصب کردی ؟

شما این نسخه رو به روشی که میگم نصب کن راحت و آسوده ! نسخه داس هست.

1- دانلود برنامه:

دانلود نرم فزار با حجم ۲ مگابایت (http://dl.kamyabonline.com/download/program/Turbo%20Pascal%207.0.exe)
پاسورد فایل : www.kamyabonline.com (http://www.kamyabonline.com/)

2- آنزیپش کن

3- یه فلدر به نام tp داخل درایو c بساز

4- محتویات فایل آنزیپ شده رو به مسیر c:\tp منتقل کن.

5- برو توی c:\tp و فایل برنامه رو اجرا کن (آیکونش معلومه)

6- تو این نسخه باید uses crt; استفاده بشه

7- حالشو ببر

8- مشکلی بود خبر کن

این erorr رو میده
Begin expected
:71:

[Sajad]

کجا این ارور رو میده ؟ سیستم عاملت چیه ؟ چند بیت ؟

[آرتیمیس]

کجا این ارور رو میده ؟ سیستم عاملت چیه ؟ چند بیت ؟

سیستم عاملم ویندوزه بعد از اینکه دستورات رو توی پاسکال نوشتم برای اجرا این پیغام رو میده

[Sajad]

برنامه ای که مینویسی رو بذار.....
اگه عمومی نمیخوای توی پ خ ارسال کن
به صورت کامل

[آرتیمیس]

برنامه ای که مینویسی رو بذار.....
اگه عمومی نمیخوای توی پ خ ارسال کن

program P1
Uses CRT;
Begin
Write ('test');
end.

[Sajad]

سمیکلان بعد از program P1 نذاشتی

[آرتیمیس]

سمیکلان بعد از program P1 نذاشتی

توی برنامه گذاشتم

[Sajad]

توی massege ها میگه کجای کار مشکل داره....



این برنامه رو اجرا کن ببین مشکل داره باهاش و اگه داره ببین تو Massegeها چی مینویسه اونو بذار...



uses

crt;

var

adad: array [1..255] of integer;
inter,tak,amal:string;
e,c,w,i,j,tol,io,v,z,y,iop:integer;
adad1,adad2:longint;
op,opera:char;
flag:boolean;
save:text;

begin

clrscr;
write ('Please Inter Formula (for example 2+3) : ');
repeat
flag:=true;
readln (inter);
tol:= length(inter);
if tol=0 then
begin
write ('it is blank... please try again: ');
flag:=false;
end;
for i:= 1 to tol do
begin
tak:= inter [i];
if tak='0' then adad [i]:= 0 else
if tak='1' then adad [i]:= 1 else
if tak='2' then adad [i]:= 2 else
if tak='3' then adad [i]:= 3 else
if tak='4' then adad [i]:= 4 else
if tak='5' then adad [i]:= 5 else
if tak='6' then adad [i]:= 6 else
if tak='7' then adad [i]:= 7 else
if tak='8' then adad [i]:= 8 else
if tak='9' then adad [i]:= 9 else
if tak='+' then adad [i]:= 10 else
if tak='-' then adad [i]:= 20 else
if tak='/' then adad [i]:= 30 else
if tak='*' then adad [i]:= 40 else
begin
write ('invalid format. please try again: ');
flag:=false;
break;
end;
end;
for i:= 1 to tol do
begin
j:=adad[i];
if (j=10) or (j=20) or (j=30) or (j=40) then
begin
z:=i+1;
for c:= z to tol do
begin
y:=adad[c];
if (y=10) or (y=20) or (y=30) or (y=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
break;
end;
end;

end;
end;
v:=adad[1];
if (v=10) or (v=20) or (v=30) or (v=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;
w:=adad[tol];
if (w=10) or (w=20) or (w=30) or (w=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;

for i := 2 to tol-1 do
begin
w:=adad[i];
if (w=10) or (w=20) or (w=30) or (w=40) then
begin
io:=adad[i];
iop:=i;
break;
end
else
if (i=tol-1) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;

end;
until flag=true;
case io of
10 : op:='+';
20 : op:='-';
30 : op:='/';
40 : op:='*';
end;

assign (save,'save.dat');
rewrite (save);
writeln (save,op);
for i:= 1 to iop-1 do
write (save,adad[i]);
writeln(save,'');
for i:= iop+1 to tol do
write (save,adad[i]);
close (save);
reset (save);
readln (save,opera);
readln (save,adad1);
readln (save,adad2);
close(save);

writeln (adad1,' ',opera,' ',adad2);
write ('Result: ');
case opera of
'+' : Write (adad1+adad2);
'-' : Write (adad1-adad2);
'*' : Write (adad1*adad2);
'/' : Write (adad1/adad2);
end;
writeln;
write ('Press enter to exit...');
readln;
end.

[آرتیمیس]

توی massege ها میگه کجای کار مشکل داره....



این برنامه رو اجرا کن ببین مشکل داره باهاش و اگه داره ببین تو Massegeها چی مینویسه اونو بذار...



uses

crt;

var

adad: array [1..255] of integer;
inter,tak,amal:string;
e,c,w,i,j,tol,io,v,z,y,iop:integer;
adad1,adad2:longint;
op,opera:char;
flag:boolean;
save:text;

begin

clrscr;
write ('Please Inter Formula (for example 2+3) : ');
repeat
flag:=true;
readln (inter);
tol:= length(inter);
if tol=0 then
begin
write ('it is blank... please try again: ');
flag:=false;
end;
for i:= 1 to tol do
begin
tak:= inter [i];
if tak='0' then adad [i]:= 0 else
if tak='1' then adad [i]:= 1 else
if tak='2' then adad [i]:= 2 else
if tak='3' then adad [i]:= 3 else
if tak='4' then adad [i]:= 4 else
if tak='5' then adad [i]:= 5 else
if tak='6' then adad [i]:= 6 else
if tak='7' then adad [i]:= 7 else
if tak='8' then adad [i]:= 8 else
if tak='9' then adad [i]:= 9 else
if tak='+' then adad [i]:= 10 else
if tak='-' then adad [i]:= 20 else
if tak='/' then adad [i]:= 30 else
if tak='*' then adad [i]:= 40 else
begin
write ('invalid format. please try again: ');
flag:=false;
break;
end;
end;
for i:= 1 to tol do
begin
j:=adad[i];
if (j=10) or (j=20) or (j=30) or (j=40) then
begin
z:=i+1;
for c:= z to tol do
begin
y:=adad[c];
if (y=10) or (y=20) or (y=30) or (y=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
break;
end;
end;

end;
end;
v:=adad[1];
if (v=10) or (v=20) or (v=30) or (v=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;
w:=adad[tol];
if (w=10) or (w=20) or (w=30) or (w=40) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;

for i := 2 to tol-1 do
begin
w:=adad[i];
if (w=10) or (w=20) or (w=30) or (w=40) then
begin
io:=adad[i];
iop:=i;
break;
end
else
if (i=tol-1) then
begin
write ('invalid format. please try again: ');
flag:=false;
end;

end;
until flag=true;
case io of
10 : op:='+';
20 : op:='-';
30 : op:='/';
40 : op:='*';
end;

assign (save,'save.dat');
rewrite (save);
writeln (save,op);
for i:= 1 to iop-1 do
write (save,adad[i]);
writeln(save,'');
for i:= iop+1 to tol do
write (save,adad[i]);
close (save);
reset (save);
readln (save,opera);
readln (save,adad1);
readln (save,adad2);
close(save);

writeln (adad1,' ',opera,' ',adad2);
write ('Result: ');
case opera of
'+' : Write (adad1+adad2);
'-' : Write (adad1-adad2);
'*' : Write (adad1*adad2);
'/' : Write (adad1/adad2);
end;
writeln;
write ('Press enter to exit...');
readln;
end.

این Erorr رو میده:
unknown indentifier
#:-S

[Sajad]

خوب جناب میگه کدوم خط مشکل داره دیگه. یه اطلاعات دقیقتر بده بشه بفهمی عیب کار از کجاست...
متن کامل بده اگه اسکرین شات بتونی بدی که چه بهتر....

[آرتیمیس]

خوب جناب میگه کدوم خط مشکل داره دیگه. یه اطلاعات دقیقتر بده بشه بفهمی عیب کار از کجاست...
متن کامل بده اگه اسکرین شات بتونی بدی که چه بهتر....

http://www.persianpic.info/upload/images/1ifi.gif

[Sajad]

ctrl + f9 میزنی این خطا رو میده ؟
ویندوزت چی هست ؟ چند بیتی ؟

[آرتیمیس]

ctrl + f9 میزنی این خطا رو میده ؟
ویندوزت چی هست ؟ چند بیتی ؟

آره، Xp 32بیتی

[Sajad]

begin
end.
خالی بزنی هم خطا میگیره ؟

[آرتیمیس]

begin
end.
خالی بزنی هم خطا میگیره ؟

آره
file not found wincrt.tpu

[Sajad]

شما فقط .begin end زدی ؟
این چرا خطای wincrt گرفته ؟ شما گفتی wincrt یا خودش ؟ اصلا تو این کامپایلری که من دادم wincrt تعریف نشده ! شما با کدوم کامپایلر میری ؟!

مطمئنم کامپایلر مشکلی نداره چون دیشب خودم یجا برای یه نفر از همون آدرس دانلود کردم و نصب کردم براش.

ولی تو اینکه شما کاری که من دارم میگم انجام بدی شک دارم !

شما کامپایلری که من گفتم از مسیر c:\tp\Turbo Pascal 7.0.pif اجرا کن
صفحه خالی باشه
توش فقط و فقط بنویس
خط اول begin بعد هم end. هیچی دیگه هم نمیخواد بعد ctrl + f9 کن ببین خطا میده یا اجرا میشه و بسته میشه سریع...

[آرتیمیس]

شما فقط .begin end زدی ؟
این چرا خطای wincrt گرفته ؟ شما گفتی wincrt یا خودش ؟ اصلا تو این کامپایلری که من دادم wincrt تعریف نشده ! شما با کدوم کامپایلر میری ؟!

مطمئنم کامپایلر مشکلی نداره چون دیشب خودم یجا برای یه نفر از همون آدرس دانلود کردم و نصب کردم براش.

ولی تو اینکه شما کاری که من دارم میگم انجام بدی شک دارم !

شما کامپایلری که من گفتم از مسیر c:\tp\Turbo Pascal 7.0.pif اجرا کن
صفحه خالی باشه
توش فقط و فقط بنویس
خط اول begin بعد هم end. هیچی دیگه هم نمیخواد بعد ctrl + f9 کن ببین خطا میده یا اجرا میشه و بسته میشه سریع...

Turbo Pascal 7.0.pif همچین فایل توی پوشه tp نیست من از پوشه Bin برنامه رو اجرا می کنم
من برنامه رو از سایت دانلود نکردم فایل زیپش رو از استادمون گرفتم
امکانش هست که بر اثر ویروسی بودن سیستم خراب شده باشه؟

[Sajad]

Turbo Pascal 7.0.pif همچین فایل توی پوشه tp نیست من از پوشه Bin برنامه رو اجرا می کنم
من برنامه رو از سایت دانلود نکردم فایل زیپش رو از استادمون گرفتم
امکانش هست که بر اثر ویروسی بودن سیستم خراب شده باشه؟
رسما ما رو سر کار گذاشتین ؟
خوب 2 مگ چیه ! دانلود کنید کاری که گفتم بکنید اجرا بشه دیگه !
شاید فایلهایی که شما الان دارید ناقص هست.
بعدشم کامپایلر شما داس هست اما شما wincrt میزنی که اشتباه هست.
کاری که گفتم رو بکن تموم شه !!!!!

[آرتیمیس]

رسما ما رو سر کار گذاشتین ؟
خوب 2 مگ چیه ! دانلود کنید کاری که گفتم بکنید اجرا بشه دیگه !
شاید فایلهایی که شما الان دارید ناقص هست.
بعدشم کامپایلر شما داس هست اما شما wincrt میزنی که اشتباه هست.
کاری که گفتم رو بکن تموم شه !!!!!
ببخشید
من برنامه رو دانلود کردم نصب هم کردم از روش شما رفتم ولی فایل این پیغام رو میده:turbopascal7.0.pif
is not a vaild win32 application

[Sajad]

مشکل از ویندوزت هست پس....
بقیه اش هم که اجرا نمیشه به دلیل ویندوزت هست.
اگه درست گفته باشی و سیستم عاملت یه xp معمولی هست بدون هیچ مشکلی باید اجرا بشه.
با این حال شما یه سری هم به propertis فایل c:\tp\Turbo Pascal 7.0.pif بزن

[آرتیمیس]

مشکل از ویندوزت هست پس....
بقیه اش هم که اجرا نمیشه به دلیل ویندوزت هست.
اگه درست گفته باشی و سیستم عاملت یه xp معمولی هست بدون هیچ مشکلی باید اجرا بشه.
با این حال شما یه سری هم به propertis فایل c:\tp\turbo pascal 7.0.pif بزن

اندازه فایلش که صفره:106:
به نظرتون ویندوز عوض بشه درست میشه ؟
راستی بابت جواباتون هم ممنون
:53::53:

[Sajad]

995 bytes هست حجمش . کمتر از 1KB
من مشکل رو نمیتونم جای دیگه ببینم. 70% مربوط به ویندوز هست. ولی خوب شاید هم از جای دیگه باشه.
ولی رو سیستم معمولی با ویندوز معمولی اگه عین روش من جلو رفته باشید 100% باید جواب بده. (مگر اینکه باز هم کوتاهی کرده باشید و یه مرحله رو نرفته باشید.)
بابت تشکر هم خواهش . همانا خداوند دکمه تشکر را آفرید !
موفق باشید.

[bboyselect]

ما هم همين مشكل error 15 رو داريم كسي هست كمك كنه و نسخه كامل و مطمئن اين نرم افزار رو بزاره /...... تاالان 6 تا دانلود كردم هركدوم يه مورد داشتن .