Viết chương trình nhập vào 1 số nguyên x. Tính giá trị của y biết rằngy = 2x nếu x ≥ 0, ngược lại y=1/x. Thông báo giá trị y ra màn hình (pascal)
2 câu trả lời
uses crt;
var x : integer; y : real;
begin
clrscr;
write('nhap so nguyen x : ');readln(x);
if x >= 0 then y := 2 * x
else y := 1 / x;
writeln('gia tri y = ', y:2:1);
readln
end.
uses crt;
vả x:longint;
y:real;
begin
clrscr;
write('x');
readln(x);
if x>=0 then y:=2*x
else
y:=1/x;
writeln(y:5:2);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
