Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
hoichut
- Bài 1: Cho tệp bai1.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai1.out gồm 1 số là giá trị lớn nhất trong 4 số đó. - bài 2: Cho tệp bai2.inp gồm 4 số nguyên. Hãy viết chương trình và ghi ra file bai2.out gồm 1 số là giá trị nhỏ nhất trong 4 số đó - Bài 3: Cho tệp bai3.inp gồm 1 số nguyên là thời gian tính bằng giây để làm một công việc nào đó. Hãy viết chương trình và ghi ra file bai3.out gồm 3 số tương ứng với số giờ, phút , giây tương ứng được quy đổi.
Đọc tiếp
Lớp 11 Tin học
Những câu hỏi liên quan
Nguyễn Thi Thư

Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .

BA1.INP.      BAI1.OUT

   6.                    9

Xem chi tiết
Lớp 11 Tin học Bài 14: Kiểu dữ liệu tệp

Khách
 
Minh Lệ
Minh Lệ
15 tháng 5 2023 lúc 19:54

Program HOC24;

var i,n: integer;

t: longint;

f1,f2: text;

begin

assign(f1,'BAI1.INP');

reset(f1);

read(f1,n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

close(f1);

assign(f2,'BAI1.OUT');

rewrite(f2);

write(f2,t);

close(f2);

end.

Bình luận (0)
Quỳnh Anh

Cho tệp bai1.inp gồm:

Hàng 1:Chứa số nguyên N

Hàng 2:Chứa dãy số nguyên gồm N chữ số

Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên 

              -Ghi kết quả tổng và đếm vào tệp bai1.out

Xem chi tiết
Lớp 11 Tin học Bài 16: Ví dụ làm việc với tệp

Khách
 
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
8 tháng 5 2021 lúc 20:33

const fi='bai1.inp'

fo='bai1.out'

var f1,f2:text;

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

n,i,t,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

dem:=0;

for i:=1 to n do 

  begin

if a[i] mod 2<>0 then t:=t+a[i]

else inc(dem);

end;

writeln(f2,'Tong cac so le la: ',t);

writeln(f2,'So so chan la: ',dem);

close(f1);

close(f2);

end.

Bình luận (0)
Minh Hoạt
BÀI TẬP THỰC HÀNH – DỮ LIỆU KIỂU TỆP Câu 1: Cho tệp BAI1.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả in ra màn hình đúng đến 2 chữ số thập phân? Câu 2: Cho tệp BAI2.INP có cấu trúc như sau:- Gồm 1 dòng chứa độ dài 2 cạnh của hình chữ nhậtEm hãy lập chương trình tính diện tích hình chữ nhật đó . Kết quả ghi vào tệp BAI2.OUTđúng đến 2 chữ số thập phân? Câu 3: Cho tệp BAI3.INP có cấu trúc như sau:- Gồm N...
Đọc tiếp
Xem chi tiết
Lớp 11 Tin học

Khách
 
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
23 tháng 4 2021 lúc 20:54

Câu 1: 

uses crt;

const fi='bai1.inp'

var f1:text;

a,b:real;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b);

writeln(a*b:4:2);

close(f1);

readln;

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
23 tháng 4 2021 lúc 20:57

Câu 2: 

const fi='bai2.inp'

fo='bai2.out'

var f1,f2:text;

a,b:real;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,b);

writeln(f2,a*b:4:2);

close(f1);

close(f2);

end.

Bình luận (0)
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
23 tháng 4 2021 lúc 20:57

Câu 3: 

const fi='bai3.inp'

fo='bai3.out'

var f1,f2:text;

a,b:array[1..100]of real;

i,n:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

  begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do  

  writeln(f2,a[i]*b[i]:4:2);

close(f1);

close(f2);

end.

Bình luận (0)
Xem thêm câu trả lời
Phan Tú

tệp data inp chứa một dãy số gồm 10 số cách nhau bởi dấu cách em hãy viết chương trình đọc toàn bộ các chữ số trong tệp tính và ghi kết quả vào tệp data.out tổng các chữ số chia hết cho 5

Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
Nguyễn Nhật Nam

