1) hãu ghép các từ khoá dưới đây thành một chương trình hoanc chỉnh.
Program Cv_chu_nhat;
End.
Begin
Uses crt;
Writeln('nhap do dai cho canh a la')
CV:real CV:=(a+b)*2
Var a,b: integer
Readln(a)
Readln(b)
Writeln('nhap do dau cho canh b')
Writeln('chu vi hinh chu nhat', CV)
2) chương trình tính và đưa ra màn hình giá trị biểu thức :s = 1 + 2 + 3 + 4 + 5 + 6 + 3 + 8 + 9 + 10
Cho chương trình sau :
( Tính chu vi và diện tích tam giác biết 3 cạnh a,b,c với chiều cao h ứng với cạnh a nhập từ bàn phím )
Uses crt;
Var a,b,c,h,chuvi,dientich : integer;
Begin
clrscr;
Writeln('Nhap canh a= '); Readln(a);
Writeln('Nhap canh b= '); Readln(b);
Writeln('Nhap canh c= '); Readln(c);
chuvi := a+b+c;
dientich := a*h/2
Writeln('Chu vi hinh tam giac la = ', chuvi);
Write('Dien tich hinh tam giac la = ', dientich);
Readln;
End.
Giải thích lý do vì sao chương trình không chạy được.
cho chương trình sau hãy sắp xếp lại cho đúng
var a,b,c:integer;
c:=a+b;
begin
write('nhap gia tri a);
readln(b);
program tong hai so;
end.
write('nhap so b')
readln(a);
clrscr;
readln;
uses crt;
writeln(tong cua hai so vua nhap la:',c)
bạn nào biết thì giúp mình với mai mình kt rồi
Bạn Tuấn viết chương trình như sau:
program Tinh toan
uses crt;
var
x, y : integer;
tb = real;
thongbao : integer;
const a := 2;
begin
clrscr;
thongbao := ‘Trung binh cong cua hai so x va y la: ‘;
write(‘Nhap gai tri cho x = ‘); readln(x);
write(‘Nhap gia tri cho y = ‘); readln(y);
tb = (x+y)/a;
writeln(thongbao, tb:2:1);
readln;
end.
a. Có một vài câu lệnh bạn Tuấn viết sai, em hãy viết lại cho đúng.
b. Hãy phân biệt tên biến, tên hằng trong chương trình trên.
Hãy liệt kê các lỗi, điền từ khuyết, sắp xếp lại các câu lệnh trong chương trình sau:
1. Program Tinh tien;
2. Uses crt
3. ....... soluong,dongia,Tienthanhtoan:=integer;
4. ....... Phi=1000;
5. ..........
6. Clrscr;
7. write('nhap so luong:');readln(soluong);
8. write('nhap don gia:');readln(dongia);
9. writeln('So tien quy khach phai thanh toan la:',Tienthanhtoan);
10. Tienthanhtoan = soluong*dongia+phi;
11. ............
12. End.
giúp mik vs các bạn!
Hãy liệt kê các lỗi, điền từ khuyết, sắp xếp lại các câu lệnh trong chương trình sau:
1. Program Bai11;
2. ........ crt;
3. ........ a,b,H:integer;
4. ........ c=12;
5.Begin
6. Clrscr;
7. write('nhap a='); Readln(a);
8. write('nhap b='); ...........(b)
9. H:=a*a+b*b+c;
10. Readln;
11. Writeln('H=',H);
12. .......
giúp mình với, rốt cuộc thì sai chỗ nào ạ ?
program dthcn;
uses crt;
var a,b,S: integer;
begin
clrscr;
write('nhapchieudai');
readln(a);
write('nhapchieurong');
readln(b);
S:=a*b
writeln('dientichHCNla:',S);
readln;
end.
Dưới đây là một chương trình viết trong Pascal:
program CT_Dau_tien ;
Uses crt ;
begin
writeln ( ‘Toi la Turbo Pascal’ )
end.
Tên chương trình là:
A begin. B. end C. writeln D. crt
Cho chương trình viết trong Pascal:
Program Tinh_tien;
Var soluong: integer;
Dongia, thanhtien: real;
Const phi = 10000;
Begin
Writeln (‘Don gia: ’);
readln (Dongia);
Writeln (‘So luong : ’);
readln (soluong);
thanhtien:= soluong*Dongia + phi;
Writeln (‘So tien khach hang phai tra la: ’, thanhtien);
End.
Hãy phân biệt hằng, biến trong chương trình trên và đánh dấu X vào bảng sau:
Hằng Biến Không phải hằng hoặc biến
soluong
Dongia
thanhtien
phi
10000
Tinh_tien
ìm hiểu đoạn chương trình sau đây. Khồng cần viết chương trình,hãy cho biết lệnh writeln in ra màn hình giá trị của i,j,k là bao nhiêu?
i:=1;j:=2;k:=3;
while i<=6 do
begin i:=i+1; j:=j+1; k:=k+j; end;
space:=' '
write(I,space,j,space,k);
1. Từ khoá delay trong chương trình có tác dụng để làm gì. 2. Từ khoá readln trong chương trình có tác dụng gì. 3. Cho 1 đoạn chương trình sau write (‘10/2=‘, 10/2:0:2) hãy cho biết :0 trong phần :0:2 có ý nghĩa gì 4. Giữa readln là delay giống nhau là đều tạm ngưng chương trình. Vậy sự khác nhau giữa readln và delay
