chieu hoc tiep bai nay

Go down

chieu hoc tiep bai nay

Bài gửi by Classic - VAN THIEM on Tue 11 Jun 2013, 10:50 am

PROGRAM GREMMAAMA;
USES CRT;
TYPE MANGMAU = ARRAY[1..10] OF REAL;
VAR A ,B : MANGMAU;

I:INTEGER;
BIENMAXMANG:REAL;

PROCEDURE NHAPMANG(var C : MANGMAU);
{VAR MANG:MANGMAU;}
BEGIN
for i:=1 to 10 do
begin
WRITE('MAXMANGMANG[',I,']=');
READLN(C[I]);
end;
END;

FUNCTION MAXMANG(VAR MANG :MANGMAU):REAL;
BEGIN
FOR I:=1 TO 10 DO IF MANG[I] > BIENMAXMANG THEN BIENMAXMANG:=MANG[I];
MAXMANG:=BIENMAXMANG;
END;

BEGIN clrscr;
WRITELN('NHAP CAC GIA TRI CHO MANG ');
NHAPMANG(A);
NHAPMANG(B);

IF MAXMANG( B) > MAXMANG( A) THEN WRITELN(' GIA TRI ',MAXMANG(B),'LON NHAT THUOC MANG B')
ELSE WRITELN('GIA TRI',MAXMANG(A),' LON NHAT THUOC MANG A');
READLN;
END.

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
Em sẽ lớn lên như tôi đã từng khôn lớn
và sẽ bay cao bay xa hơn tôi ..... !!!
* thành viên câu lạc bộ học khuya*
classicfat32@gmail.com
MIE Thiemvan@outlook.com
https://sites.google.com/site/dayhocdientu/
https://www.facebook.com/thiemvan.ngo.39
CHÚT LÃNG MẠN http://sacmauthoigian.wordpress.com/category/classic/
avatar
Classic - VAN THIEM
Admin
Admin

Nam
Tổng số bài gửi : 324
điểm điểm : 878
Birthday : 27/10/1979
Đến từ : classicfat32@gmail.com

Xem lý lịch thành viên https://sites.google.com/site/dayhocdientu/

Về Đầu Trang Go down

Re: chieu hoc tiep bai nay

Bài gửi by HOANGQUOCCUONG1999 on Tue 11 Jun 2013, 9:09 pm

THẦY ƠI BẠN HIỀN CẦM VỞ EM RỒI Ạ EM KHÔNG NHỚ BÀI ĐỂ ĐĂNG ĐÂU Ạ
(HIỀN ĐĂNG BÀI MÀ IN BANG NHÂN TRONG VỞ TỚ RA HỘ NHÁ ) Very Happy
avatar
HOANGQUOCCUONG1999
PRO LÝ
PRO LÝ

Nam
Tổng số bài gửi : 33
điểm điểm : 52
Birthday : 03/04/1999
Job/hobbies : student

Xem lý lịch thành viên http://www.vn-zoom.com/

Về Đầu Trang Go down

Re: chieu hoc tiep bai nay

Bài gửi by nobita on Wed 12 Jun 2013, 11:39 pm

Bạn Hiền gửi lại vở cho các bạn nhé ! sáng mai học qua mạng! 8 H bắt đầu !
avatar
nobita
Quản trị
Quản trị

Nam
Tổng số bài gửi : 90
điểm điểm : 140
Đến từ : Những mùa thu

Xem lý lịch thành viên

Về Đầu Trang Go down

Re: chieu hoc tiep bai nay

Bài gửi by luumanh9x99 on Thu 13 Jun 2013, 8:49 am

8h48 rồi

-----------~~๑۩۞۩๑~~ 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

Re: chieu hoc tiep bai nay

Bài gửi by Sponsored content


Sponsored content


Về Đầu Trang Go down

Về Đầu Trang


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