Bản chất của rẽ nhánh hoạt động của phần mềm máy tính là gì
O
Bài 9: Cấu trúc rẽ nhánh
Làm hộ mình với
cho biết lỗi sai trong câu lệnh sau: If d:= 3 then write('dbang3')
lỗi chỗ d:= 3
viết đúng là if d = 3 then write('dbang3')
Đúng 0
Bình luận (0)
thiếu dấu chấm phẩy và d:=3
Ai giúp em với ạ , em cần gấp 
1:
max:=a;
if max<b then max:=b;
2:
min:=a;
if min>b then min:=b;
3: if (x=sqr(a)+sqr(b)) and (a<0) then writeln(x);
if (x=sqrt(b)+sqrt(a)) and (a>0) then writeln(x);
Đúng 3
Bình luận (1)
viết chương trình nhập từ bàn phím 2 số nguyên dương a và b, đưa ra màn hình số có giá trị lớn hơn.
input: a,b
ouput: đưa ra số lớn hơn
em cần gấp, ai giúp em với
uses crt;
var a,b:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a>0) and (b>0);
if a>b then writeln(a,' la so lon hon')
else if a<b then writeln(b,' la so lon hon')
else writeln('Hai so bang nhau');
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào điểm của 1 người và hiện kết quả ra màn hình
uses crt;
var diem:real;
begin
clrscr;
write('Nhap diem='); readln(diem);
writeln('Diem cua ban do la: ',diem:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình xét xem một tam giác có là tam giác vuông hay không khi biết 3 cạnh của tam giác
Xem chi tiết
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
if sqr(a)=sqr(b)+sqr(c) then writeln('Vuong')
else if sqr(b)=sqr(a)+sqr(c) then writeln('Vuong')
else if sqr(c)=sqr(a)+sqr(b) then writeln('Vuong')
else writeln('La tam giac khong vuong');
end
else writeln('Khong la ba canh trong mot tam giac');
readln;
end.
Đúng 0
Bình luận (0)
Viết giúp mình 2 bt này với. Mik đang cần gấp. Viết và in ra theo 2 bài Bài 1: ctrình giới thiệu tên lớp Bài 2: tính tiền của giấy A3, < = 200 tờ, 1 mặt 180 vnđ. A4, >200 tờ, 2 mặt 250 vnđ
Xem chi tiết
1. Giải pt : ax + b =0
2. Nhập vào 1 số cho biết giá trị căn bậc hai của số đó ( nếu có)
3. Nhập ba số a,b,c cho biết 3 số đó có phải độ dài 3 cạnh của 1 tâm giác không.
Xem chi tiết
1:
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a<>0 then writeln('Nghiem cua phuong trinh la: ',-b/a:4:2)
else writeln('Phuong trinh vo nghiem');
readln;
end.
2:
uses crt;
var n:real;
begin
clrscr;
write('Nhap n='); readln(n);
if n>=0 then writeln('Can bac hai cua n la: ',trunc(sqrt(n)))
else writeln(n,' khong co can bac hai');
readln;
end.
3:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la do dai ba canh trong mot tam giac')
else writeln('Day khong la do dai ba canh trong mot tam giac');
readln;
end.
Đúng 2
Bình luận (0)
8. Viết pt nhập vào số phút gọi điện thoại của 1 người. Hãy cho biết số tiền người đó phải trả. Biết rằng giá tiền được tính như sau:
-5 phút đầu: miễn phí
-Từ phút thứ 6 trở đi : 2000đ/phút
Xem chi tiết
có cần phải số giây nữa k bạn vd: 6 phút 30s
Đúng 1
Bình luận (1)
Tính giá trị của biểu thức
2a / (5(a - b))
Xem chi tiết
uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(2*a/(5*(a-b)));
readln;
end.
Đúng 2
Bình luận (0)