Bài 4. Sử dụng biến trong chương trình
Các câu hỏi tương tự
Nêu ý nghĩa của các từ khóa,câu lệnh trong Pascal: program,begin,end,uses,var,const,clrscr,delay(x),write ( ),readln,readln (x)
Tìm lỗi sai trong các lệnh khai báo sau và sửa lại cho đúng :
a, var start , begin : real ;
b, const x : = 3 . 14 , y : 1000 ;
c, var a : 5 ;
d, const ten lop = ' 8a2 ' ;
e, var xep _ loại , diem : integer , real ;
f, var nguyen 1 , nguyen 2 , : integer , thuc 1 , thuc 2 , : real ;
g, const 3 ban = ' Phan ' , ' Tuan ' , ' Thanh ' ;
h, const tên _ nhom = Tin hoc ;
Chỉ ra các lỗi trong chương trình sau gạch chân và chỗ sai giải thích const pi=3.1416; clrscr; begin a:=500 b:=a*a*pi; c=a+b write(c) readln end
Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sửa lại cho đúng:
Var a, b := Integer;
Const c := 3;
Begin
a: = 200
b : = a / c ;
Write (b);
Readln;
End.
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 c...
Đọc tiếp
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.
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
Đọc tiếp
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
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.
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;Beginclrscr;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/2Writeln(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.
Đọc tiếp
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.
Giả thích lỗi các câu lệnh sau: -Const b: integer; -Var a= 90; -Var Tinh_tong :array[1.. 50.5] of char;