 31-03-2011, 06:04 PM | #1 |
kaka_math +Thà nh Viên+  : Apr 2010 : 54 : 11 | Vẽ hình trong Pascal Các bạn giúp mình viết chương trình vẽ hình tam giác bằng dấu * trong Pascal với (tam giác cân và tam giác vuông). Chỉ sỠdụng vòng lặp for hay các lệnh cơ bản thôi nhé. [RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] |
 |  |
| 31-03-2011, 10:32 PM | #2 |
vnzoomvodoi +Thà nh Viên+ : Mar 2010 : Hà nội : 17 : 26  | Var a:array[1..100] of string; i,j,n:integer; Begin Writeln('Muon nhap bao nhieu dong'); Readln(n); For i:=1 to n do a[i]:='*' For i:=1 to n do Begin For j:=1 to i do Write(a[j]); Writeln; End; readln End. [RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] |
| | |
| 31-03-2011, 10:37 PM | #3 |
| perfectstrong +Thà nh Viên+ : Feb 2011 : Äà Nẵng : 91 : 388 | Mình viết Ä‘oạn chÆ°Æ¡ng trình chÃnh thôi hình tam giác vuông: : begin clrscr; write('Moi nhap n='); readln(n); for i:=1 to n do begin for j:=1 to i do write('*'); writeln; end; readln; end. hình tam giác cân : begin clrscr; write('Moi nhap n='); readln(n); for i:=1 to n do begin for j:=1 to n-i do write(' '); for j:=1 to i do write('*'); writeln; end; readln; end. [RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] |
| | |
| 31-03-2011, 10:46 PM | #4 |
| vnzoomvodoi +Thà nh Viên+ : Mar 2010 : Hà nội : 17 : 26 | : | for j:=1 to i do write('*'); | thà nh : | for j:=1 to i do write('* '); | thì sẽ thà nh tam giác cân  [RIGHT][I][B]Nguồn: MathScope.ORG[/B][/I][/RIGHT] |
| | |
Vẽ hình trong Pascal 
News & Announcements
