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...
Thứ Sáu, 15 tháng 12, 2017
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....
Thứ Hai, 11 tháng 12, 2017
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...
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)...
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.
Ở...
Thứ Bảy, 2 tháng 12, 2017
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; BeginWriteln(‘TINH DIEN TICH HINH...
Thứ Tư, 29 tháng 11, 2017
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:
...
