Viết chương trình nhập và in danh sách lớp theo thứ tự điểm.

Viết chương trình nhập và in danh sách lớp theo thứ tự điểm.

Program dslop;
uses crt;
var  a:array[1..1000] of string;
     b:array[1..1000] of real;
     i,j,n:Integer;
     c1:string;
     c:real;
Begin
clrscr;
Write('Lop hoc co bao nhieu hoc sinh: '); Readln(n);
For i:=1 to n do begin
Write('Ten hoc sinh thu ',i,' : '); Readln(a[i]);
Repeat Writeln('Diem nay phai be hon 10');
Write('Nhap diem cua hoc sinh thu ',i,': ');Readln(b[i]);
until b[i]<=10;
end;
for i:=1 to n-1 do
for j:=i+1 to n do
If b[i]c:=b[i];
b[i]:=b[j];
b[j]:=c;
c1:=a[i];
a[i]:=a[j];
a[j]:=c1;
end;
Writeln('Danh sach lop theo thu tu dien la:');
For i:=1 to n do Writeln('Diem cua ',a[i],' la: ',b[i]:8:2);
Readln;
end.

Read More

Viết chương trình in ra số đảo của số vừa nhập VD: 123 -> 321

Viết chương trình in ra số đảo của số vừa nhập

VD: 123 -> 321.
Program sodao;
uses crt;
var a,i,s,m:Longint; b,c:string;
Begin
clrscr;
Writeln('Moi ban nhap so');
readln(a);
str(a,b);
For i:=length(b) downto 1 do c:=c+b[i];
val(c,s,m);
Writeln('So dao la ',s);
Readln;
End.

Bài tập này, bạn cần hiểu rõ về kiểu string.

Read More

Gợi ý cách làm bài tính diện tích - chu vi

Gợi ý cách làm bài tính diện tích - chu vi:

Khi làm bài tính diện tích hãy gọi một biến bất kì lưu công thức vd: S:=a*b, rồi in ra màn hình S, cách làm bài tập diện tích - chu vi nào cũng giống nhau, chỉ có công thức tính khác nhau thôi.
Có thể xem:
Các công thức tại đây
Cách làm bài tính chu vi diện tích- chu vi hình vuông tại đây

Chúc các bạn may mắn

Read More

Cách tính chu vi, diện tích các hình.

Cách tính chu vi, diện tích các hình.

1/ CÔNG THỨC HÌNH VUÔNG:

Chu vi: P = a x 4 (P: chu vi)

Cạnh: a = P : 4 (a: cạnh)

Diện tích: S = a x a (S: diện tích)

2/ CÔNG THỨC HÌNH CHỮ NHẬT:

Chu vi: P = (a + b) x 2 (P: chu vi)

Chiều dài: a = 1/2P – b (a: chiều dài)

Chiều rộng: b = 1/2P – a (b: chiều rộng)

Diện tích: S = a x b (S: diện tích)

Chiều dài: a = S : a

Chiều rộng: b = S : b

3/ CÔNG THỨC HÌNH BÌNH HÀNH: 

Chu vi: P = (a + b) x 2 (a: độ dài đáy)

Diện tích: S = a x h (b: cạnh bên)

Diện tích: S = a x h (h: chiều cao)

Độ dài đáy: a = S : h

Chiều cao: h = S : a

4/ CÔNG THỨC HÌNH THOI:

Diện tích: S = (m x n) : 2 (m: đường chéo thứ nhất)

Tích 2 đường chéo: (m x n) = S x 2 (n: đường chéo thứ nhất)

5/ CÔNG THỨC HÌNH TAM GIÁC:

Chu vi: P = a + b + c (a : cạnh thứ nhất; b: cạnh thứ hai; c: cạnh thứ ba)

Diện tích: S = (a x h) : 2 (a : cạnh đáy)

Chiều cao: h = (S x 2) : a (h : chiều cao)

Cạnh đáy: a = (S x 2) : h

6/ CÔNG THỨC HÌNH TAM GIÁC VUÔNG:

Diện tích: S = (a x a) : 2

7/ CÔNG THỨC HÌNH THANG:

Diện tích: S = (a + b) x h : 2 (a & b: cạnh đáy)

Chiều cao: h = (S x 2) : (a + b) (h : chiều cao)

Cạnh đáy: a + b = (S x 2) : h

8/ CÔNG THỨC HÌNH THANG VUÔNG:

Có một cạnh bên vuông góc với hai đáy, cạnh bên đó chính là chiều cao hình thang vuông. Khi tính diện tích hình thang vuông ta tính như cách tìm hình thang. (theo công thức)

9/ CÔNG THỨC HÌNH TRÒN: 

Bán kính hình tròn: r = d : 2 hoặc r = C : 2 : 3,14

Đường kính hình tròn: d = r x 2 hoặc d = C : 3,14

Chu vi hình tròn: C = r x 2 x 3,14 hoặc C = d x 3,14

Diện tích hình tròn: C = r x r x 3,14

Tìm diện tích thành giếng:

Tìm diện tích miệng giếng: S = r x r x 3,14

Bán kính hình tròn lớn = bán kính hình tròn nhỏ + chiều rộng thành giếng

Diện tích hình tròn lớn: S = r x r x 3,14

Tìm diện tích thành giếng = diện tích hình tròn lớn – diện tích hình tròn nhỏ

10/ CÔNG THỨC HÌNH HỘP CHỮ NHẬT: 

* Diện tích xung quanh: Sxq = P_đáy x h

* Chu vi đáy: P_đáy = Sxq : h

* Chiều cao: h = P_đáy x Sxq

– Nếu đáy của hình hộp chữ nhật là hình chữ nhật thì:

