K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

10 tháng 5 2023

with open('XAU.INP', 'r') as input_file, open('XAU.OUT', 'w') as output_file:

        for line in input_file:

                length = len(line.strip())

                output_file.write(f'{length}\n')

#include <bits/stdc++.h>

using namespace std;

string st;

int d,i,dem;

int main()

{

freopen("xau.inp","r",stdin);

freopen("xau.out","w",stdout);

cin>>st;

d=st.length();

dem=0;

for (i=0; i<=d-1; i++)

if (st[i]=='a') dem++;

cout<<dem;

return 0;

}

26 tháng 2 2021

Bài 1:

Program HOC24;

const fi='in.txt';

fo='out.txt';

var f: text;

i,n: integer;

t: longint;

procedure ip;

begin 

assign(f,fi);

reset(f);

read(f,n);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

t:=1;

for i:=1 to n do t:=t*i;

write(f,t);

close(f);

end;

begin

ip;

out;

end.

Bài 2:

 

Program HOC24;

const fi='in.txt';

fo='out.txt';

var f: text;

i: byte;

a: array[1..4] of string;

procedure ip;

begin 

assign(f,fi);

reset(f);

for i:=1 to 4 do readln(f,a[i]);

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

for i:=1 to 4 do writeln(f,a[i]);

close(f);

end;

begin

ip;

out;

end.

1: 

const fi='inp.txt';

fo='out.txt';

var n,i:integer;

s:real;

begin

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

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

readln(f1,n);

s:=1;

for i:=1 to n do 

  s:=s*i;

writeln(f2,s:4:2);

close(f1);

close(f2);

end.

Trong một kì thi Tin học trẻ, mỗi học sinh sẽ phải làm 3 bài thi. Với mỗi bài, nêu học sinh làm sẽ được ban giám khảo chấm và cho điểm, nếu không làm thì sẽ không tính điểm. Sau khi thi, dữ liệu điểm thi của học sinh sẽ được lưu trong một tệp văn bản và gửi về ban tổ chức. Mẫu một tệp điểm thi có dạng sau:Quy định ghi trong tệp trên như sau:- Mỗi dòng sẽ bắt đầu bằng số báo danh của thí...
Đọc tiếp

Trong một kì thi Tin học trẻ, mỗi học sinh sẽ phải làm 3 bài thi. Với mỗi bài, nêu học sinh làm sẽ được ban giám khảo chấm và cho điểm, nếu không làm thì sẽ không tính điểm. Sau khi thi, dữ liệu điểm thi của học sinh sẽ được lưu trong một tệp văn bản và gửi về ban tổ chức. Mẫu một tệp điểm thi có dạng sau:

Quy định ghi trong tệp trên như sau:

- Mỗi dòng sẽ bắt đầu bằng số báo danh của thí sinh, tiếp theo là ba giá trị điểm tương ứng với ba bài thì.

- Điểm thi sẽ là một số tự nhiên từ 0 đến 20.

- Nếu học sinh không làm thì bài đó ghi -1.

Em có nhiệm vụ tính toán tổng só điểm thi của các bạn học sinh và đưa dữ liệu ra tệp ketqua.out là danh sách ba bạn có tổng điểm cao nhất được sắp xếp giảm dần từ trên xuống đưới. Khuôn dạng dữ liệu đưa ra bao gồm: số báo danh, các điểm thi từng bài và cuối cùng là tổng điểm cả ba bài.

Ví dụ với dữ liệu trên thì kết quả như sau:

1
19 tháng 8 2023

Tham khảo:

# Đọc dữ liệu từ tệp điểm thi

with open("diemthi.inp", "r") as file:

 data = file.readlines()

# Tạo danh sách lưu thông tin điểm thi của các thí sinh

scores = []

for line in data:

 line = line.strip().split()# Tách dữ liệu trên mỗi dòng thành các từ

 sbd = line[0]# Lấy số báo danh của thí sinh

 diem1 = int(line[1])# Lấy điểm bài 1

 diem2 = int(line[2])# Lấy điểm bài 2

 diem3 = int(line[3])# Lấy điểm bài 3

 tong_diem = diem1 + diem2 + diem3# Tính tổng điểm

 scores.append((sbd, diem1, diem2, diem3, tong_diem))# Thêm thông tin vào danh sách

# Sắp xếp danh sách giảm dần theo tổng điểm

scores.sort(key=lambda x: x[4], reverse=True)

# Ghi kết quả vào tệp ketqua.out

with open("ketqua.out", "w") as file:

 for score in scores:

  sbd = score[0]

  diem1 = score[1]

  diem2 = score[2]

  diem3 = score[3]

  tong_diem = score[4]

  file.write(f"{sbd}\t{diem1}\t{diem2}\t{diem3}\t{tong_diem}\n")

const fi='mang.txt';

fo='tong.txt';

var f1,f2:text;

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

n,i,t:integer;

begin

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

assign(f2,fo); rewriteln(f2);

n:=0;

while not eof(f1) do 

  begin

inc(n);

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

const fi='hinhtron.inp';

fo='hinhtron.out';

var f1,f2:text;

a: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;

read(f1,a[n]);

end;

for i:=1 to n do 

writeln(f2,'Hinh tron thu ',i,': Chu vi la ',(2*a[n]*pi):4:2,' va Dien tich la: ',a[n]*a[n]*pi:4:2);

close(f1);

close(f2);

end.