1.Viết ra màn hình dòng chữ : ‘Turbo Pascal’
2.Viết ra màn hình 20 dòng chữ : ‘Turbo Pascal’
3.Viết ra màn hình dòng chữ : ‘Đây là dòng thứ : ‘, 1, ‘Turbo Pascal’ ( 20 dòng);
4.Viết ra màn hình n dòng chữ : ‘Turbo Pascal’, n nhập từ bàn phím
4.1 Nhập vào số nguyên dương n, in ra các số tự nhiên từ 1 đến n.
5.Viết ra màn hình các số từ 1-100
6.Viết ra màn hình các số từ 1-100 các số cách nhau để dẽ đọc.
7.Viết ra màn hình các số từ 1-100 theo 10 hàng mỗi hàng 10 số ( các số cách nhau để dẽ đọc).
8. Viết ra các số lẻ từ 1-100
9.Viết ra các số chẵn từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
10.Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
11. In ra tất các số tự nhiên nằm trong khoảng từ m đến n, với m, n được nhập từ bàn phím
12*Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 20 số. Dừng xem theo từng trang
màn hình.
13. Viết ra các số chia hết cho 7 nhỏ hơn 1 triệu ( For, div)
14. Viết ra các số không chia hết cho 18 và nhỏ hơn 1 tỉ.{For, mod}
15. Viết ra các số chia 13 dư 2 và trong khoảng từ 456 đến 456789.{For, Mod}
16. Viết ra tất cả các số nhỏ hơn 1 triệu thỏa mãn : chia hết cho 24 và chia 17 dư 5
17. Tìm tất cả các số nhỏ hơn 1000 thỏa mãn : Chia 5 dư 4, chia 4 dư 3, chia 3 dư 2 và chia hết
cho 17.
18. In ra tất cả các số tự nhiên từ 0 đến 1000 theo chiều giảm dần, mỗi hàng 15 số. { For…
downto…}
* In ra bảng nhân 8
* In ra bảng cửu chương từ 1 đến 10.
Các bạn giúp mình với mình còn phải nộp cho Thầy
Help!!!
Program Sara_Trang;
uses crt;
Begin
Writeln('Turbo Pascal');
Readln
End.
1: uses crt;
begin
clrscr;
writeln('turbo pascal');
readln;
end.
2: uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('turbo pascal');
readln;
end.
3:
uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 20 do
writeln('day la dong thu ',i,' turbo pascal');
readln;
end.
4:
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
writeln('turbo pacal');
readln;
end.
5:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i);
readln;
end.
6:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 100 do
write(i:4);
readln;
end.
7:
uses crt;
var d,i:integer;
begin
clrscr;
d:=0;
for i:=1 to 100 do
begin
write(i:4);
inc(d);
if d mod 10=0 then writeln;
end;
readln;
end.
8:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so le trong khoang tu 1 toi 100 la: ');
for i:=1 to 100 do
if i mod 2=1 then write(i:4);
readln;
end.
9:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=0 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
10:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 10=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
11:
uses crt;
var m,n,i:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
if m<n then
begin
writeln('cac so tu nhien trong khoang tu ',m,' toi ',n,' la: ');
for i:=m to n do
write(i:4);
end
else exit;
readln;
end.
12:
uses crt;
var d:integer;
i:longint;
begin
clrscr;
d:=0;
for i:=1 to 10000 do
begin
if i mod 2=1 then write(i:4);
inc(d);
if d mod 20=0 then
begin
writeln;
delay(1000);
end;
end;
readln;
end.
(dừng xem theo từng trang là sao hả bạn)
13:
uses crt;
var i,ch:longint;
begin
clrscr;
writeln('cac so chia het cho 7 nho hon 1000000 la:');
for i:=1 to 999999 do
if i mod 7=0 then
begin
delay(1000);
write(i:6);
end;
readln;
end.
14: bài này bạn phải chạy trên free pascal nhé
uses crt;
var i:int64;
begin
clrscr;
writeln('cac so khong chia het cho 18 va nho hon 1 ti la: ');
for i:=1 to 999999999 do
if i mod 18<>0 then
begin
delay(1000);
write(i:8);
end;
readln;
end.
15:
uses crt;
var i:longint;
begin
clrscr;
writeln('so chia cho 13 du 2 trong khoang tu 456 toi 456789 la: ');
for i:=456 to 456789 do
if i mod 13=2 then
begin
delay(2000);
write(i:6);
end;
readln;
end.
16:
uses crt;
var i:longint;
begin
clrscr;
writeln('cac so nho hon 1 trieu chia het cho 24 va chia cho 17 du 5 la: ');
for i:=1 to 999999 do
if (i mod 24=0) and (i mod 17=5) then
begin
delay(1000);
write(i:6);
end;
readln;
end.
17:
uses crt;
var i:integer;
begin
clrscr;
writeln('cac so nho hon 1000 thoan man dieu kien: Chia 5 dư 4, chia 4 dư 3, chia 3 dư 2 và chia hết cho 17 la: ');
for i:=1 to 999 do
if (i mod 5=4) and (i mod 4=3) and (i mod 3=2) and (i mod 17=0) then begin
delay(1000);
write(i:4);
end;
readln;
end.
18:
a) In ra tất cả các số tự nhiên từ 0 đến 1000 theo chiều giảm dần, mỗi hàng 15 số.
uses crt;
var i,d:integer;
begin
clrscr;
d:=0;
for i:=1000 downto 0 do
begin
write(i:5);
inc(d);
if d mod 15=0 then
begin
writeln;
delay(500);
end;
readln;
end.
b) In ra bảng nhân 8
uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 8 la: ');
for i:=1 to 9 do
writeln(8*i);
readln;
end.
c) In ra bảng cửu chương từ 1 đến 10
Uses crt;
Var
a:array[1..10,1..10] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 10 do
For j := 1 to 10 do
A[i,j] := i*j ;
For i := 1 to 10 do
Begin
For j := 1 to 10 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
5.
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
8.
Program baitap8 ;
uses crt ;
var i : integer ;
begin
CLRSCR ;
Write ( ' cac so le tu 1 den 100 la : ' );
For i : 1 to 100 do
if i mod 1 < > 0 then write ( i:5 ) ;
Readln
End .
9.
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=10000) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.
2.
var i: integer;
begin
for i:= 1 to 20 do writeln ('Turbo Pascal');
readln;
end.
4.
var n: integer;
begin
for n:= 1 to n do writeln ('Turbo Pascal');
readln;
end.
6.
var i: integer;
begin
for i:= 1 to 100 do writeln (i);
readln;
end.
Bài tập về vòng lặp rất đơn giản, nếu em hiểu được một bài chắc chắn sẽ làm được nhưng bài khác.
5.
var i: integer;
begin
for i:= 1 to 100 do write (i);
readln;
end.
Câu 4.1
var i, n: integer;
begin
write ('Nhap n='); readln(n);<br />for i:= 1 to n do writeln (i);<br />readln;<br />end.<br /><br /><strong>Câu 5. </strong><br />var i: integer;<br />begin<br />for i:= 1 to 100 do write (i);<br />readln;<br />end.<br /><br /><strong>Câu 6</strong>. <br />var i: integer;<br />begin<br />for i:= 1 to 100 do writeln (i);<br />readln;<br />end.<br /><br /><strong>Câu 8</strong>. <br />var i: integer;<br />Write ('Cac so le tu 1 den 100 la:')
for i:=1 to 100 do if i mod 2=1 then writeln(i);
readln;
end.
Câu 1.
uses crt;
begin
write ('Turbo Pascal');
readln;
end.
Câu 2.
var i: integer;
begin
for i:= 1 to 20 do writeln ('Turbo Pascal');
readln;
end.
Câu 4.
var n: integer;
begin
for n:= 1 to n do writeln ('Turbo Pascal');
readln;
end.
Câu 4.1
var i, n: integer;
begin
write ('Nhap n='); readln(n);
for i:= 1 to n do writeln (i);
readln;
end.
Câu 5.
var i: integer;
begin
for i:= 1 to 100 do write (i);
readln;
end.
Câu 6.
var i: integer;
begin
for i:= 1 to 100 do writeln (i);
readln;
end.
Câu 8.
var i: integer;
Write ('Cac so le tu 1 den 100 la:') for i:=1 to 100 do if i mod 2=1 then writeln(i);
readln;
end.
