Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama Pascal Y?ld?zlardan Olu?an Kare Dikdörtgen ve Üçgen Çizmek


Y?ld?zlardan Olu?an Kare Dikdörtgen ve Üçgen Çizmek

Pascal programlama dilinde yaz?lm?? bu programda ekrana seçime göre y?ld?zlardan olu?an bir kare, üçgen veya dikdörtgen çizen prosedür yap?lm??t?r.

Program Kodu:

  1.  
  2.  
  3. uses crt;
  4. var
  5. i,j,n,m:integer;
  6. tus:char;
  7.  
  8. procedure ucgen;
  9. begin
  10. write('ucgen satir sayisini gir : ');
  11. readln(n);
  12. clrscr;
  13. for i:=1 to n do begin
  14. for j:=1 to i do begin
  15. write('* ');
  16. writeln;
  17. readln;
  18.  
  19. procedure kare;
  20. begin
  21. writeln('kare satir sayisini gir : ');
  22. readln(n);
  23. clrscr;
  24. for i:=1 to n do begin
  25. for j:=1 to n do begin
  26. write('* ');
  27. writeln;
  28. readln;
  29.  
  30. procedure dikdortgen;
  31. begin
  32. writeln('dikdortgen satir sayisini giriniz : ');
  33. readln(n);
  34. writeln('dikdortgen sutun sayisini giriniz : ');
  35. readln(m);
  36. clrscr;
  37. for i:=1 to n do begin
  38. for j:=1 to m do begin
  39. write('* ');
  40. writeln;
  41. readln;
  42.  
  43. begin
  44. clrscr;
  45. repeat
  46. writeln('Cizmek istediginiz sekli seciniz.. [1:Kare,2:Dikdortgen,3:Ucgen] :');
  47. readln(n);
  48.  case n of
  49.  1 : kare;
  50.  2 : dikdortgen;
  51.  3 : ucgen;
  52.  
  53. writeln('Cikmak icin * karakterine basiniz.. ');
  54. tus:=readkey;
  55. until tus='*';
  56.  
  57.  
  58.  
  59.  

Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
 
404 Not Found

Not Found

The requested URL was not found on this server.

Additionally, a 404 Not Found error was encountered while trying to use an ErrorDocument to handle the request.