Bài 3. Chương trình máy tính và dữ liệu

Trả lời:

Program S_Hinh_Tron;
Uses Crt;
Var r,S:real;
Begin
Clrscr;
Writeln(‘TINH DIEN TICH HINH TRON:’);
Write (‘Nhap ban kinh R=’);readln(r);
dt:=pi*r*r;
Writeln(‘Dien tich hinh tron la:’,dt:6:2);
Readln;
End.

Chúc bạn học tốt!

Program dthinhtron;
uses crt;
var r,s:real;
begin
clrscr;
writeln('Nhap ban kinh r: ');
readln(r);
s:=r*r*PI;
writeln('dien tich hin tron la: ',s:8:3,'m2);
readln
end.

var r,dt:real;
begin
writeln('Nhap ban kinh r: ');readln(r);
dt:=r*r*pi;
writeln('dien tich hinh tron la: ',s:6:2);
readln;
end.

trong khoảng thời gian nhất định là: writeln('') và delay(số thời gian *1000)

trong khoảng thời gian cho đến khi nhấn phím là: readln

hình như o có kí hiệu ấy chắc bạn viết sai

Những chỗ sai được in đậm em nhé

program Hà 0908

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= '; (2+9)(9+2)/(10+1)= :4:2');

readln;

end.

Sửa lại như sau:

program Ha_0908;

uses crt;

begin

clrscr;

writeln('(2+9)(9+2)/(10+1)= ', (2+9)(9+2)/(10+1):4:2);

readln;

end.

sai nhu nay 

Hà 0908 ko ';'

writeln... =;4;2'); => ko co dau ' nay nha 

sai tên

Cho hai xâu kí tự “Lớp” và “8A”. Có thể định nghĩa nhiều “phép toán” trên tập hợp các dữ liệu kiểu xâu. Chẳng hạn phép ghép: Lớp + 8A = Lớp8A

Vì số thực gồm các số: + Số nguyên 

+ Số thập phân

+ Phân số

+...

Nên tả dùng div mà mod cho dễ dùng vùng tài liệu ít đi.

dòng nào cũng 5 kí tự ?

begin

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   writeln('*****');

   readin

end.

Đôi khi phần program khôgn cần thiết :)

uses crt;

begin

clrscr;

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

writeln('  * * * * * ');

readln;

end.

khi cần máy đọc nhiều biến

Lệnh read dùng để đọc nha!

đọc 

Uses Crt;

Var

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

Xin lỗi ở trên mình quên chưa khaai báo :))

Uses Crt;

Var A: array [1..100] of longint;

n, i, s: integer;

Begin

Clrscr;

write(' Nhap so n ='); readln(n);

For i:= 1 to n do

Begin

write('a[',i,'] ='); readln(a[i]);

end;

For i:= 1 to n do

If a[i] mod 5 then s:=s+a[i];

writeln('Tong cac so =' ,s);

readln

end.

Chúc Bạn Học Tốt

lớp 8 chưa học lệnh array nha

theo mình thì dễ hơn

uses crt;

var i,n,s:longint;

begin

clrscr;

write(' nhap n:');readln(n);

s:=0;

for i:=1 to n do

if i mod 5 = 0 then s:=s+i;

writeln(''tong cac so tn chia het cho 5 la',s);

readln;

end.

Program cv_dientich;

uses crt;

var cv,s,a,b:real;

begin

clrscr;

write('nhap chieu dai :');

readln(a);

write('nhap chieu rong :');

readln(b);

s:=a*b;

cv:=(a+b)*2;

writeln('chu vi hinh chu nhat = ' , cv);

writeln('dien tich hinh chu nhat = ' ,s);

readln

end.

program cv_dt_hcn;

uses crt;

var 6,3,cv,dt : integer;

begin

writeln('Nhap chieu dai'); readln(6);

writeln('Nhap chieu rong'); readln(3);

cv:=(6+3)*2;

dt:=6*3;

writeln('Chu vi HCN =', cv);

writeln('Dien tich HCN =', dt);

end.