Yeni Kayıt
Konudaki Resimler
önceki
|
Hızlı 
Bildirim
Turbo Pascal Konusunda Yardıma İhtiyaçım var (2. sayfa)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
pardon 4 tane -
Alttaki 2 tane resimdeki görüntüyü ekrana yazdıran program ayrı ayrı bunlar
x=(n:) * (n-1):
bide
dışarıdan girilen 20 adet farklı sayılardan çift sayıların kaç adet olduğunu bulan program
yardımların için çok sağol
-
sen de bütün ödevi buraya yaptırdın.
çdevin ne anlamı kalıyor sen öğrenmedikten sonra -
bize bunu baştan öğretmen çok saçma anlattı o yüzden temelden birşey bilmiyorum
birde bunlar yazılıda çıkacak arkadaşlar sağolsun benim derdimi endüstri meslekte okursan anlarsin
öğretim düzeyini -
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
-
tamam haklısınız bende pascalı öğrenmek isterim ama olmuyor.
birde bu benim son senem bitirmem lazım bu sene o yüzden sizden yardım istiyorum inan bilgisayara devam etmeyi düşünsem pascalı daha iyi öğrenirdim ama bilgisayara devam etmek istemiyorum ondan -
sorulara gelince
x=(n:) * (n-1:) bu soru n faktoriyelle n-1 faktoriyeli bulan ve çarpan programı yapmam lazım...
istranbul teknik yazan ise ekranda aynen o şekilde yazması lazım goto xy de olabilirmiş
itü yazan ise ekranda aynen o şekilde çıkacak vede sen son bölümde itü ler arasında 1 boşluk olacak bunlar yani
yardımların için
sağol bunları sölemezsende yine sağol
dediğim gibi geçensene bunu öğreten öğretmen bayandı bize ve hiç bir şey anlamadık 35 kişi ve şimdi öğrenmeye çalışıyoz ama olmuyor...
amacım liseyi bitirmek üniversite ise başka bir bölüme gitcem.... -
peki o zaman sen bilirsin.
1.soru:uses crt;
begin clrscr;
write('İSTANBUL');
gotoxy(8,2);write('TEKNİK');
gotoxy(13,3);write('ÜNİVERSİTESİ');
readln;
end.
2.soru:uses crt;
begin clrscr;
write('İTÜ');
gotoxy(3,2);write('İTÜ');
gotoxy(5,3);write('İTÜ');
gotoxy(9,3);write('İTÜ');
gotoxy(11,2);write('İTÜ');
gotoxy(13,1);write('İTÜ');
readln;
end.
3.soru:uses crt;
var
a,b,c,d,e:integer;
begin clrscr;
c:=1;
e:=1;
write('Bir sayı girin: '); readln(a);
d:=a-1;
for b:=1 to a do begin
c:=c*b;
end;
for b:=1 to d do begin
e:=e*b;
end;
writeln(a,'! * ',d,'! = ',c*e);
readln;
end. -
belki inanmıyacaksın ama senin bana yazdıkların sayesinde bazı terimleri kullanmayı öğrendim -
3. soruyu çalıştıramadım -
örneklerden iyi şekilde yararlanmana sevindim. 
3. soruyu tekrar denedim ve çalıştı. sanırım yazarken hata yaptın. -
ok -
ewet çalıştı çok sağol -
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.
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
