Turbo Pascal Konusunda Yardıma İhtiyaçım var

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Turbo Pascal Konusunda Yardıma İhtiyaçım var

Bu konudaki kullanıcılar: 1 misafir

34
Cevap 938
Tıklama 0
Öne Çıkarma

1. sayfa

Turbo Pascal Konusunda Yardıma İhtiyaçım var

Cevap Yaz

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

Selam arkadaşlar turbo pascal programından anlayan varsa yardıma ihtiyacım var yardımcı olursanız çok sevinirim

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

medeor

19 yıl

Teğmen

son soruyu yaptım.

var
a,b,t,c:integer;
begin
a:=0;
while (a<20) do begin
a:=a+1;
write(a,'. sayiyi girin: '); readln(b);
if (b div 2)*2 = b then c:=c+1 else t:=t+1;
end;
writeln;
writeln('Girilen tek sayilarin sayisi: ',t);
writeln('Girilen cift sayilarin sayisi: ',c);
readln;
end.

ilk 2 sorunun döngüylemi yapılacağını belirtmemişsin. 3'sünü anlamadım zaten.

ama hitm@n haklı bence. eğer okuldaki ders kalitesinden dolayı öğrenemiyosan internette online kaynaklar var ve onlardan öğrenmen daha doğru. hatta bikaç tanesinin linkini vereyim:

http://www11.brinkster.com/secici/ders.asp?ders=PASCAL
http://serdar.ktg.com.tr/pascal.htm

Bu mesaja 1 cevap geldi.

foobar

18 yıl

Teğmen

kardes benim sorumda tam ona benziyor ama sayı sabit değil bir yardım etsen teşekkürler
http://forum.donanimhaber.com/m_12627059/tm.htm

quote:

Orjinalden alıntı: mehmetord

o zaman şöyle olacak:

uses crt;
var
a,b,c:integer;
begin clrscr;
for a:=1 to 3 do begin
if a=1 then begin c:=1; write(' '); end;
if a=2 then begin c:=3; write(' '); end;
if a=3 then c:=5;
for b:=1 to c do begin
write('A');
end;
writeln;
end;
for a:=1 to 2 do begin
if a=1 then begin c:=3; write(' '); end;
if a=2 then begin c:=1; write(' '); end;
for b:=1 to c do
write('A');
writeln;
end;
readln;
end.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb Turbo Pascal Konusunda Yardıma İhtiyaçım var