có hai bài thầy cho em không biết giải ai biết chỉ em với bài 1 nhap 1 số n từ bàn phím và in ra chữ n vd
với n =n 5 * * bài 2 nhập 2 số nguyên dương với m<20 n>0 ban hay ve ra 1 tam giác cân vd
* * * với n=5 m=10 thì ta có hình *
* * * * *
* * * * *
* * * *
********** vẽ ra tam giác cân với m là đáy và có chiều cao bằng n ai biết chi em với viết ra toàn bộ bài giải luôn nghe em dở lắm chỉ em không biết làm đâu :k70:k48
masau2006
11-04-2008, 12:35 PM
Sao đề của bạn ở máy của mình nó lại thành mấy cái ***, đọc một số chỗ không được, hình như trình duyệt của mình bị lỗi! Bạn hay liên hệ với mình qua YM: anh_hai_lit
Hồi trước mình có học lập trình đó!
crazy_dragon
11-04-2008, 03:34 PM
Bài 1 là tạo chương trình đọc số phải ko ? Chẳng hiểu nói gì luôn :oh:
nhapgiatuytuc
11-04-2008, 07:32 PM
đề như thế này nẻ mấy anh oi bạn hãy nhập một số nguyên n tử bàn phím in ra chữ N các dấu * vd nhap n = 5
* *
** *
* * *
* **
* *
in ra chữ đó.
câu hai nhập m,n nguyên (0<m,n<20) in lên màn hình tam giác cân có chiều cao m chiều rộng n vd m= 5 n= 7
..........*
.........*.*.
........*...*...
.......*.....*...
......*******...
in ra tam giác đó mà có điều là khong có dấu ...... mà tam giác cân em vẽ nó không cân. mấy anh ai chì em với hãy viết ở đây nghe đừng meo cho em em quên pas meo rồi hoặc có thể gửi vào meo là nguyenc07c1a @yahoo.com.vn nhưng tỉ lệ em nhận được rất thấp vì em không biết xem meo nói thật đó :k65:k13:k25
hic lại gõ xai nau rồi
chữ n như thế nay nè mấy anh oi
.....*....*...
.....**..*...
.....*.*.*....
.....*..**...
.....*....*...
nhưng chữ n in ra không có dấu chấm.
crazy_dragon
11-04-2008, 08:49 PM
Đây là chương trình mình mới vừa làm xong, bạn chạy thử xem có đúng với ý bạn không nhé :big_smile:
Chương trình in ra chữ N :
uses crt;
Var n,x,y : integer;
Begin
clrscr;
Write ('Nhap so N : '); Readln(n);
For x:=5 to n+4 do
Begin
gotoxy(2,x);
write('*');
End;
x:=5; y:=2;
Repeat
Begin
x:=x+1;
y:=y+1;
gotoxy(y,x); write('*');
End;
Until x=n+4;
For x:=5 to n+4 do
Begin
gotoxy(y,x);
write('*');
End;
Readln;
End.
:byebye:
nhapgiatuytuc
12-04-2008, 06:19 PM
đúng rồi bạn ơi bạn giải giúp mình bài vẽ tam giác luôn được không cho mình hỏi lệnh gotoxy(2,x) và lệnh gotoxy(y,x) nó có ý nghĩa như thế nào vậy bạn có chương trình hướng dẫn sử dụng pascal nào không cho mình với