Viết chương trình ghi giá trị của 2 biến a,b và tổng a+b vào tệp f với ổ đĩa D:\bai1.inp

Xem chi tiết
Lớp 11 Tin học Bài 15: Thao tác với tệp

Khách
 
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
29 tháng 4 2021 lúc 18:37

uses crt;

const fi='bai1.inp'

var a,b:integer;

f:text;

begin

clrscr;

assign(f,fi); rewrite(f);

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

writeln(f,'a=',a);

writeln(f,'b=',b);

writeln(f,a,'+',b,'=',a+b);

close(f);

end.

Bình luận (0)
Đặng Phạm Thành Nhật
Bài 7: Viết chương trình đọc từ file INP một dãy số nguyên A gồm có N phần tử (N10000). Ghi vào file OUT: dòng 1 ghi dãy số vừa nhập, dòng 2 ghi tổng của dãy số, dòng 3 ghi đếm các số dương có trong dãy và dòng 4 ghi tính tổng của các số dương đó.BAI7.INPBAI7.OUT610 -5 6 -7 -9 4  10 -5 6 -7 -9 4-1320 
Đọc tiếp
Xem chi tiết
Lớp 11 Tin học Ôn tập cuối năm

Khách
 
Đặng Phạm Thành Nhật
Đặng Phạm Thành Nhật
28 tháng 9 2021 lúc 16:27

mình ghi dư cái số 4 bên phần BAI7.INP nha mn

 

Bình luận (1)
Nguyễn Đức Anh Khoa

Viết chương trình tính tổng của n số nguyên có trong tệp Tong.inv. đưa giá trị tìm được ra tệp Tong.out. Dữ liệu vào gồm hai dòng dòng 1 ghi số nguyen dương n dòng 2 ghi n số nguyên dương dữ liệu ra một số nguyên duy nhất là tổng tìm được

Xem chi tiết
Lớp 11 Tin học Bài 15: Thao tác với tệp

Khách
 
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
14 tháng 1 2021 lúc 12:30

const fi='tong.inp'

fo='tong.out'

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bình luận (0)
Nguyễn Văn Khoa
Hãy viết chương trình tính số câu đúng cho một thí sinhDữ liệu: vào từ tệp bai2.inp gồm 2 dòng          - Dòng thứ nhất chứa câu trả lời của thí sinh (độ dài 120 câu)          - Dòng thứ 2 chứa xâu đáp án của đề thi tương ứng có cùng độ dài với câu trả lời.Kết quả: ghi ra tệp bai2.out với một số nguyên duy nhất là số câu đúng của một thí sinh bất kỳ.
Đọc tiếp
Xem chi tiết
Lớp 11 Tin học

Khách
 
nguyễn an phát
Viết chương trình Pascal, nhập vào một dãy số nguyên N phần tử, xuất radãy vừa nhập theo thứ tự tăng dần. Giá trị của N và các phần tử của dãy số đượcnhập từ tệp Cau4.Inp. Dữ liệu xuất ra trên tệp Cau4.Out. Ví dụ:câu 4 input:4  6 8 7 55   9 8 7 6 56   4 5 6 7 8 97   50 40 60 80 35 35 1010   20 12 0 3 45 15 60 38 90 70  câu 4 output:4   5 6 7 85   5 6 7 8 96   4 5 6 7 8 97    10 35 35 40 50 60 8010    0 3 12 15 20 38 45 60 70 90 
Đọc tiếp
Xem chi tiết
Lớp 11 Tin học Bài 12: Kiểu xâu

Khách
 
Bùi Anh Tuấn
Bùi Anh Tuấn
2 tháng 3 2021 lúc 20:13

Bình luận (1)
Nguyễn Lê Phước Thịnh
Nguyễn Lê Phước Thịnh CTV
3 tháng 3 2021 lúc 13:35

uses crt;

var a:array[1..100]of integer;

i,n,tam,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]<a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

Bình luận (0)

Khoá học trên OLM (olm.vn)