- #1
Hơi dài:
Mã:
uses crt;
var i:byte;
begin
clrscr;
textcolor[12];
for i:=1 to 4 do write[' '];
for i:=1 to 5 do write['*'];
for i:=1 to 5 do write[' '];
for i:=1 to 5 do write['*'];
writeln;
{---------------------------}
for i:=1 to 3 do write[' '];
for i:=1 to 7 do write['*'];
for i:=1 to 3 do write[' '];
for i:=1 to 7 do write['*'];
writeln;
{---------------------------}
for i:=1 to 2 do write[' '];
for i:=1 to 9 do write['*'];
write[' '];
for i:=1 to 9 do write['*'];
writeln;
for i:=1 to 2 do write[' '];
for i:=1 to 19 do write['*'];
writeln;
for i:=1 to 3 do write[' '];
for i:=1 to 17 do write['*'];
writeln;
for i:=1 to 4 do write[' '];
for i:=1 to 15 do write['*'];
writeln;
for i:=1 to 5 do
write[' '];
for i:=1 to 13 do write['*'];
writeln;
for i:=1 to 6 do write[' '];
for i:=1 to 11 do write['*'];
writeln;
for i:=1 to 7 do write[' '];
for i:=1 to 9 do write['*'];
writeln;
for i:=1 to 8 do write[' '];
for i:=1 to 7 do write['*'];
writeln;
for i:=1 to 9 do write[' '];
for i:=1 to 5 do write['*'];
writeln;
for i:=1 to 10 do write[' '];
for i:=1 to 3 do write['*'];
writeln;
for i:=1 to 11 do write[' '];
write['*'];
writeln;
readln
end.
Last edited: 23 Tháng tám 2020
- #2
Nice
Hehe cái này đi tán crush thì tuyệt
Phần I : Viết các chương trình in ra dòng chữ , hình . Code: Bài 1 : Viết chương trình in ra dòng chữ "Chào các bạn" .
program Vd;
uses wincrt;
begin
write['Chào các bạn"];
end.[''Ctrl + F9'' để chạy bạn nhé]Code: Bài 2 : Viết chương trình in ra hình chữ nhật * * * * * * *
* *
* * * * * * *
program vd;
uses wincrt;
begin
writeln['* * * * * * *'];
writeln['* *'];
writeln['* *'];
writeln['* * * * * * *'];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
begin
writeln[' ** ** '];
writeln[' * * * *'];
writeln[' * *'];
writeln[' * *'];
writeln[' * *'];
writeln[' * *'];
writeln[' *'];
end.[''Ctrl + F9'' để chạy bạn nhé] Bài 4 : Viết chương trình tính dãy số thập phân 1+1/2+1/3+1/4...+1/9 Code: program vd;
uses wincrt;
begin
writeln['1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9=',1+1/2+1/3+1/4+1/5+1/6+1/7+1/8+1/9];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 5 : Viết chương trình tính [10+2]^2/3+1 Code: program vd;
uses wincrt;
begin
writeln['[10+2]^2/3+1=',[10+2]*[10+2]/3+1];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 6 : Viết chương trình tính [8^3-5^3]:2^3+1 Code: program vd;
uses wincrt;
begin
writeln['[8^3-5^3]:2^3+1=',[8*8*8-5*5*5]/[2*2*2]+1];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 7 : Viết chương trình tính chu vi
hình tròn có bán kính = 5 Code: program vd;
uses wincrt;
var cv:real;
Const bk=5;
pi=3,14;
begin
cv:=bk*2*3,14;
writeln['Chu vi hình tròn có bán kính = 5 là',cv:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var dt:real;
const bk=10;
pi=3,14;
begin
dt:=bk*bk*3,14;
writeln['Dien tich hinh tròn có bán kính = 10 là',dt:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 9 : Viết chương trình tích chu vi hình chữ nhật có cd = 5 , cr = 3 Code: program vd;
uses wincrt;
var cv:real;
const cd=5;
cr=3;
begin
cv:=[cd+cr]*2;
writeln['Chu vi hình chữ nhật có cd = 5 , cr = 3 là',dt:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 10 :Viết chượng trình tính diện tích hình chữ
nhật có cd = 10 , cr = 5 Code: program vd;
uses wincrt;
var dt:real;
const cd=10;
cr=5;
begin
dt:=cd*cr;
writeln['Diện tích hình chữ nhật có cd = 10 , cr = 5 là',dt:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Bài 11 :Nhập cd , cr để tính diện tích hình chữ nhật Code: program vd;
uses wincrt;
var cd,cr,dt:real;
begin
writeln['Đây là chương trình tính diện tích hình chữ nhật'];
writeln['Nhap cd='];readln[cd];
writeln['Nhap cr='];readln[cr];
dt:=cd*cr;
writeln['dt=',dt:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 12 : Nhập bán kính từ bàn phím để tính diện hình tròn Code: program vd;
uses wincrt;
var bk,cv:real;
begin
writeln['Đây là chương trình tính chu vi hình tròn'];
writeln['Nhập bk='];readln[bk];
dt:=bk*bk*3,14;
writeln['dt=',dt:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Bài 13 : Viết chương trình tính tiền điện với tiền điện = số kwh * 1,500 , số kwh nhập từ bàn phím . Code: program vd;
uses wincrt;
var tiendien,kwh:real;
begin
writeln['Đây là chương trình tính tiền điện'];
writeln['Nhập kwh='];readln[kwh];
tiendien:=kwh*1500;
write['tiendien=',tiendien:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 14 : Nhập 2 số nguyên A , B tính tổng 2 số nguyên . Code: program vd;
uses wincrt;
var A,B,tổng:real;
begin
writeln['Đây là chương trình tính tổng 2 số nguyên A và B'];
writeln['Nhập số A='];readln[A];
writeln['Nhập số B='];readln[B];
tổng:=A+B;
write['tổng=',tổng:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 15 : Nhập họ và tên , năm sinh in ra số tuổi Code: program vd;
uses wincrt;
var a,tuổi:integer;
b:string;
begin
writeln['HovaTen'];readln[b];
writeln['Nhap Nam sinh'];readln[a];
tuổi:=2011-a;
writeln['tuổi=',tuổi];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 16 : Viết chương trình tính điểm trung bình của Toán , Lý , Hóa Code: program bvd;
uses wincrt;
var Toán,Lý,Hóa,tb:real;
begin
writeln['Nhập điểm toán='];readln[Toán];
writeln['Nhập điểm lý='];readln[Lý];
writeln['Nhập điểm hóa='];readln[Hóa];
tb:=[Toán+Lý+Hóa]/3
write['Điểm trung bình của Toán , Lý , Hóa=',tb:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var songuyen1,songuyen2,tbp:real;
begin
writeln['Nhập số nguyên thứ nhất='];readln[songuyen1];
writeln['Nhập số nguyên thứ hai='];readln[songuyen2];
tbp:=songuyen1*songuyen1+songuyen2*songuyen2;
write['Tổng bình phương 2 số nguyên=',tbp:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]Những dấu in đậm trên bạn có thể thay thế bằng 1 chữ cái như : A, B, C ... Khi cho chạy chương trình không gây anh hưởng chương trình tính . Phần IV : Viết chương trình so sánh có chia hết hay không . Bài 18 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 hay không . Code: program vd;
uses wincrt;
var N:integer;
begin
writeln['Nhập N='];readln[N];
If N mod 2 = 0 then write['N chia hết cho 2'];
If N mod 2 0 then write['N không chia hết cho 2'];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 19 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 và 3 hay không . Code: program vd;
uses wincrt;
var N:integer;
begin
writeln['Nhập N='];readln[N];
If [N mod 2 = 0] and [N mod 3 = 0] then write['N chia hết cho 2 và 3'];
If [N mod 2 0] and [N mod 3 0] then write['N không chia hết cho 2 và 3'];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 20 : Viết chương trình nhập vào số nguyên N , in ra màng hình số đó có chia hết cho 2 , 4 và 5 hay không . Code: program vd;
uses wincrt;
var N:integer;
begin
writeln['Nhập N='];readln[N];
If [N mod 2 = 0] and [N mod 4 = 0] and [N mod 5 = 0] then write['N chia hết cho 2 , 4 và 5'];
If [N mod 2 0] and [N mod 4 0] and [N mod 5 0] then write['N không chia hết cho 2 , 4 và 5'];
end.[''Ctrl + F9'' để chạy bạn nhé] | Phần V : Viết chương trình so sánh các số nguyên Bài 21 : Viết chương trình nhập vào 2 số nguyên A và B , in ra số nguyên lớn hơn Code: program vd;
uses wincrt;
var A,B:integer;
begin
write['Nhập số nguyên thứ nhất='];readln[A];
write['Nhập số nguyện thứ hai='];readln[B];
If A > B then write['A'];
If A < B then write['B'];
If A = B then write['A bằng B'];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var A,B:integer;
begin
write['Nhập số nguyên thứ nhất='];readln[A];
write['Nhập số nguyên thứ hai='];readln[B];
If A > B then write[B', ,'A];
If A < B then write[A', ,'B];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var A,B,C:integer;
begin
write['Nhập số nguyên thứ nhất='];readln[A];
write['Nhập số nguyên thứ hai='];readln[B];
write['Nhập số nguyện thứ ba='];readln[C];
If [A > B] and [A > C] and [B > C] then write['A,B,C'];
If [A > C] and [A > B] and [C > B] then write['A,C,B'];
If [B > A] and [B > C] and [A > C] then write['B,A,C'];
If [B > C] and [B > A] and [C > A] then write['B,C,A'];
If [C > A] and [C > B] and [A > B] then write['C,A,B'];
If [C > B] and [C > A] and [B > A] then write['C,B,A'];
end. [''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var A,B,C:integer;
begin
write['Nhập số nguyên thứ nhất='];readln[A];
write['Nhập số nguyên thứ hai='];readln[B];
write['Nhập số nguyện thứ ba='];readln[C];
If [A > B] and [A > C] and [B > C] then write['C,B,A'];
If [A > C] and [A > B] and [C > B] then write['B,C,A'];
If [B > A] and [B > C] and [A > C] then write['C,A,B'];
If [B > C] and [B > A] and [C > A] then write['A,C,B'];
If [C > A] and [C > B] and [A > B] then write['B,A,C'];
If [C > B] and [C > A] and [B > A] then write['A,B,C'];
end.[''Ctrl + F9'' để chạy bạn nhé]
Bài 25 : Viết chương trình in ra màng hình 10 chữ Vinatinhoc.net Code: program vd;
uses wincrt;
var i:integer;
begin
write['Đây là chương trình in ra màng hình 10 chữ Vinatinhoc.net'];
For i:=1 to 10 do writeln['Vinatinhoc.net'];
end.[''Ctrl + F9'' để chạy bạn nhé]Bài 26 : Viết chương trình in ra màng hình 5 chữ Vinatinhoc và 5 chữ .net Code: program vd;
uses wincrt;
var i,j:integer;
begin
write['Đây là chương trình in ra màng hình 5 chữ Vinatinhoc và 5 chữ .net'];
For i:=1 to 5 do writeln['Vinatinhoc'];
For j:=6 to 10 do writeln['.Net'];
end.[''Ctrl + F9'' để chạy bạn nhé]Phần VII : Viết các chương trình tính đại số thông qua lệnh For...do Bài 27 : Viết chương trình tính tổng từ 1 --> 50 Code: program vd;
uses wincrt;
var i:integer;
Tổng:longint;
begin
Tổng:=0;
writeln['Đây là chương trình tính tổng từ 1 đến 50'];
For i:= 1 to 50 do Tổng:=Tổng+i;
write['Tổng=',Tổng];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var i:integer;
Tích:longint;
begin
Tích:=1;
writeln['Đây là chương trình tính tích từ 1 đến 10'];
For i:=1 to 10 do Tích:=Tích*i;
write['Tích=',Tích];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var i:integer;
Tổng:real;
begin
Tổng:=0;
writeln['Đây là chương trình tính dẫy số thập phân'];
For i:=1 to 9 do Tổng:=Tổng+1/i;
write['Tổng=',Tổng:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé] Code: program vd;
uses wincrt;
var i:integer;
Tổng:real;
begin
Tổng:=0;
Writeln'['Đây là chương trình tính dãy số thập phân chẵn'];
For i:=1 to 10 do if i mod 2 = 0 then Tổng:=Tổng+1/i;
write['Tổng=',Tổng:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var i:integer;
Tổng:real;
begin
Tổng:=0;
writeln['Đây là chương trình tính dãy số thập phân lẽ'];
For i:=1 to 9 do if i mod 2 0 then Tổng:=Tổng+1/i;
write['Tồng='Tổng:5:2];
end.[''Ctrl + F9'' để chạy bạn nhé]
Bài 32 : Nhập vào 1 số nguyên N . In ra tổng các số từ 1 --> N . Code: program vd;
uses wincrt;
var N,i:integer;
Tổng:longint;
begin
writeln['Nhập số nguyên ='];readln[N];
Tổng:=0;
For i:=1 to N do Tổng:=Tổng+i;
write['Tổng=',Tổng];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var N,i:integer;
Tổng:longint;
begin
writeln['Nhập số nguyên ='];readln[N];
Tổng:=0;
For i:=1 to N do If i mod 2 0 then Tổng:=Tổng+i;
write['Tổng=',Tổng];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var N,i:integer;
Tổng:longint;
begin
writeln['Nhập số nguyên ='];readln[N];
Tổng:=0;
For i:=1 to N do If i mod 2 = 0 then Tổng:=Tổng+i;
write['Tổng=',Tổng];
end.[''Ctrl + F9'' để chạy bạn nhé] Code: program vd;
uses wincrt;
var N,i:integer;
Tích:longint;
begin
writeln['Nhập số nguyên ='];readln[N];
Tích:=1;
If N < 20 then
For i:=1 to N do If i mod 2 = 0 then Tích:=Tích*i;
write['Tích=',Tích];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code: program vd;
uses wincrt;
var N,i:integer;
Tổng:longint;
begin
writeln['Nhập số nguyên ='];readln[N];
Tổng:=0;
If N > 10 then
For i:=10 to N do If i mod 2 0 then Tổng:=Tổng+i;
write['Tổng=',Tổng];
end.[''Ctrl + F9'' để chạy bạn nhé]
Code program vd;
uses wincrt;
var N:integer;
begin
writeln['Nhập N='];readln[N];
For i:=1 to 10 do writeln[N,' x ' , i:2, ' = ' , N*i:3];
end.[''Ctrl + F9'' để chạy bạn nhé]
|