P_đáy = (a + b) x 2

– Nếu đáy của hình hộp chữ nhật là hình vuông thì:

P_đáy = a x 4

* Diện tích toàn phần: S_tp = S_xq + S_2đáy

S_đáy = a x b

* Thể tích: V = a x b x c

– Muốn tìm chiều cao cả hồ nước (bể nước)

h = v : S_đáy

– Muốn tìm diện tích đáy của hồ nước (bể nước)

S_đáy = v : h

– Muốn tìm chiều cao mặt nước đang có trong hồ ta lấy thể tích nước đang có trong hồ (m³) chia cho diện tích đáy hồ (m²)

h = v : S_đáyhồ

– Muốn tìm chiều cao mặt nước cách miệng hồ (bể) (hay còn gọi là chiều cao phần hồ trống)

+ Bước 1: Ta tìm chiều cao mặt nước đang có trong hồ.

+ Bước 2: Lấy chiều cao cả cái hồ trừ đi chiều cao mặt nước đang có trong hồ

* Diện tích quét vôi:

– Bước 1 : Chu vi đáy căn phòng.

– Bước 2: Diện tích bốn bức tường (Sxq)

– Bước 3: Diện tích trần nhà (S = a x b)

– Bước 4: Diện tích bốn bức tường (Sxq) và trần nhà

– Bước 5: Diện tích các cửa (nếu có)

– Bước 6: Diện tích quét vôi = diện tích bốn bức tường và trần – diện tích các cửa.

11/ CÔNG THỨC HÌNH LẬP PHƯƠNG:

* Diện tích xung quanh: Sxq = (a x a) x 4

* Cạnh: (a x a) = Sxq : 4

* Diện tích toàn phần: Stp = (a x a) x 6

* Cạnh: (a x a) = Stp : 6

Read More

Viết chương trình tính chu vi và diện tích hình chữ nhật

Viết chương trình tính chu vi và diện tích hình chữ nhật

Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
     Write('Nhap chieu dai:'); readln(a);
     Write('Nhap chieu rong:'); readln(b);
     S := a*b;
     CV := (a+b)*2;
     Writeln('Dien tich hinh chu nhat la:',S);
     Writeln('Chu vi hinh chu nhat la:',CV:10:2);
     readln;
end.

Ở đây: +a,b: chiều dài các cạnh của hình chữ nhật

       +S: là diện tích

       +CV: là chu vi

Read More

Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình.

Viết các chương trình con tính diện tích tam giác, tròn, vuông, chữ nhật trong một chương trình. Sau đó hỏi chọn một trong các phương án tính diện tích bằng cách chọn trong bảng chọn lệnh sau:0. Không làm gì hết và trở về màn hình soạn thảo.1. Tính diện tích hình vuông2. Tính diện tích hình tròn3. Tính diện tích tam giác4. Tính diện tích hình chữ nhật

Program Tinh_Dien_Tich;
Uses crt;
Procedure HV;
Var s,a:real; Begin
Writeln(‘TINH DIEN TICH HINH VUONG:’);

Write(‘Nhap chieu dai cua canh a = ‘);readln(a); s:=a*a;
Writeln(‘Dien tich hinh vuong = ‘,s:6:2);
End;
Procedure HT;
Var s,r:real;
Begin
Writeln(‘TINH DIEN TICH HINH TRON:’);
Write(‘Nhap ban kinh R = ‘);
readln(r); s:=pi*r*r;
Writeln(‘Dien tich hinh tron = ‘,s:6:2);
End;
Procedure TG;
Var a, b, c,s,p:real; Begin
Writeln(‘TINH DIEN TICH TAM GIAC:’);

Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln(‘Chu vi tam giac:’,2*p:4:2) ;
Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘,’, ‘,c,’ khong phai la ba canh cua tam giac’) ;
End;
Procedure CN;
Var a, b, s:real; Begin
Writeln(‘TINH DIEN TICH HINH CHU NHAT:’);
Write(‘Nhap chieu dai a =’);readln(a);
Write(‘Nhap chieu rong b= ‘);readln(b);
s:= a*b;
Writeln(‘Dien tich hinh chu nhat, s= ‘,s:6:2);
End;
Procedure menu;

Var d:integer;

Begin
Clrscr;
Writeln(‘CHON MOT TRONG CAC PHUONG AN SAU:’);
Writeln(‘0: Quay ve man hinh soan thao’);
Writeln(‘1: Tinh dien tich hinh vuong’);

Writeln(‘2: Tinh dien tich hinh tron’);

Writeln(‘3: tinh dien tich tam giac’);

Writeln(‘4: Tinh dien tich hinh chu nhat’);
Writeln(‘====================================’);

Write(‘ Hay chon mot phuong an: ‘); readln(d); Writeln(‘====================================’);

Writeln;
Case d of
0: Exit;
1: HV;
2: HT;
3: TG;
4: CN;
End;
End;
Begin

menu;
Readln;

End.

Chương trình này như dạng bạn viết các chương trình khác nhau nhưng đưa nó vào chương trình con thôi. Phần cuối không cần chương trình con menu cũng được, hãy ghi thẳng vào chương trình chính. Có thể dùng 5 câu lệnh if thay cho case d of ;

Read More

Viết chương trình nhập vào một số, kiểm tra xem nó là số lẻ hay số chẵn.

Viết chương trình nhập vào một số, kiểm tra xem nó là số lẻ hay số chẵn

Program so_chan_le;

Uses crt;

Var n:Integer;

Begin

clrscr;

Write('Moi ban nhap mot so bat ki: ');

Readln(n);

If n mod 2 = 0 then writeln('Day la so chan') else writeln('Day la so le');

Readln;

End.

Hình ảnh:

Read More