Cho mình hỏi làm thế nào để lưu chương trình Pascal trong ổ đĩa D ở trên máy ạ?
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
TP
Thảo Phương
CTVVIP
21 tháng 12 2021
Thời gian để thực hiện một chương trình ứng dụng không ảnh hưởng bởi:
A. Dung lượng lưu trữ của ổ đĩa cứng
B. Tốc độ CPU
C. Tốc độ truy xuất ổ đĩa cứng
D. Kích thước RAM
Hiệu năng hoạt động của máy tính không bị ảnh hưởng bởi:
A. Số lượng phần mềm ứng dụng đang được mở trên máy tính
B. Độ phức tạp của phần mềm ứng dụng đang được mở
C. Tất cả đều sai
D. Tên của phần mềm ứng dụng
NM
0
23 tháng 4 2021
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.
23 tháng 4 2021
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.
Bạn chọn File\(\rightarrow\)Change dir...
Sau đó sẽ xuất hiện bảng Change Directory
Chọn Drives sau đó chọn ổ đĩa D.
chọn file--->chọn save (hoặc save as, hoặc nhấn F2)-->gõ vào ô save file as: D:\ten--->nhấn enter hoặc ok
chúc bạn học tốt