tạo chương trình a(g) AL tác dụng với HCL.tính thể tích chất khí và khối lượng muối sinh ra
Bài 6. Câu lệnh điều kiện
tạo chương trình nhập độ dài 2 cạnh của hình chữ nhật và in ra màn hình diện tích hình chữ nhật đó
#TK
program hcn;
uses crt;
var d,r,dt:longint;
cv:real;
begin
write('nhap chieu dai va chieu rong cua hcn:');
readln(d,r);
dt:=d*r;
writeln(' dien tich hcn do la:',dt);
readln
end.
Đúng 1
Bình luận (0)
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln(a*b);
readln;
end.
Đúng 0
Bình luận (0)
tạo chương trình in ra màn hình họ tên,lớp,địa chỉ của bạn
#TK
program thongtincanhan
uses crt;
begin
clrscr;
writeIn (' Ho va ten cua ban ');
writeIn (' Lop cua ban ');
writeIn (' Dia chi cua ban ');
readIn
end.
Đúng 1
Bình luận (0)
uses crt;
var ten,lop,diachi:string;
begin
clrscr;
write('Nhap ten:'); readln(ten);
write('Nhap lop:'); readln(lop);
write('Nhap dia chi:'); readln(diachi);
writeln('Ten la: ',ten);
writeln('Lop la: ',lop);
writeln('Dia chi la: ',diachi);
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào 1 sô a và in ra màn hình nếu a là sô chẵn
program sochan;
uses crt;
var a:integer;
begin
write('hay nhap a');
readln(a);
if a mod 2 = 0 then writeln(' a la so chan',a);
end.
Đúng 0
Bình luận (0)
uses crt;
var a:integer;
begin
clrscr;
write('Nhap a='); readln(a);
if a mod 2=0 then write(a);
readln;
end.
Đúng 0
Bình luận (0)
Số 13,052 thuộc kiểu dữ liệu nào?
Cho 3 cạnh,nhập 3 số tự nhiên bất kì và kiểm tra xem 3 số dó có phải 3 cạnh của tamGiác ko.
progam ban_tu_chon;
uses crt;
var a,b,c :real;
BEGIN
clrscr;
write('nhap canh a thu nhat'); Read(a);
write('nhap canh b thu hai:'); Readln(b);
write('nhap canh c thu ba'); Readln(c);
if (a>=b+c) or (b>=c+a) or (c>=a+b) then write('ba canh tren khong phai cua mot tam giac')
else
if (a=b) or (b=c) or (c=a) then write('tam giac tren la tam giac can');
else
if a=b=c then write('tam giac tren la tam giac deu')
else
if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write('tam giac tren la tam giac vuong');
readln;
END.
Đúng 0
Bình luận (0)
uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Đúng 1
Bình luận (0)
hãy viết câu lệnh,khai báo theo yêu cầu sau:
a.khai báo mảng a có tối đa 50 phần tử thuộc kiểu dữ liệu số thực
b.phần tử thứ 5 của mảng a được gán giá trị là 8
c.nhập giá trị cho phần tử thứ 2 trong mảng a
d. nếu số a ko chia hết cho 2 thì số đó là số lẻ
a) var a:array[1..50]of real;
Đúng 0
Bình luận (0)
Xem thêm câu trả lời
viết cú pháp của các câu lệnh sau:câu lệnh điều kiện,câu lệnh lặp với số lần chưa biết trước,câu lệnh lặp với số lần biết trước.lấy vài ví dụ minh họa cho từng câu lệnh
Cú pháp của câu lệnh điều kiện:
if <điều kiện> do <câu lệnh 1>
else <câu lệnh 2>;
Đúng 1
Bình luận (0)
Cú pháp của câu lệnh lặp với số lần chưa biết trước:
While <điều kiện> do
<câu lệnh>;
Đúng 1
Bình luận (0)
Cú pháp của câu lệnh lặp với số lần biết trước:
For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;
Đúng 1
Bình luận (0)
Xem thêm câu trả lời
i:=1,J:=1;
while i<5 do i=i+1,j=j+i;
giá trị cuối của i,j
Viết chương trình in ra màn hình các số chẵn có trong dãy số A có n phần tử (n
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
Đúng 1
Bình luận (0)