Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
A)
program Tinh_toan;
uses crt;
var x,y: integer;
tb: real;
thongbao: string;
const a = 2;
begin
clrscr;
thongbao:= 'Trung binh cong cua hai so x va y la: ';
write('Nhap gia tri cho x= ');readln(x);
write('Nhap gia tri cho y= ');readln(y);
tb:= (x + y) / a;
writeln(thongbao, tb:2:1);
readln
end.
B)
- Các tên biến là: x, y, tb, thongbao
_ Tên hằng là: a
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Bạn làm thiếu begin và end nhé. Vì ở dòng 12 bạn dùng else nhưng trước nó không có câu lệnh điều kiện.
program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
Begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
end
else
begin
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
end;
readln;
end.
Cho em hỏi writeln('ket qua phep cong la: ',a+b); có ý nghĩa gì vậy ạ
co 4 loi sai
if a mod 2:=0 là sai ở chỗ :
writeln(a,'la so chan); là sai ở chỗ sau chữ n thiếu dấu '
writln sai ở chỗ thiếu chữ e
(a,'la so le') sai ở chỗ thiếu chấm phẩy sau cùng
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
program tong hai so;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('nhap gia tri a);readln(a);
write('nhap so b'); readln(b);
c:=a+b;
writeln(tong cua hai so vua nhap la:',c);
readln;
end.
nhap a,b gop lam 1 dc nhe
program Tich;
uses crt;
var a:b,Tich; integer;
begin
clrscr;
Write('nhap a va b='); readln(a,b);
Tich:a*b;
Writeln('tich cua a va b la:', Tich:1:0);
Readln;
end.
1. Tìm ra chỗ sai ( gạch chân ) và giải thích tại sao sai :
a) var a,b:=integer (dấu = không có ở đây)
const c:=4 ;
begin :(dấu : không có ở đây)
a:= 10 (thiếu dấu ;)
b:=a/c;
write('gia tri cua b la ',b);(thiếu dấu ,)
end.
b) var : a: real; b: integer; (sau var không có :)
const c:=4
begin
c:=4.1; (trên đã gán hằng thì không đc sửa)
a:=10;
b:=a/c
write( ' gia tri cua b la ', b ); (thiếu dấu , và ;)
end (thiếu dấu .)
2a) câu a mình không hiểu đề lắm
b) Program Hoandoigiatri;
Uses Srt;
Var x,y,z: real;
Begin
Clrscr;
Write('Nhap gia tri cua x='); readln(x);
Write('Nhap gia tri cua y='); readln(y);
z:=x;
x:=y;
y:=z;
Writeln('Ket qua sau khi hoan doi:x=',x; y=',y);
Readln;
End.
a) var a,b:=integer (sai vì khi khai báo biến dùng dấu 2 chấm ko dc dùng dấu gán, ko có dấu chấm phẩy khi kết thúc).
Sửa: var a, b:integer;
const c:=4 ;
begin : (sai khi bắt đầu không cần dùng dấu 2 chấm)
sửa: begin
a:= 10 (sai ko có chấm phẩy)
sửa a:=10;
b:=a/c;
write( ' gia tri cua b la ' b); (sai thiếu dấu phẩy)
sửa: write('gia tri cua b la',b);
end.
b) var : a: real; b: integer; (sai sau var ko dc dùng hai chấm)
sửa var a: real; b: integer;
const c:=4 (sai thiếu dấu ;)
sửa const c:=4;
begin
c:=4.1; (sai ko nên viết phần này vì ở trên đã gán c:=4 nên ko dc viết thêm)
a:=10;
b:=a/c (sai thiếu dấu ;)
sửa a:=a/c;
write( ' gia tri cua b la ' b ) (sai thiếu dấu phẩy và dấu chấm phẩy)
sửa write('gia tri cua b la',b);
end (sai thiếu dấu chấm)
sửa end.
a)Writeln('Moi ban nhap so x:');Read(x);
Writeln('Moi ban nhap so y:');Read(y);
Writeln('trung binh cong cua hai so x va y la:',(x+y)/2));
b)Writeln('nhap gia tri cho x:');Read(x);