Cevap: 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, 1 mobil kullanıcı

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

İlk Önceki

Cevap: Turbo Pascal Konusunda Yardıma İhtiyaçım var (2. sayfa)

Cevap Yaz

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

peki sana 3 tane şey sorsam bunlar acele değil ama yarın buraya yazabilirmisin

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

pardon 4 tane

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

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

< Resime gitmek için tıklayın >

< Resime gitmek için tıklayın >

Bu mesaja 1 cevap geldi.

HITM@N

19 yıl

Yarbay

sen de bütün ödevi buraya yaptırdın.

çdevin ne anlamı kalıyor sen öğrenmedikten sonra

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

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.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

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

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

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....

Bu mesaja 1 cevap geldi.

medeor

19 yıl

Teğmen

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.

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

belki inanmıyacaksın ama senin bana yazdıkların sayesinde bazı terimleri kullanmayı öğrendim

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

3. soruyu çalıştıramadım

Bu mesaja 1 cevap geldi.

medeor

19 yıl

Teğmen

örneklerden iyi şekilde yararlanmana sevindim.

3. soruyu tekrar denedim ve çalıştı. sanırım yazarken hata yaptın.

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

Bu mesaja 1 cevap geldi.

mustafayunus

19 yıl

Onbaşı

Konu Sahibi

ewet çalıştı çok sağol

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

İlk Önceki

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