Bài 1: Hãy tạo một tệp INT.DAT để cất n số nguyên nhập từ bàn phím. Bài 2: Hãy đọc nội dung của file INT.DAT bài 1 và in giá trị đọc được ra màn hình. giúp em hai câu này vs ạ....

vy30082004

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 21 xem

1 trả lời

Thích Trả lời

huynnam1

Bài 1:

program cat;

uses crt;

var f:text;

A:array[1..100] of integer;

n,i:integer;

begin

clrscr;

Assign(f,'INT.DAT'); rewrite(f);

write('Nhap so luong phan tu n: '); readln(n);

writeln(g,n);

for i:=1 to n do

begin

write('So thu ',i,': '); readln(A[i]);

write(f,A[i],' ');

end;

readln;

end.

Bài 2:

program cat;

uses crt;

var f:text;

A:array[1..100] of integer;

n,i:integer;

begin

clrscr;

Assign(f,'INT.DAT'); reset(f);

readln(f,n);

for i:=1 to n do

read(f,A[i]);

write('Day trong tep la: ');

for i:=1 to n do write(A[i],' ');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

nguyenhoa24605

Bài 1:

uses crt;
var f,d:text; n,i:longint;
a:array[1..1000000]of longint;
begin
clrscr;
assign(d,'INT.DAT');rewrite(d);
write('Nhap so phan tu: ');readln(n);
writeln(d,n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]); write(d,a[i],' ');
end;
close(d);
readln
end.

Bài 2:

uses crt;
var f,d:text; n,i:longint;
a:array[1..1000000]of longint;
begin
clrscr;
assign(d,'INT.DAT');reset(d);
readln(d,n);
writeln(n);
for i:=1 to n do begin read(d,a[i]); write(a[i],' ');end;
close(d);
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Xin giúp em với ạ em cảm ơn nhiều

vẽ chibi cute ai đặt avt vs tui ko tui con gái nha

vẽ chibi tự chọn. Full line, ko vẽ vở ô li và vở kẻ ngang, ko chụp mờ và ko chụp bằng pc+chụp sáng, ko vi phạm luật, full body, tranh chất lượng, ko vẽ qua loa, full màu nc, tỉa tóc kĩ,... thiếu y/c nào là tớ nói mod đấy!!

Vẽ hộ mk hình bài 2 thoiiiiiii.

cho nửa đường tròn tâm O đường kính AB, C là một điểm nằm trên đường tròn, D là một điểm thuộc đoạn AB, Cx là tiếp tuyến của đường tròn. Qua D kẻ đường thẳng vuông góc với AB cắt tiếp tuyến Cx tại I, cắt BC ở F. Gọi E là giao điểm của AC vs DF a) chứng minh tam giác IFC cân b) chứng minh I là trung điểm của EF

Write a passage (80-100 words) about your activities at school

Vẽ con gà tô màu nha ( màu chì cũng đc ) <3 Ai có truyện ngôn tình hay hay giới thiệu zới!!!

Giải giúp câu có bút màu đỏ với

1. At the moment i (chat) .............. with my cousin in Sydney on Skype 2. After the floodwaters (go)............. don, people cleaned their house 3. The teacher told his students (stop) .............. making noise 4. If People really cared about the envirinment, they ( not/dump) ............ waste into the lake 5. They didn't mind (work) ............. late to complete the task 6. English/widely/ speak/ around/world .............................. 7. Noise pollution/big cities/can/lead/hearing/problems. ...............................

Ở người có các nhóm máu A, B, AB và O. Hai anh em sinh đôi cùng trứng, người anh lấy vợ có nhóm máu A, con của họ có nhóm máu A và AB. Người em lấy vợ có nhóm máu B, con của họ có nhóm máu B và AB a) xác định kiểu gen của hai anh em b) nếu hai anh em lấy vợ có cùng nhóm máu thì xác suất sinh con có nhóm máu khác với bố mẹ là bao nhiêu?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến