chieu hoc tiep bai nay

Xem chủ đề cũ hơn Xem chủ đề mới hơn 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 !

-----------~~๑۩۞۩๑~~ HỌC ONLINE ~~๑۩۞۩๑~~---------------
nobjtaz@gmail.com
https://sites.google.com/site/dayhocdientu
http://my.opera.com/classicfat32/blog/
http://r11.imgfast.net/users/1114/13/83/06/avatars/72-73.png
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

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