بست اشتباه!!
Printable View
بست اشتباه!!
سلام من میخوام در باسکال با دستور while یا for ستاره ها را به این صورت چاب کنم
لطفا راهنمایی کنید
*******
******
*****
****
***
**
*
**
***
****
*****
******
*******
سلام
با كنسول دلفي نوشتمش. ولي نبايد توي پاسكال مشكلي داشته باشه.
کد:var
ind , ind2 : integer;
cnt , SpcCnt: integer;
begin
cnt := 7;
SpcCnt := 0;
for ind := 0 to 13 do
begin
if cnt > 0 then
begin
for ind2 := 1 to SpcCnt do
write(' ');
for ind2 := 1 to cnt do
write('*' + ' ');
SpcCnt := SpcCnt + 1;
end else if cnt < 0 then
begin
for ind2 := 1 to SpcCnt do
write(' ');
for ind2 := -1 downto cnt - 1 do
write('*' + ' ');
SpcCnt := SpcCnt - 1
end else begin
SpcCnt := SpcCnt - 2;
cnt := cnt - 1;
continue;
end;
writeln;
cnt := cnt - 1;
end;
readln;
end.
کسی می دونه چطور می شه تعداد خطوط یک فایل txt رو با پاسکال چاپ کرد؟
سلام
دوستان و اساتید محترم
یه سوال دارم - ممنون میشم کمکم کنید و برنامه پاسکالشو برام بمویسید
8 بازی قراره انجام بشه بین 16 تیم
تیم 1 و 2
تیم 3و4
تیم 5و6
..
..
تیم 15و16
وقتی تیم 1و2 باری میکنند یا برد تیم 1 نتیجشه یا مساوی یا برد تیم 2
وقتی تیم 3و4 باری میکنند یا برد تیم 3 نتیجشه یا مساوی یا برد تیم 4
الی اخر
سوال
میخوام برنامه خروجی بده چنذ نتیجه منحصر به فرد اتفاق میافته
مثلا 1 نتیجه : همه میبرند
........
یا جدول زیر ببینید
ردیف
تیم میزبان
برد
مساوی
باخت
تیم میهمان
1
101
a
b
c
102
2
103
d
e
f
104
3
105
g
h
i
106
4
107
j
k
l
108
5
109
m
n
o
110
6
111
p
q
r
112
7
113
s
t
u
114
8
115
v
w
x
116