cách lưu chương trình trên free pascal vào ổ đĩa D
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
TM
2
A
23 tháng 10 2017
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.
GH
23 tháng 10 2017
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
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.
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
29 tháng 4 2021
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.
14 tháng 7 2019
a) Ta nhấn nút gần ổ đĩa CD để mở ra, nhấn thêm lần nữa để đóng vào
b) Quán sát đĩa CD:
- Thứ tự từ trái sang phải lần lượt là mặt trên và mặt dưới của đĩa CD.
- Ta đặt đĩa CD vào ổ như hình, để mặt trên hướng lên trên, mặt dưới tiếp xúc với ổ đĩa.
c) Thao tác để đưa đĩa CD vào ổ đĩa.
• Nhấn nút để mở ổ đĩa.
• Đặt đĩa vào ổ đĩa khi ổ mở ra.
• Nhấn nút để đóng ổ đĩa
- Khi ổ đĩa mở ra hoặc đóng vào, đèn sẽ sáng nhấp nháy.
