ya benim bir assingmentim war ve 4 gunum war olay su basit bi program yazilacak pascalla

program :

tek bir soru soracak ornek : pascalin kim yazdi

ve 3 soru sikki olacak ornek : sen ben o

bu kadar sonundada dogru yannis cikcak

fakat nasi yapacagim hakkimda hic bir fikrim yok yardim edebilecek biri warmi?

cevap: string

write ln ('Pascala kim yazdı');
readln(cevap);
select case cevap
cevap = 'sen' then writeln('Doğru');
cevap = 'ben' then writeln('Yanlış');
cevap ='o' then writeln('Yanlış');

not yazım hataları göz önüne alma kalıbın budur yanı kısaca özetlerse cevap için bir değişken tanımla sorunun cevabını buna ata case döngüsü içinde doğruyu veya yanlışı yazdır. Ayrıca bunu if then else kalıbı ille yapabilirsin biraz uğraş öğrenmen için iyi olur eğer dahada yapamazsan ben sana yapar gönderirim bir tane

bab daha denemedim ama olursa hayatimi kurtardin du ben seni msne ekleyem bir 2 sorum daa olcak

--------------------------------------------------------------------------

ya olmadi dur daa urasmadim ama answer in a sinda hata verio yani burda
readln(answer);
napmam lazim

--------------------------------------------------------------------------------

ya ok pardon ben annamamisim string yazcakmisiz fakat yine olmadi
bu sefer sorun su yaziom dur

begin

writeln('Who wrote the program Pascal');
readln(string);
select case string
string = 'Me' then writeln('Wrong');
string = 'You' then writeln('Wrong');
string = 'Unknows' then writeln('Right');

end.

ayni bunu yazdim fakat su anda ; de sorun verio karalastiriom nerde yaptigini
dedigi seyde : Can't read or write variables of this type


--------------------------------------------------------------------------------

ok onu gectim biri suna baksin

uses crt;
var
x : string;
begin
clrscr;
Writeln('Who Wrote The Program Pascal');
Writeln('A : You B : Me C : Unknown');
Write('Answer');
Readln(x);
if (x='A') or (x='B') then writeln ('Wrong')
else if (x='c') then writeln('Right')
end.

soru su sonucu göremiyorum A B C herhangi birinde göstermeden bitio
(Caps Lock Kullanma Ltfn!)
-------------------------------------------------
ya cok sacma bi forum oldu tek basima konusuyorum neyse cozdum
clrscr ni kaldirinca oluo fakat bu seferde cok karisiklik oluo ne yapmaliyim?

---------------------------------------------
ya ben programi bitirdim admin silebilir bu konuyu cok sacma oldu
-------------------------
Ltfn Edit Kullan FLood yasak! Ltfn Caps Lock kullanma ve forum kurallarını oku pls!

en sondaki end. den önce readln; yaz

Bi ker şu anda bu foruma üye kimsenin pascala senden yakın olduğunu tahmin etmiyorum .
Çünkü sorduğun soru her pascal kitabının ilk 5 sayfasında cevap bulabileceğin bir soru.
Senin pascal öğrenmekten çok milletin bilgisini sınıyor gibi bir halin var

program bu şekilde çalışıcaktır
açıklamalar // ile başlamaktadır



umarım sana yardımcı olabilmişimdir. // ile balıyan yerleri çıkart program sorunsuz calısıcaktır....

bytuman baba güzel yazmışssın eline sağlık ben kardeş biraz uğraşsın diye öyle yazmıştım oda zaten sorunun çoğunu çözmüştü genede ellerine sağlık çok açıklayıcı olmuş

Senin Program doğru Fakat Readln'da tanımlanığı "string" bi değişken olduğu için tanımlama hatası veriyo readln(string) yerine readln(soru) falam yazsan sorun kalkar

ya beyşer alakasiz olacak ama ben pascalda kopyala yapıştır yapamiyorum.Yani şöle söleyim windowsda text dosyasi içindeki programi pascal a kopyalayamiyorum.Bunu yapmanin yolunu sölermisiniz.

notdefterine yapıştır, sonra onu pas dosyası oarak kaydet. pascaldan aç

uses crt;
var
tus:char;
durum:integer;
procedure normalRenk;
begin
textcolor(red);
textbackground(white);
end;
procedure seciliRenk;
begin
textcolor(white);
textbackground(red);
end;

begin
clrscr;
durum:=1;
repeat
if durum = 1 then seciliRenk else normalRenk;
gotoxy (5,10);write ('Yeni ');
if durum = 2 then seciliRenk else normalRenk;
gotoxy (5,11);write ('A‡ ');
if durum = 3 then seciliRenk else normalRenk;
gotoxy (5,12);write ('Kaydet ');
if durum = 4 then seciliRenk else normalRenk;
gotoxy (5,13);write ('€�k�Ÿ ');
repeat
tus := readkey;
until tus<>#0;

if tus=#72 then begin
durum := durum-1;
if durum<1 then durum:=4;
end;
if tus=#80 then begin
durum := durum+1;
if durum>4 then durum:=1;
end;


until tus=#27

end.

bu bir pull down menu yalniz bi tus kontrol eklenenip hangi menuye tıklandigini kranın ortasinda yazmasini istiyorum yardimci olabilirmisiniz simdiden cok tesekkurler

uses crt;
var
x : char;
begin
clrscr;
Writeln('Who Wrote The Program Pascal');
Writeln('A : You B : Me C : Unknown');
Write('Answer : ');
repeat
x:=upcase(readkey);
until x in ['A','B','C'];
if (x='A') or (x='B') then writeln ('Wrong')
else if (x='C') then writeln('Right');
readln;
end.

Bide bunu dene...