Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 giải giùm bài tập file

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: giải giùm bài tập file   23/11/2014, 14:48

- Khôi tạo file ở bài 1 : tích lớn nhất
1/ tichmax.inp với các dữ liệu đề cho : n số nguyên trên hai dòng. Dòng đầu số n, dòng sau n số nguyên. làm xong add lên nha.
2/ tichmax.out cho ra kết quả tích 3 số lớn nhất.
- Giải thử bài 2 luôn nha. có gì thắc mắc sẽ hỏi sau
Về Đầu Trang Go down
Xem lý lịch thành viên
Admin
Admin
avatar

Posts : 113
Danh tiếng : 5
Join date : 10/11/2014
Age : 16

Bài gửiTiêu đề: Re: giải giùm bài tập file   23/11/2014, 15:01

uses crt;
var a:array[1..10000] of word;
n,i,j,k:integer;
t:longint;
f1,f2: text;
begin
clrscr;
assign(f1,'tichmax.inp');
rewrite(f1);
write('Nhap N (3 <= N <= 10000) = '); readln(n);
writeln(f1,n);
writeln('Nhap ',n,' phan tu gia tri tuyet doi khong qua 3000');
for i:= 1 to n do
begin
repeat
write('So thu ',i,' = '); readln(a[i]);
until abs(a[i])<=30000;
write(f1,a[i]); if i<n then write(f1,' ');
end;
close(f1);
assign(f2,'tichmax.out');
rewrite(f2);
t:= a[1]*a[2]*a[3];
for i:= 1 to n-2 do
for j:= i+1 to n-1 do
for k:=j+1 to n do
if a[i]*a[j]*a[k]>t then t:= a[i]*a[j]*a[k];
write(f2,t);
close(f2);
readln
end.
Về Đầu Trang Go down
Xem lý lịch thành viên http://forumpascalvanlang.forumvi.com
 
giải giùm bài tập file
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» [Vol 85] File 903 - Thi thể trong hồ bơi
» [Vol 83] File 878 - Điện thoại, biển cả, và tôi
» Những bản nhạc xưa
» 7 lời khuyên để xóa các file rác và khôi phục không gian lưu trữ trên iPhone
» File 81: Trò trốn tìm nguy hiểm

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Tệp (File)-
Chuyển đến