cho mảng 1 chiều A gồm 100 phần tử . tìm số lớn nhất .Dữ liệu vào nằm trong tệp bt.Int ,dữ liệu đầu ra bt.out.viết trương trình sử dụng các thao tác với tệp
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.
Những câu hỏi liên quan
1 tháng 5 2021
uses crt;
var a:array[1..100]of integer;
i,n,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat la: ',max);
writeln('So nho nhat la: ',min);
readln;
end.
ML
9 tháng 4 2023
Program HOC24;
var i,n: integer;
c: array[1..1000] of integer;
f: text;
begin
assign(f,'MANG3.TXT');
reset(f);
readln(f,n);
for i:=1 to n do read(f,c[i]);
close(f);
for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');
readln
end.
14 tháng 3 2022
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n,j;
bool kt;
int main()
{
freopen("nguyento.inp","r",stdin);
freopen("nguyento.out","w",stdout);
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++)
if (a[i]>1)
{
kt=true;
for (j=2; j*j<=a[i]; j++)
if (a[i]%j==0) kt=false;
if (kt==true) cout<<a[i]<<" ";
}
return 0;
}
14 tháng 1 2021
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.
ML
10 tháng 5 2020
Program hotrotinhoc_hoc24;
const fi='dlv.inp';
fo='dlr.out';
var i,n,t: integer;
f: text;
a: array[1..100] of integer;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=0;
for i:=1 to n do t:=t+a[i];
write(f,t);
close(f);
end;
begin
ip;
out;
end.
QT
Quoc Tran Anh Le
Giáo viên
9 tháng 11 2023
Có thể tạo tệp “bangDiem.txt" bằng cách chỉnh sửa và bổ sung bảng trong Hình la ở Bài 2; từ Word hay Excel, thao tác Copy\Paste vào cửa sổ của Notepad hay cửa sổ soạn thảo của Python; ghi lưu thành tệp có định dạng text.
- Đọc từng dòng của tập đầu vào.
- Chuyển đổi mỗi mục của danh sách sang kiểu dữ liệu cần thiết và nối thêm vào danh sách tương ứng trong chương trình (tham khảo chương trình ở Hình 4).
Trong Python, nếu một dòng gồm nhiều mục khác kiểu dữ liệu, xen kẽ nhau, thì phải truy cập từng phần tử của danh sách và chuyển từ xâu kí tự thành kiểu dữ liệu đúng mô tả.
Các thao tác với tệp dữ liệu
Đầu vào là tệp thuần văn bản chữ và số (đuôi tên tệp “txt”) gồm nhiều dòng; mỗi dòng gồm nhiều từ, mỗi từ là một mục dữ liệu, phân cách bằng khoảng trống.
Các bước thực hiện như sau:
Bước 1. Mở tệp để đọc hay viết, sử dụng hàm open () như ví dụ ở Hình 5.
Bước 2. Đọc từ tệp, có thể dùng các phương thức read(), readline(), readlines() kết hợp với split():
read().split() : Đọc từng từ và nối liền toàn bộ các dòng thành một danh sách các từ. Sử dụng khi tệp ngắn và cần xử lí toàn bộ nội dung tệp.
readline().split() : Đọc một dòng, trả về danh sách các từ, thường dùng nhất. readlines() : Đọc toàn bộ tệp, trả về danh sách các dòng, mỗi dòng là một xâu kí tự, kết thúc bằng ‘\n (dấu xuống dòng).
Bước 3. Xuất ra tệp thuần văn bản: có thể dùng hàm print, sau khi đã chuyển đầu ra chuẩn từ màn hình sang tệp đã mở để viết vào như sau:
Bước 4. Đóng tệp, dùng phương thức close().
Lưu ý: Nếu giữa các từ được phân cách nhau bằng dấu phẩy thì ta có tệp kiểu “csv” (comma separated value) và cần dùng split(',') thay vì dạng mặc định split(). Cần chuyển thành kiểu danh sách (hay mảng) nên sẽ kết hợp xử lí bằng split(',').
17 tháng 4 2023
Đây là một bài tập lập trình, dưới đây là đoạn mã Python để thực hiện các yêu cầu trong bài tập:
`python
import os
Tạo tệp DEBALDAT trong ổ đĩa D
with open('D:/DEBALDAT', 'w') as f:
data = input("Nhập dữ liệu: ")
f.write(data)
Đọc dữ liệu từ tệp DEBALDAT
with open('D:/DEBALDAT', 'r') as f:
data = f.read()
Tìm số nhỏ nhất và ghi vào tệp SONHONHAT.OUT
numbers = [int(x) for x in data if x.isdigit()]
min_number = min(numbers)
with open('D:/SONHONHAT.OUT', 'w') as f:
f.write(str(min_number))
Tính tổng các số chẵn và ghi vào tệp SOCHAN.OUT
even_numbers = [int(x) for x in data if x.isdigit() and int(x) % 2 == 0]
sum_even_numbers = sum(even_numbers)
with open('D:/SOCHAN.OUT', 'w') as f:
f.write(str(sum_even_numbers))
Đếm số kí tự dấu cách và ghi vào tệp DAUCACH.OUT
num_spaces = data.count(' ')
with open('D:/DAUCACH.OUT', 'w') as f:
f.write(str(num_spaces))
Xóa các kí tự dấu cách và ghi vào tệp KETQUA.OUT
data_without_spaces = data.replace(' ', '')
with open('D:/KETQUA.OUT', 'w') as f:
f.write(data_without_spaces)
Xóa tệp DEBALDAT
os.remove('D:/DEBALDAT')
`
Lưu ý: Đoạn mã này chỉ thực hiện được trên hệ điều hành Windows, nếu sử dụng hệ điều hành khác cần thay đổi đường dẫn ổ đĩa.
const fi='bt.inp';
fo='bt.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,ln: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]);
ln:=a[1];
for i:=1 to n do
if ln<a[i] then ln:=a[i];
write(f2,ln);
close(f1);
close(f2);
end.