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.
Câu 2:
Program nii;
Uses crt;
Var a,b,c,A:integer;
Begin
Write ('nhap a');
Readln (a);
Write ('nhap b');
Readln (b);
Write ('nhap c');
Readln (c);
A:=a;
If A<b then A:=b;
If A<c then A:=c;
Write ('Ket qua',A);
Readln;
End.
Câu 1
Program ntg;
Uses crt;
Var A,x,y:integer;
Begin
Write ('nhap x');
Readln (x);
Write ('nhap y');
Readln ('y');
A:=x+y;
Write ('Ket qua',A);
Readln;
End.
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
readln;
end.
program tin_hoc;
uses crt;
var b,c,d,A:realn;
begin
clrscr;
write('nhap so b');readln(b);
write('nhap so c');readln(c);
write('nhap so d');readln(d);
A:=(b+c)/d;
writeln('A=');
end.
uses crt;
var a: array[1..100] of longint;
i,n,max,min: longint;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': ');
readln(a[i]);
end;
max:=a[1]; min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat trong mang la: ',max);
write('So nho nhat trong mang la: ',min);
readln
end.
Bài 23
var a:array[1..1000] of integer;
i,n:integer;
s,tbc:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
s:=s+a[i];
end;
tbc:=s/n;
writeln('Gia tri trung binh la ',tbc:10:2);
write('Cac so lon hon gia tri trung binh la: ');
for i:=1 to n do
if a[i] > tbc then write(a[i]:8);
readln
end.
var a:array[1..1000] of integer;
i,n,max:integer;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
max:=a[1];
for i:=2 to n do
if a[i] > max then max:=a[i];
for i:=1 to n do
begin
if max=a[i] then write(max,' o vi tri thu ',i);
break;
readln
end.
program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;
Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);
Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;
Writeln('So lon nhat trong 4 so do la: ',Max);
readln;
End.
Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.
làm cách đó hơi dài dòng .
program gia_tri_lon_nhat;
uses crt;
var a,b,c,d :real;
BEGIN
write('nhap vao so a'); Readln(a);
write('nhap vao so b'); Readln(b);
write('nhap vao so c'); Readln(c);
write('nhap vao so d'); Readln(d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('gia tri lon nhat cua bon so a,b,c,d la:',max);
readln;
END.
Thanks
Bạn sửa hộ mk, chỗ:
var a,b,c,d,max :real;
BEGIN
clrscr;
.........
xin lỗi, mk thiếu.
program tim_gia_tri_lon_nhat;
uses crt;
var a, b, c, d: real;
begin
clrscr;
write ('nhap 4 so a, b, c, d: '); readln (a, b, c, d);
if (a>b) and (a>c) and (a>d) then writeln('a la so lon nhat')
else if (b>a) and (b>c) and (b>d) then writeln('b la so lon nhat')
else if (c>a) and (c>b) and (c>d) then writeln('c la so lon nhat')
else if (d>a) and (d>b) and (d>c) then writeln ('d la so lon nhat')
else writeln ('a=b=c=d');
readln
end.
* ở đây mình chỉ áp dụng trường hợp là lớn nhất và 4 số cùng bằng nhưng nếu xét đúng ra thì nó còn xảy ra trường hợp a=b hoặc b=c hoặc a=b=c,... nhưng thầy mình nói chỉ cần làm như vậy thôi!
program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;
(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>=max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.
program ctdt;
uses crt;
type mang=array[1..4]of integer;
var a,b,c,d,i,max:integer;
t:mang;
(*-----------------------*)
BEGIN
clrscr;
{vi co 4 so nen ta dua 4 so do vao mot mang}
for i:=1 to 4 do
begin
write('so thu ',i,' :');readln(t[i]);
end;
max:=t[1];
for i:=2 to 4 do
if t[i]>max then max:=t[i];
write('gia tri lon nhat: ',max);
readln;
end.
uses crt;
var a,b,c,d,max:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
max:=a;
If max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat la:',max);
readln;
end.