viết chương trình pascal tìm số lớn nhất trong 2 số nguyên
Những câu hỏi liên quan
Viết chương trình Pascal thực hiện các yêu cầu sau:
- Nhập vào một dãy số gồm N số nguyên
- Hiển thị dãy số vừa nhập
- Tìm giá trị lớn nhất, nhỏ nhất trong dãy số trên
program max_min;
uses crt;
var i,n,max,min:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
writeln('day vua nhap la:');
for i:=1 to n do
write(a[i]:3);
writeln;
max:=a[1];min:=a[1];
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('gia tri lon nhat: ',max,' gia tri nho nhat: ',min);
readln;
end.
Đúng 1
Bình luận (0)
uses crt;
var a:array[1..1000000] of longint;
n,i,max,min:longint;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': '); readln(a[i]);
end;
write('Day so vua nhap: ');
for i:=1 to n do write(a[i],' '); writeln;
max:=a[1];min:=a[1];
for i:=2 to n do
begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('GTLN: ',max);
writeln('GTNN: ',min);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal tìm phần tử nhỏ nhất trong 1 dãy số nguyên có n số (n
var a:array [1..100] of integer;
i,n,x : byte;
min:integer;
begin
write('Dãy có số phần tử là : '); readln(N);
for i:=1 to n do begin
write('A[',i,'] = ');
readln(A[i]);
end;
Min : = A[1];
for i:=2 to n do if A[i] < min then begin
min:= A[i];
x:=i;
end;
write('Phần tử bé nhất trong dãy là : A[',x,']');
readln
end.
Đúng 0
Bình luận (0)
Viết chương trình pascal in ra số lớn hơn hoặc nhỏ hơn trong 2 số nguyên a,b được nhập từ bàn phím
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln(a)
else if a<b then writeln(b)
else writeln('Hai so bang nhau');
readln;
end.
Đúng 2
Bình luận (0)
Viết chương trình tìm giá trị nhỏ nhất trong dãy A gồm N số nguyên (N không quá 100), nhập từ bàn phím (yêu cầu: sử dụng hàm tìm số nhỏ nhất trong 2 số x và y) Dùng pascal ạ mn giúp mình với!!!
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tìm số lớn nhất trong 2 số nguyên a b
Xem chi tiết
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then writeln('So lon nhat trong hai so la: ',a);
if b>a then writeln('So lon nhat trong hai so la: ',b);
if a=b then writeln('Hai so bang nhau');
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình cho phép người dùng nhập 1 số nguyên từ bàn phím, chương trình sẽ cho biết số đó là số chẵn hay lẻ.
Đúng 0
Bình luận (0)
Viết chương trình nhập vào số nguyên dương 𝑛. Xuất ra màn hình chữ số lớn nhất của 𝑛. pascal. dung longint, while , for :> Helppp me !!!!
uses crt;
var n,i,d,max,x,y:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln(max);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình pascal để nhập 1 mảng gồm n số nguyên dương a1...an.sau đó in ra màn hình giá trị lớn nhất của dãy số
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 2
Bình luận (1)
Viết chương trình nhập vào từ bàn phím một mảng các số nguyên tìm số lớn nhất trong mảng các số nguyên đó. 2. Viết chương trình tính tổng của tờ = 1 + 1/2 + 1/3 + 1/4 + ... + 1 /100
1:
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)
2:
uses crt;
var s:real;
i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+1/i;
writeln(s:4:2);
readln;
end.
Đúng 0
Bình luận (0)
1. Viết chương trình tạo tệp baitap.txt trong đó dòng đầu tiên n là số lượng các số nguyên, dòng thứ 2 là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím (N<=100)
2.Viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi kết quả vào tệp solonnhat.txt
Mong mọi người giúp mình giải sớm =(((
Câu 2:
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-------------------}
function ucln(x,y:integer):integer;
var i,uc:integer;
begin
if x<y then
begin
uc:=1;
for i:=1 to x do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end
else begin
uc:=1;
for i:=1 to y do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end;
ucln:=uc;
end;
{--------------------------chuong-trinh-chinh------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(a,'/',b,'=',a div ucln(a,b),'/',b div ucln(a,b));
readln;
end.
Đúng 2
Bình luận (0)
Câu 1:
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
1.Viết chương trình nhập số nguyên n. Hãy tìm chữ số lớn nhất của n.
2. Viết chương trình nhập từ bàn phím 2 số nguyên a và b. Tìm BCNN của a và b
program tim_chu_so;
uses crt;
var i,n,csln:longint;
k:integer;
a:array[1..1000]of longint;
st:string;
begin
clrscr;
write('nhap so n:');readln(n);
str(n,st);
val(st,a[i]);
csln:=a[1];
for i:=1 to length(st) do
if csln<a[i] then csln:=a[i];
writeln('chu so lon nhat cua so ',n,' la:',csln);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1:
uses crt;
var n,i,d,x,y,max:integer;
st:string;
begin
clrscr;
write('Nhap n='); readln(n);
str(n,st);
d:=length(st);
max:=0;
for i:=1 to d do
begin
val(st[i],x,y);
if max<x then max:=x;
end;
writeln('Chu so lon nhat la: ',max);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var a,b,i,bcnn:longint;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
bcnn:=a*b;
for i:=a*b-1 downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn<i then bcnn:=i;
end;
writeln('Boi chung nho nhat la: ',bcnn);
readln;
end.
Đúng 0
Bình luận (0)
Xem thêm câu trả lời