Kapalı Konu
 
Konu Araçları
Eski 06-03-04, 07:33 #1
ExistenT ExistenT çevrimdışı
Varsayılan Pascal Yardim

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?
__________________
 
Eski 06-03-04, 10:43 #2
arachnida arachnida çevrimdışı
Varsayılan Cvp: Pascal Yardim


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
 
Eski 06-03-04, 12:24 #3
ExistenT ExistenT çevrimdışı
Varsayılan Cvp: Pascal Yardim


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!

Mesajı son düzenleyen Sessiz_cin ( 08-03-04 - 13:02 )
 
Eski 07-03-04, 12:27 #4
NaRCoTiC NaRCoTiC çevrimdışı
Varsayılan Cvp: Pascal Yardim

en sondaki end. den önce readln; yaz
 
Eski 08-03-04, 02:32 #5
momozilla momozilla çevrimdışı
Varsayılan Cvp: Pascal Yardim

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
 
Eski 08-03-04, 12:25 #6
bytuman bytuman çevrimdışı
Varsayılan Cvp: Pascal Yardim

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



Kod:
uses crt;
//ctr komutunu kullan
var
//değişken(variable)
x : string;
//x değişkeni satırdır
begin
//başla
clrscr;
Writeln('Who Wrote The Program Pascal');
//"Who Wrote The Program Pascal" yaz
Writeln('A : You B : Me C : Unknown');
//cevap seceneklerini yazdırdın
Write('Answer');
//answer yazdırdın
Readln(x);
//x değişkenini koku komutu verin
if (x='A') or (x='B') then writeln ('Wrong');
//eger a veya b secenegi girilirse cevap yanlış
else if (x='c') then writeln('Right');
//c girilirse dogru cevap yaz
readln
//ekranı gorebilmem için kapatma
end.
//bitir
umarım sana yardımcı olabilmişimdir. // ile balıyan yerleri çıkart program sorunsuz calısıcaktır....
 
Eski 08-03-04, 18:26 #7
arachnida arachnida çevrimdışı
Varsayılan Cvp: Pascal Yardim

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ş
 
Eski 12-03-04, 09:31 #8
seven7 seven7 çevrimdışı
Varsayılan Cvp: Pascal Yardim

Alıntı:
Gerçek Mesajı Gönderen ExistenT
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!
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
 
Eski 19-03-04, 01:47 #9
carbine carbine çevrimdışı
Varsayılan Cvp: Pascal Yardim

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.
 
Eski 08-02-05, 18:56 #10
goldbrain goldbrain çevrimdışı
Varsayılan Cvp: Pascal Yardim

notdefterine yapıştır, sonra onu pas dosyası oarak kaydet. pascaldan aç
 
Eski 11-05-08, 01:30 #11
xco xco çevrimdışı
Varsayılan C: Pascal Yardim

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
 
Eski 19-05-08, 00:40 #12
OneDie OneDie çevrimdışı
Varsayılan C: Pascal Yardim

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...
 
Kapalı Konu

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 20:08
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası. Tatil
Copyright © 2019