Chào mừng Bạn tham gia Diễn Đàn VNKienThuc.com - Định hướng Forum Kiến Thức
- HÃY TẠO CHỦ ĐỀ KIẾN THỨC HỮU ÍCH VÀ CÙNG NHAU THẢO LUẬN
Kết nối: VNK X - VNK groups | Nhà Tài Trợ: BhnongFood X - Bhnong groups - Đặt mua Bánh Bhnong

Trả lời chủ đề

Nội dung: <blockquote data-quote="Mr Bi" data-source="post: 20870" data-attributes="member: 2548"><p>Trong bài này mình hướng các bạn tới cách tính bảng cửu chương bằng mảng 1 chiều.</p><p></p><p><span style="font-size: 15px">program bangcuuchuong;</span></p><p><span style="font-size: 15px">uses crt;</span></p><p><span style="font-size: 15px">const max=100;</span></p><p><span style="font-size: 15px">type X=array[1..max] of real;</span></p><p><span style="font-size: 15px">var n,i:integer;</span></p><p><span style="font-size: 15px"></span><span style="font-size: 15px">a,b,c,d,e,f,g,h,k: real;</span></p><p><span style="font-size: 15px">Z:X;</span></p><p><span style="font-size: 15px"></span><span style="font-size: 15px">begin</span></p><p><span style="font-size: 15px">clrscr;</span></p><p><span style="font-size: 15px">write('Nhap so luong so can tinh cuu chuong,N=');</span></p><p><span style="font-size: 15px">readln<img src="https://cdn.jsdelivr.net/gh/twitter/twemoji@14.0.2/assets/72x72/1f44e.png" class="smilie smilie--emoji" loading="lazy" width="72" height="72" alt="(n)" title="Thumbs down    (n)"  data-smilie="23"data-shortname="(n)" />;</span></p><p><span style="font-size: 15px">if n>0 then</span></p><p><span style="font-size: 15px"></span><span style="font-size: 15px">begin</span></p><p><span style="font-size: 15px">for i:=1 to n do</span></p><p><span style="font-size: 15px">begin</span></p><p><span style="font-size: 15px">write('Nhap gia tri so thu ',i,':');</span></p><p><span style="font-size: 15px">readln(Z<em>);</em></span></p><p><span style="font-size: 15px"><em>a:=1*Z<em>;</em></em></span></p><p><span style="font-size: 15px"><em><em>b:=2*Z<em>;</em></em></em></span></p><p><span style="font-size: 15px"><em><em><em>c:=3*Z<em>;</em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em>d:=4*Z<em>;</em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em>e:=5*Z<em>;</em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em>f:=6*Z<em>;</em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em>g:=7*Z<em>;</em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em>h:=8*Z<em>;</em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em>k:=9*Z<em>;</em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 1 =',a:10:5);</em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 2 =',b:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 3 =',c:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 4 =',d:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 5 =',e:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 6 =',f:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 7 =',g:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 8 =',h:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>writeln(Z<em>:10:2,'x 9 =',k:10:5);</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>end;</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>end;</em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span></p><p><span style="font-size: 15px"><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></span><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em>                  <span style="font-size: 15px">if n<=0 then writeln('Ban vua nhap gia tri la:',n:5,'Gia tri can nhap la so nguyen duong, ban vui long kiem tra lai');</span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p><p><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><span style="font-size: 15px">readln</span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p><p><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><span style="font-size: 15px">end.</span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p><p><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><span style="font-size: 15px"></span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p><p> <em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><span style="font-size: 15px"><span style="font-size: 15px">Nhớ nhỳn kỹ nha, phần nào không hiểu có thể hỏi, mình trả lời thêm!</span></span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p><p><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><em><span style="font-size: 15px"></span></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></em></p></blockquote><p></p>

Tên

Mã xác nhận

Top