Viết chương trình pascal lớp 8 hình trái tim

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é)

Bài 3 : Viết chương trình in ra hình trái tim : ...

Code:

program vd;
uses wincrt;
begin
writeln('       **     ** ');
writeln('     *    * *   *');
writeln('      *          *');
writeln('        *       *');
writeln('          *    *');
writeln('           * *');
writeln('            *');
end.(''Ctrl + F9'' để chạy bạn nhé)

 
Phần II : Các bài tập lập trình tính đại số và tính chu vi , diện tích hì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é)

Bài 8 : Viết chương trình tính diện tích hình tròn có bán kính = 10

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é)

Phần III : Viết chương trình tính , số phải nhập từ bàn phím . Viết chương trình khai báo .

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 .
Các bạn nên tự làm phép tính ở nhà kẻo gian lận :tp41:

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é)

Bài 17 : Viết chương trình tính tổng bình phương 2 số nguyên , 2 số nguyển nhập từ bàn phím

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é)

Bài 22 : Viết chương trình nhập vào 2 số nguyên A và B , in ra thứ tự từ bé đến lớ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(B', ,'A);
If A < B then write(A', ,'B);
end.(''Ctrl + F9'' để chạy bạn nhé)

Bài 23 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ lớn đến bé .

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é)

Bài 24 : Viết chương trình nhập vào 3 số nguyên A , B và C . In ra thứ tự từ bé đến lớn

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é)

Phần VI : Viết chương trình in ra một dãy dòng chữ thông qua lệnh For...do

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é)

Bài 28 : Viết chương trình tính tích từ 1 --> 10

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é)

Bài 29 : Viết chương trình tính dãy số thập phân từ 1+1/2+1/3+1/4+...+1/9

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é)

 

Bài 30 : Viết chương trình tính dãy số thập phân từ 1+1/2+1/4+1/6...+1/10

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é)

Bài 31 : Viết chương trình tính dã số thập phân từ 1+1/3+1/5+1/7+1/9.

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é)

Phần VIII : Viết chương trình tính bằng cách nhập vào số thông qua lệnh For...Do

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é)

Bài 33 : Nhập vào 1 số nguyên N . In ra tổng các số lẽ 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 If i mod 2 <> 0 then Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)

Bài 34 : Nhập vào 1 sô nguyên N . In ra tổng các số chẳng 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 If i mod 2 = 0 then Tổng:=Tổng+i;
write('Tổng=',Tổng);
end.(''Ctrl + F9'' để chạy bạn nhé)

 
Bài 35 :Nhập vào 1 số nguyên N < 20 . In ra tích các số chẵng tứ 1 > N .

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é)

Bài 36 : Nhập vào 1 số nguyên N > 10 . In ra tổng các số lẽ 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;
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é)

Bài 37 : In ra bảng cưu chương N , N nhập từ bàn phím

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é)