viết chương trình cho phép tính TB nhân của 4 số với điều kiện chỉ được sử dụng 2 biến .
bài này làm ntn vậy??
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.
tham khảo https://hayhochoi.vn/cach-tinh-theo-phuong-trinh-hoa-hoc-va-bai-tap-van-dung-hoa-8-bai-22.html
program TimSoLonNhat;
var
a, b, c, d, max: integer;
begin
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
write('Nhap c: '); readln(c);
write('Nhap d: '); readln(d);
max := a;
if b > max then
max := b;
if c > max then
max := c;
if d > max then
max := d;
writeln('So lon nhat la: ', max);
readln;
end.
program TimSoLonNhat;
var a, b, c, d: integer;
begin
writeln('Nhap vao gia tri cua a: ');
readln(a);
writeln('Nhap vao gia tri cua b: ');
readln(b);
writeln('Nhap vao gia tri cua c: ');
readln(c);
writeln('Nhap vao gia tri cua d: ');
readln(d);
if (a > b) and (a > c) and (a > d) then
writeln('So lon nhat la: ', a)
else if (b > a) and (b > c) and (b > d) then
writeln('So lon nhat la: ', b)
else if (c > a) and (c > b) and (c > d) then
writeln('So lon nhat la: ', c)
else
writeln('So lon nhat la: ', d);
readln;
end.
Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến
1.Chương trình bảng tính là phần mềm đuọc thiết kế để giúp ghi lại và trình bày thông tin dưới dạng bảng,thực hiẹn các tính cũng như xây dựng các biểu đồ biểu diển 1 cách trực quan các số liệu có trong bảng!
10.Các thành phần chính:ô,hàng,cột,khối,...
19.Để sao chép nội dung ô tính,ta thực hiện theo 4 bước:
1:Chọn ô cần sao chép đi
2:nhấn nút copy trên thanh công cụ
3:Chọn ô cần sao chép tới
4:nhấn nút paste trên thanh công cụ
SORRY,MÌNH CHỈ BIẾT BAO NHIÊU ĐÓ,XIN LỖI BẠN NHA!!!
uses crt;
var n,x:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('n=',n);
x:=n;
if x mod 2=0 then writeln(x,' la so chan')
else writeln(x,' la so le');
readln;
end.
Câu 1:
uses crt;
var a,b,c,d,min:longint;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
min:=a;
if min>b then min:=b;
if min>c then min:=c;
if min>d then min:=d;
writeln('so nho nhat la: ',min);
readln;
end.
Câu 2:
uses crt;
var a,b,c:real;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a>0) and (b>0) and (c>0) then
begin
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then writeln('day la 3 canh trong mot tam giac deu')
else writeln('day khong la 3 canh trong mot tam giac deu');
end
else writeln('day khong la 3 canh trong mot tam giac');
end
else writeln('vui long nhap 3 so duong');
readln;
end.
Câu 3:
uses crt;
var a,dv,ch,tr:longint;
begin
clrscr;
write('a='); readln(a);
if (a>=100) and (a<=999) then
begin
dv:=a mod 10;
ch:=a div 10; ch:=ch mod 10;
tr:=a div 100; tr:=tr mod 10;
writeln('chu so hang tram: ',tr);
writeln('chu so hang chuc: ',ch);
writeln('chu so hang don vi: ',dv);
end
else writeln('vui long nhap so co ba chu so');
readln;
end.
Câu 4:
uses crt;
var a,s:longint;
begin
clrscr;
s:=1;
write('so thu 1:'); readln(a);
s:=s*a;
write('so thu 2:'); readln(a);
s:=s*a;
write('so thu 3:'); readln(a);
s:=s*a;
write('so thu 4:'); readln(a);
s:=s*a;
writeln('trung binh nhan cua 4 so la: ',s/4:4:2);
readln;
end.
Câu 5:
uses crt;
var a,s:longint;
begin
clrscr;
s:=0;
write('so thu 1:'); readln(a);
s:=s+a;
write('so thu 2:'); readln(a);
s:=s+a;
write('so thu 3:'); readln(a);
s:=s+a;
write('so thu 4:'); readln(a);
s:=s+a;
writeln('trung binh cong cua 4 so la: ',s/4:4:2);
readln;
end.
Program TB_nhan;
uses crt;
Var a, S: real;
Begin
clrscr;
S:=1;
Write('Nhap so thu nhat: '); readln(a); S:=S*a;
Write('Nhap so thu hai: '); readln(a); S:=S*a;
Write('Nhap so thu ba: '); readln(a); S:=S*a;
Write('Nhap so thu tu: '); readln(a); S:=S*a;
Write('Trung binh nhan cua bon so la:',sqrt(sqrt(s)));
readln;
End