پنل اس ام اس
صفحه: [1]   پایین
  چاپ صفحه  
نويسنده موضوع: برنامه ای بنویسید که شکل زیر را در خروجی چاپ کند؟  (دفعات بازدید: 9166 بار)
farshad200
کاربر جدید
*

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

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



ديدن مشخصات
« : 28 فروردين 1389,ساعت 21:31:19 »

سلام.با زبان پاسکال می خواستم برنامه ای بنویسم که این شکل رو در خروجی نمایش دهد:
این دستورات را نوشتم ولی شکلی دیگری را چاپ می کندرا چاپ می کند.لطفا در مورد نوشتن کد راهنمایی کنید.
کد:
USES WINCRT;
VAR I,j,N:INTEGER;
BEGIN
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
   write('  ');
   for j:=1 to 2*i-1 do
   write('*');
   readln;
end;
END.
خارج شده است
تقدسی
Super Manager
*

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

جنسيت : دختر
تعداد ارسال: 380

هیهات من الذله ...


ديدن مشخصات WWW
« پاسخ #1 : 31 فروردين 1389,ساعت 23:19:52 »

با سلام
الگوریتم زیر را امتحان کنید:

کد:
USES WINCRT;
VAR I,j,n,k:INTEGER;
BEGIN
readln(n);

        n = 3;
    k = 3;
   
    For i = 1 To n
        For j = 1 To k
           write(" ") ;
  For j = 1 To n - k + 1
            write( "*");
             
      write( "")
        k = k - 1;
 
   
    n = 4;
    k = 0;
   
    For i = 1 To n
        For j = 1 To k
          write( " ");
             
        For j = 1 To n - k
         write("*");
       
       
        write( "")
        k = k + 1;

end.
خارج شده است

كاربران گرامی : لطفاً قبل از هرگونه فعاليت ابتدا قوانين انجمن را مطالعه  و قبل از ارسال جديد در انجمن جستجو نماييد.
farshad200
کاربر جدید
*

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

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



ديدن مشخصات
« پاسخ #2 : 03 ارديبهشت 1389,ساعت 14:50:24 »

سلام.برنامه را اجرا کردم ولی متاسفانه خروجی مورد نظر را ندرد .فقط 5 تا ستاره را در یک سطر چاپ می  کند.
خارج شده است
انجمن تخصصی استادان و دانشجویان کامپیوتر ایران
« پاسخ #2 : 03 ارديبهشت 1389,ساعت 14:50:24 »

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