1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu)
2) Cho đoạn chương trình sau:
Program sua loi;
var a,b,s =real
Begin
write ('nhap a=') , readln('a');
write (nhap b=') , readln(b')
s:= (a*b)/2;
write ('s=s);
readln
End.
K
Khách
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.
Những câu hỏi liên quan
chương trình không hoạt động. Bạn đã phát hiện được lỗi và chỉnh sửa thành chương trình ở Hình 2. Khi thực hiện chương trình ở Hình 2 và nhập giá trị a, b đều là 5, chương trình đưa ra kết quả sai (xem Hình 3).
7 tháng 12 2021
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
if (a>b) cout<<"a lon hon b";
else if (a<b) cout<<"a nho hon b";
else cout<<"a bang b";
return 0;
}
DT
14 tháng 12 2021
t hong bt cái này ă, mà chỗ m lớp 8 đc hc tin học vui quá ha, t ko bt ba cái vụ này lun:<
5 tháng 10 2021
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
write(a+b);
readln;
end.
Câu 2:
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
writeln(a+b-c);
readln;
end.
5 tháng 10 2021
Câu 3:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln(a-b);
readln;
end.
Câu 4:
uses crt;
var x,y,z:integer;
begin
clrscr;
readln(x,y,z);
writeln((x+y)*z);
readln;
end.
ML
27 tháng 12 2020
Không đúng (biên dịch lỗi).
Ở dòng 3, lệnh Writel bị viết sai chính tả. Ở dòng 7 thực hiện khai báo biến cho 2 biến a b ở phía trong hàm chính (thay vì nằm phía trên).
27 tháng 12 2020
Chắc chắn là chương trình sẽ bị lỗi rồi
Bởi vì thứ nhất là bạn phải khai báo a,b trước khi bạn nhập
thứ hai là ở dòng 3 chữ writel bạn viết sai chính tả rồi
Câu 1:
*Dạng 1: Dạng thiếu
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b);
if b>a then writeln(b,' lon hon ',a);
if a=b then writeln('hai so bang nhau');
readln;
end.
*Dạng 2: Dạng đủ
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln('hai so bang nhau');
readln;
end.
Câu 2:
-Lỗi 1: var a,b,s=real;
Sửa lại: var a,b,s:real;
-Lỗi 2: write('nhap a='),
Sửa lại: write('nhap a=');
-Lỗi 3: readln('a');
Sửa lại: readln(a);
-Lỗi 4: Write(nhap b='),
Sửa lại: write('nhap b=');
-Lỗi 5: readln(b');
Sửa lại: readln(b);
-Lỗi 6: write('s=s);
sửa lại: write('s=',s);
Câu 1:
*Dạng 1: Dạng thiếu
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b);
if b>a then writeln(b,' lon hon ',a);
if a=b then writeln('hai so bang nhau');
readln;
end.
*Dạng 2: Dạng đủ
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln('hai so bang nhau');
readln;
end.
Câu 2:
-Lỗi 1: var a,b,s=real;
Sửa lại: var a,b,s:real;
-Lỗi 2: write('nhap a='),
Sửa lại: write('nhap a=');
-Lỗi 3: readln('a');
Sửa lại: readln(a);
-Lỗi 4: Write(nhap b='),
Sửa lại: write('nhap b=');
-Lỗi 5: readln(b');
Sửa lại: readln(b);
-Lỗi 6: write('s=s);
sửa lại: write('s=',s);