program oken;
uses crt;var a: array [1..100] of integer; i,n,max:integer;begin clrscr; write['nhap so n: ']; readln[n]; for i:=1 to n do begin write['a[',i,']: ']; readln[a[i]]; end; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln['Max: ',max]; readln;
end.
Cho mình câu trả lời hay nhất
viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất. Giup mình với ạ
Viết chương trình nhập vào 2 số nguyên a và b. In ra màn hình giá trị lớn nhất.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
...Xem tất cả bình luận
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui long nhap hai so khac nhau']
else if a>b then writeln['so lon nhat la: ',a]
else writeln['so lon nhat la: ',b];
readln;
end.
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui ***g nhap hai so khac nhau']
else if a>b then writeln['so *** nhat la: ',a]
else writeln['so *** nhat la: ',b];
readln;
end.
uses crt; var a,b:integer; begin clrscr; write['a=']; readln[a]; write['b=']; readln[b]; if a=b then writeln['vui long nhap hai so khac nhau'] else if a>b then writeln['so lon nhat la: ',a] else writeln['so lon nhat la: ',b]; readln; end.
Viết chương trình giải ptrinh tìm số lớn nhất trong 3 số nguyên a, b, c [ a,b,c nhập từ bàn phím ]
uses crt;
var a,b:integer;
begin
clrscr;
write['a=']; readln[a];
write['b=']; readln[b];
if a=b then writeln['vui ***g nhap hai so khac nhau']
else if a>b then writeln['so *** nhat la: ',a]
else writeln['so *** nhat la: ',b];
readln;
end.
Câu hỏi hot cùng chủ đề
-
hằng là gì ? nêu cú pháp khai báo hằng
Trả lời [15] Xem đáp án »
-
Hỏi từ APP VIETJACK
Đâu là các từ khóa:A.Program,end,beginB.Program,end,begin,Readln,lop8aC.Program,then,mot,hai,bà
D.lop82,uses,begin,end
program tim_max;
uses crt;
var a，b:integer;
{—Ham—}
function max[a，b:integer]:integer;
begin
if a>b then max:=a else max:=b;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write[‘Nhap so thu nhat: ‘]; readln[a];
write[‘Nhap so thu hai: ‘]; readln[b];
write[‘So *** hon la: ‘，max[a，b]];
readln;
end.
Nêu các thao tác trong chỉnh sửa bản [Tin học - Lớp 6]
3 trả lời
Sao chép là [Tin học - Lớp 4]
7 trả lời
Tinh tổng S = 1+3+...+ [2N+1] [Tin học - Lớp 8]
1 trả lời
I. Các bài tập viết chương trình tìm giá trị nhỏ nhất, giá trị lớn nhất.
1. Viết chương trình tìm giá trị nhỏ nhất trong 4 số a, b, c, d [a, b, c, được nhập từ bàn phím].
2. Viết chương trình tìm giá trị lớn nhất trong 4 số a, b, c, d [a, b, c, được nhập từ bàn phím].
3. Viết chương trình tìm giá trị lớn nhất, nhỏ nhất trong 4 số a, b, c, d.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
ProgramMax_Min; Usescrt; Vara,b,c,d:integer; max,min:integer; Begin clrscr; write['nhap so thu nhat :']; readln[a]; max:=a; min:=a; write['nhap so thu hai :']; readln[b]; ifmaxb thenmin:=b; write['nhap so thu ba :']; readln[c]; ifmaxc thenmin:=c; write['nhap so thu tu :']; readln[d]; ifmaxd thenmin:=d; writeln['So lon nhat la :',max]; writeln['So nho nhat la :',min]; readln; End. |
4. Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình
II. Các dạng câu lệnh trong chương trình Pascal
1. Câu lệnh if…then…
Nếu thì
If then
Nếu điều kiện true thì biểu thức sẽ được thực hiện, còn nếu điều kiện false thì biểu thức sẽ không được thực hiện.
Câu lệnh if… then…. được dùng trong trường hợp để so sánh các phép toán hoặc các phép toán có điều kiện.
Ví dụ:So sánh hai số a, b
Nếu a>b thì in số a ra màn hình
If a>0 then writeln [‘a la so lon hon’];
2. Câu lệnh for…do…
Câu lệnh for…do…. nghĩa là lặp với số lần biết trước, nếu ta biết được số lần lặp lại của một dãy số, một tổng,… thì ta sẽ sử dụng for…do….
For := to do
Trong đó:
- Biến có kiểu số nguyên integer
- Giá trị cuối phải lớn hơn giá trị đầu và là kiểu số nguyên.
- Câu lệnh có thể là câu lệnh đơn [một lệnh] hay lệnh ghép [nhiều lệnh]
Ví dụ: Tính tổng từ 1 tới 10 bằng Pascal
3. Câu lệnh while…do…
Câu lệnh while… do… nghĩa là lặp với số lần chưa biết trước và phụ thuộc vào một điều kiện cụ thể và chỉ dừng lại khi điều kiện đó sai.
Trong Pascal câu lệnh lặp với số lần chưa biết trước là:
while do ;
Ví dụ: Tính S là tổng các số tự nhiên sao cho số S nhỏ nhất để S > 1000
III. Những cấu trúc trong chương trình pascal lớp 11
1. Cấu trúc rẽ nhánh
Cấu trúc rẽ nhánh có dạng:
- Dạng thiếu: If then [đã được học ở lớp 8]
-Dạng đủ If then else
Ở dạng đủ câu lệnh được hiểu như sau: Nếu đúng thì được thực hiện, ngược lại thì được thực hiện.
Ví dụ: Nếu x