Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phương Anh

Viết 2 chương trình Pascal: Nhập 10 phần tử và tìm số lớn nhất trong 10 phân tử ấy.

CT1: không sử dụng biến mảng

CT2: sử dụng biến mảng

So sánh 2 ct trên.

Giúp mình nha! Sắp KT học kì tin rồi.

Thanks các bạn nhiều!vui

trung nguyen sy
20 tháng 4 2017 lúc 20:37

ct1:

program (tự đặt tên);

uses crt;

var max,i,n:integer;

begin

clrscr;

max:=0; i:=1;

while i<=10 do

begin

write('n',i,'='); readln(n);

if n>max then max:=n;

i:=i+1;

end;

write('so lon nhat la:',max);

readln

end.

ct2:

program bt;

uses crt;

var a:array[1..1000] of integer;

max,i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to 10 do

if a[i]>max then max:=a[i];

write('so lon nhat trong cac so la:',max);

readln

end.

Sự khác nhau giữa hai ct:

- Khác nhau về cách khai báo

- Khác nhau ve cách trình bày

Bạn hãy chạy thử chương trình trước nha hihi


Các câu hỏi tương tự
Phương Anh
Xem chi tiết
Hường Nguyễn Thị Thu
Xem chi tiết
Khanh Quynh
Xem chi tiết
Yeu DUong nhat
Xem chi tiết
Ngô Vịnh
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
mynguyen
Xem chi tiết
Phạm bình hữu đan
Xem chi tiết