baif looix

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down

baif looix

Bài gửi by luumanh9x99 on Tue 11 Jun 2013, 10:51 am

program ctchinh1;

uses crt;

type mangmau=array[1..100] of real;

var a,b,c:mangmau;
i:integer;
bienmaxmang : real;

PROCEDURE nhapmang(C:mangmau);
BEGIN
For i:= 1 to 10 do
Begin
write('mang[',i,']=');
readln(c[i]);
end;
END;

FUNCTION maxmang(mang:mangmau) : real;
BEGIN
bienmaxmang := mang[1];
For i:=1 TO 10 DO
begin
for i:=1 to 10 do IF mang[i] > bienmaxmang THEN bienmaxmang:= mang[i];
MAXMANG:= bienmaxmang;
end;
END;

BEGIN clrscr;
write('moi nhap mang a...'); nhapmang(a);Write(a[1]);
write('moi nhap mang b...'); nhapmang(b);Write(a[1]);
maxmang(b);
maxmang(a);
IF maxmang(a) > maxmang(b) THEN write('gia tri lon nhat la',maxmang(a):3:5);
IF maxmang(a) < maxmang(b) THEN write('gia tri lon nhat la',maxmang(b):3:5);
IF maxmang(a) = maxmang(b) THEN write('gia tri lon nhat la', maxmang(a):3:5);
readln;
end.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
facebook.com/duc.luumanh.pro
avatar
luumanh9x99
PRO TIN
PRO TIN

Nam
Tổng số bài gửi : 60
điểm điểm : 84
Birthday : 30/01/1999
Đến từ : THPT Chuyên Thái Nguyên
Job/hobbies : hoc sinh

Xem lý lịch thành viên http://xonefm.com

Về Đầu Trang Go down

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang


 
Permissions in this forum:
Bạn không có quyền trả lời bài viết