VTC nhập 2 số thực từ bàn phím . Hiển Thị kết quả theo phép tính
Những câu hỏi liên quan
Cho A B là hai số thực được nhập từ bàn phím em hãy tính tích của hai số này rồi hiển thị kết quả ra màn hình
Câu 1: Cho a, b là hai số thực được nhập từ bàn phím. Em hãy tính hiệu, thương của hai số này rồi hiển thị kết quả ra màn hình? Câu 2: Cho hai số d, r là chiều dài và chiều rộng của một thửa ruộng hình chữ nhật được nhập vào từ bàn phím. Em hãy viết chương trình tính chu vi, diện tích của hình thửa ruộng đó rồi hiển thị kết quả ra màn hình?
câu 1
program hieu_thuong;
uses crt;
var a,b,h,t:real;
begin
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
if a>=b then h:=a-b else h:=b-a;
t:=a/b;
writeln('hieu cua hai so ',a,'',b,' la ',h);
writeln('thuong cua hai so ',a,'',b,' la ',t);
readln;
end.
câu 2
program chuvi_dientich;
uses crt;
var cv,dt,d,r:real;
begin
write('nhap chieu dai d:');readln(d);
write('nhap chieu rong r:');readln(r);
cv:=( d + r ) * 2 ;
dt:= d * r ;
writeln('chu vi thua ruong la : ',cv);
writeln('dien tich thua ruong la : ',dt);
readln;
end.
Đúng 2
Bình luận (1)
Viết chương trình nhập vào 3 số thực a,b,c từ bàn phím. Sau đó hiển thị kết quả tính trung bình cộng 3 số do voi 2 chu so thap phan.
lần sau những câu ko liên quan đến toán thì đừng gửi lên đây nhé
uses crt;
var a,b,c:real;
begin clrscr;
write('nhap a,b,c:');readln(a,b,c);
write('trung binh cong la:',(a+b+c)/3:8:2)
readln;end.
Đúng 0
Bình luận (0)
Cho số thực R là bán kính của hình tròn nhập vào từ bàn phím Pi là một bằng số có giá trị 3,14.em hãy viết chương trình tính chu vi diện tích của hình tròn rồi hiển thị kết quả ra màn hình?
Program HOC24;
var r,s: real;
begin
write('Nhap ban kinh: '); readln(r);
writeln('Dien tich la: ',r*r*3.14:6:2);
write('Chu vi la: ',r*2*3.14:6:2);
readln
end.
Đúng 0
Bình luận (0)
Cho A B là hai số nguyên được nhập từ bàn phím Em hãy viết phương trình tính tổng của hai số này rồi hiển thị kết quả ra màn hình
Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình Giúp em với em cảm ơn ạ
Xem chi tiết
Cách 1: Có sử dụng chương trình con
uses crt;
var st:string;
{------------chuong-trinh-con-------------------}
function doi(st1:string):string;
var i,d:integer;
begin
d:=length(st1);
for i:=1 to d do
st1[i]:=upcase(st1[i]);
doi:=st1;
end;
{-------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln(doi(st));
readln;
end.
Cách 2: Không sử dụng chương trình con
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln(st);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình theo 2 cách có sử dụng chương trình con và không sử dụng chương trình con thực hiện nhập 1 xâu kí tự từ bàn phím , thực hiện chuyển đổi toàn bộ xâu sang chữ hoa . Hiển thị kết quả ra màn hình
Giúp em với em cảm ơn ạ
Xem chi tiết
*Cách có sử dụng chương trình con:
uses crt;
var st:string;
{--------------chuong-trinh-con---------------}
function doixau(st:string):string;
var i,d:integer;
begin
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
doixau:=st;
end;
{-------------chuong-trinh-chinh---------------}
begin
clrscr;
write('Nhap xau:'); readln(st);
writeln('Xau doi sang chu hoa la: ',doixau(st));
readln;
end.
*Cách không sử dụng chương trình con:
uses crt;
var st:string;
i,d:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
st[i]:=upcase(st[i]);
writeln('Xau sau khi doi la: ',st);
readln;
end.
Đúng 0
Bình luận (0)
1. Nhập vào số nguyên n từ bàn phím. Tính n! rồi hiển thị kết quả ra màn hình với 0!=1; 1!=1; 2!....
2. Nhập vào 3 số nguyên a,b,c bất kì. Kiểm tra 3 số nguyên đó có là 3 cạnh của một tam giác vuông hay không?
1.uses crt;
var n,gt:longint;
begin
clrscr;
repeat
write('nhap so n:');readln(n);
until n>0;
gt:=1;
while n>0 do
begin
gt:=gt*n;
n:=n-1;
end;
writeln('giai thua cua n la:',gt);
readln
end.
2. uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
if (a*a=b*b+c*c) or (b*=c*c+a*a) or (c*c=a*a+b*b) then writeln('khong phai la tam giac vuong');
readln
end.
Đúng 0
Bình luận (0)
Đề 1: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số nhỏ nhất lên màn hình. Đề 2: Tự luận: Viết chương trình nhập dãy số n từ bàn phím. Sau đó, tìm và hiển thị số lớn nhất lên màn hình.
Đề 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 1
Bình luận (0)
Đề 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)