Câu 1: Viết chương trình tổng có 4 số nhập từ bàn phím trong đó có sử dụng chương trình con. Tính tổng của hai số.
Câu 2: Giả sử tệp DULIEU.DAT được tạo trên thư mục gốc ở ổ đĩa C, muốn mở tệp để đọc dữ liệu phải dùng những thủ tục nào?
Thực hành tìm hiểu máy tính em đang sử dụng và cho biết:
a) Tên các ổ đĩa trên máy tính là gì?
b) Kể tên một số thư mục, tệp có trên ổ đĩa (D:).
c) Mở một thư mục trong ổ đĩa (D:) và nêu tên một số thư mục con, tệp trong thư mục đó.
a) Tên các ổ đĩa trên máy tính: ổ (D:), ổ (C:), ổ (E:).
b) Các em tự xem và trả lời.
Gợi ý:
Tên một số thư mục, tệp có trên ổ đĩa (D:):
Thư mục: Sach, giai tri, Program Files.
Tệp: tin 3.docx
c) Các em tham khảo các bước:
Mở thư mục sach trong ổ đĩa (D:) thư mục con là sach giao khoa và sach tham khoa
Tệp: Tin nang cao.docx
1/ Em hãy viết câu lệnh của hệ điều hành MS DOS
a) Tạo thư mục BTTH trên thư mục gốc của ổ đĩa C.
b) Chuyển con trỏ vào thư mục BTTH vừa tạo ở ổ đĩa C.
c) Sao chép tất cả các tệp có phần mở rộng .doc trong thư mục BTTTH thuộc thư mục gốc ở ổ đĩa C sang thư mục BTTH ở mục (a).
giúp em với ạ.
em đang cần gấp.
Bài tập tệp Bài 1: Viết chương trình mở tệp dayso.TXT để đọc các số nguyên ra biến n và tính tổng các số nguyên n chia hết cho 3 hoặc 5? Bài 2: Viết chương trình nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tập sole.TXT
1/ Em hãy viết câu lệnh của hệ điều hành MS DOS
a) Tạo thư mục BTTH trên thư mục gốc của ổ đĩa C.
b) Chuyển con trỏ vào thư mục BTTH vừa tạo ở ổ đĩa C.
c) Sao chép tất cả các tệp có phần mở rộng .doc trong thư mục BTLT thuộc thư mục gốc ở ổ đĩa D sang thư mục BTTH ở mục (a).
giúp em với ạ.
em đang cần gấp.
1/ Em hãy viết câu lệnh của hệ điều hành MS DOS
a) Tạo thư mục BTTH trên thư mục gốc của ổ đĩa C.
b) Chuyển con trỏ vào thư mục BTTH vừa tạo ở ổ đĩa C.
c) Sao chép tất cả các tệp có phần mở rộng .doc trong thư mục BTLT thuộc thư mục gốc ở ổ đĩa D sang thư mục BTTH ở mục (a).
giúp em với ạ.
em đang cần gấp.
Sử dụng câu lệnh While .. do để viết chương trình tính tổng: S = 1+2+3+…+n . Trong đó n là số nguyên nhập từ bàn phím.
var i,n,s:integer;
begin
write('nhap n = ');readln(n);
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+1;
end;
write('Tong la ',s);
readln;
end.
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của các số tự nhiên trong tệp kiemtra.txt lưu trên ổ đĩa Y. Giúp e vs mn ơi
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Mình xin sửa lại một chút:
uses crt;
const fi='kiemtra.txt'
var f1:text;
a:array[1..100]of integer;
min,n,i:integer;
{----------------chuong-trinh-con-------------------}
function nn(x,y:integer):integer;
begin
if x<y then nn:=x
else nn:=y;
end;
{-----------------chuong-trinh-chinh-----------------}
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
min:=nn(a[1],a[2]);
for i:=3 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
viết chương trình tạo một tệp văn bản có tên songuyen.txt trong ổ đĩa C và ghi vào tệp các số nguyên từ 1 đến 20. Sau đó đọc các số nguyên từ tệp và in ra màn hình
#include <bits/stdc++.h>
using namespace std;
long long i,a[100],n;
int main()
{
freopen("songuyen.txt","r",stdin);
n=20;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
1. Viết chương trình tạo tệp baitap.txt trong đó dòng đầu tiên n là số lượng các số nguyên, dòng thứ 2 là n số nguyên cách nhau 2 kí tự trắng được nhập từ bàn phím (N<=100)
2.Viết chương trình tìm số nguyên lớn nhất trong n số nguyên đã có trong tệp baitap.txt và ghi kết quả vào tệp solonnhat.txt
Mong mọi người giúp mình giải sớm =(((
Câu 2:
uses crt;
var a,b:integer;
{-----------------chuong-trinh-con-------------------}
function ucln(x,y:integer):integer;
var i,uc:integer;
begin
if x<y then
begin
uc:=1;
for i:=1 to x do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end
else begin
uc:=1;
for i:=1 to y do
if (x mod i=0) and (y mod i=0) then
begin
if uc<i then uc:=i;
end;
end;
ucln:=uc;
end;
{--------------------------chuong-trinh-chinh------------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
writeln(a,'/',b,'=',a div ucln(a,b),'/',b div ucln(a,b));
readln;
end.
Câu 1:
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.