Turbo pascal diziler üzerinde toplama işlemi
Soru:
arkadşlar çok acil yardm edin klavyedeb 2 ayrı diziye sayı girilmektdir.girilen sayılarn toplamı 3.bir diziye aktarılıp aşağıdaki şekilde yazdıran program?

           dizi1            dizi2        toplam
         ---------         -------      ---------
            7                  10           17
           80                  5            85                                       
            '                     '             '
            '                     '             ' die dwam edio..

Cevap:
  1. uses crt;
  2. var i, j, yedek :integer;
  3. a:array[1..10] of integer;
  4. b:array[1..10] of integer;
  5. c:array[1..10] of integer;
  6. begin
  7. clrscr;
  8. for i:=1 to 10 do
  9. begin
  10. write(i);
  11. write('. sayıyı giriniz :');
  12. readln(a[i]);
  13. end;
  14. for i:=1 to 10 do
  15. begin
  16. write(i);
  17. write('. sayıyı giriniz :');
  18. readln(b[i]);
  19. end;
  20. for i:=1 to 10 do
  21. begin
  22. c[i]:=a[i]+b[i];
  23. end;
  24. for i:=1 to 10 do
  25. begin
  26. writeln(c[i]);
  27. end;
  28. readkey;
  29. end.



 

Yorumlar  

 
0 #7 _Hüseyin_ 08-08-2011 09:26
Arkadaşlar mantığını anlayın inanın program yazmak kolaylaşacaktır .
Alıntı
 
 
0 #6 TURBO 11-05-2011 14:44
slm arkadaşlar pascaldan krkacak bişey yok sadece ezberlemeyin mantığını anlayınn mantığını anadıktan sonra çok kolay gelcek bende başlarda öleydim ama onra kndim program yazmaya başlayınca korkum gitti ilk sonav 100 şimdi kendi başıma program yazıyorum çok yardınmı olcak pascal size ben onun sayesinde çalışıyorum şimdi çalıştığım yerde sadee pascal kullanıyorum
Alıntı
 
 
0 #5 Guest 29-04-2010 10:13
çok ta zor değil be. :-) :!: :-?:
Alıntı
 
 
0 #4 Guest 20-04-2010 16:57
:oops: :oops: :oops: :oops:
Alıntı
 
 
0 #3 merve 08-04-2010 22:10
ya bız daha gecmedık pascala cokmu zor :D
Alıntı
 
 
0 #2 gizem 03-03-2010 12:51
ya ben pascaldan hç bişey anlmıom :oops:
Alıntı
 
 
0 #1 gizem 03-03-2010 12:51
ya ben hiç bişey anlmıom bu pascaldan nasıl yapacmda bilmiom :sad: :oops:
Alıntı
 

Yorum ekle


Güvenlik kodu
Yenile

Üye Giriş

Üyeler

3502 Kayıtlı
0 Bugün
3502 Dün
2 Bu Hafta
5 Bu Ay
Son
GuccallFumBus offline