پنل اس ام اس
صفحه: [1]   پایین
  چاپ صفحه  
نويسنده موضوع: برنامه كه ستاره ها را به صورت مثلثي چاپ مي كند  (دفعات بازدید: 3748 بار)
pooya
کاربر جدید
*

تشكرها : 0
آفلاین آفلاین

جنسيت : پسر
تعداد ارسال: 3

متولد خرمشهر - ساكن شيراز - 1358 - شغل تدريس


ديدن مشخصات
« : 05 آبان 1388,ساعت 15:14:41 »

کد:
uses
  crt;
var
      n:integer;
    
begin
    
       clrscr;
       writeln('enter count of rows');
       readln(n);
       clrscr;
       star(n);

       readln;
  
ebd.

procedure star(n:integer);
var
   i,j:integer;
bagin
      
      for i=1 to n do begin  { make rows}
              
               for j=1 to n-i do
                        write(' ');
               for j=1 to 2*i-1 do
                        write('*');    
    
      end;
end;
« آخرين ويرايش: 05 آبان 1388,ساعت 17:51:51 توسط كياني » خارج شده است

پويا لاريان
انجمن تخصصی استادان و دانشجویان کامپیوتر ایران
   

پنل اس ام اس
 خارج شده است
صفحه: [1]   بالا
  چاپ صفحه  
 
پرش به :