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.

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.

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ốtok

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.

8 tháng 6 2020

Program HOC24;

var n,i: integer;

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

procedure out;

begin

assign(f,'KQ.txt');

rewrite(f);

for i:=1 to n do write(f,a[i],' ');

close(f);

end;

begin

readln(n);

for i:=1 to n do read(a[i]);

out;

readln

end.

18 tháng 12 2021

Chọn B

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

17 tháng 5 2021

Mình có bị nhưng có cách giải quyết đấy !

Bạn uninstall bản free pascal đấy đi rồi tải bản khác hoặc bạn có thể update cũng được

17 tháng 5 2021

mình làm rồi mà không được bạn

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.

7 tháng 8 2023

Tham khảo:

- Tạo thư mục HocTap:

Mở ổ D: rồi chọn dải lệnh Home, chọn lệnh New Folder, nhập tên HocTap rồi nhấn Enter.

- Lưu tệp trình chiếu vào thư mục HocTap theo các bước:

Bước 1: Nháy chuột chọn Save trên bảng chọn File.

Bước 2: Nháy chuột chọn Browse.

Bước 3: Nháy chuột chọn ổ D: và chọn thư mục Hoc tap để lưu tệp.

Bước 4: Đặt tên cho tệp trình chiếu.

Bước 5: Chọn Save.

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ài thực hành 2 trang 11 SGK Tin học 4 | Giải bài tập Tin học lớp 4 hay nhất tại VietJack

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.

Bài thực hành 2 trang 11 SGK Tin học 4 | Giải bài tập Tin học lớp 4 hay nhất tại VietJack

- 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.

Bài thực hành 2 trang 11 SGK Tin học 4 | Giải bài tập Tin học lớp 4 hay nhất tại VietJack

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.