Tin học bài tập pascal lớp 11

[khắc anh]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

mọi người giải giúp em với
Bt1:viết chương trình ra số lớn nhất của 3 số
Bt2:viết chương trình tìm ra số nhỏ nhất của 3 số
bt3:viết chương trình nhập vào 1 dãy số nguyên ,ghi dãy số vào tệp (văn bản) cho tr

 

[ka1412]

Bài 1:

uses crt;
var m,n,i:integer;
begin
for i:=1 to 3 do
write('Nhap so thu ',i);
readln(n);
if n = 1 then m:=n else if n>m then m:=n;
end;
write('So lon nhat la:',m);
readln
end.

Bài 2 bạn chỉ thay dấu ">" thành "<" là được.

 

[ka1412]

Bài 3:

uses crt;
var m,n,i:integer;
f:text;
begin
clrscr;
assign(f,'out.out');rewrite(f);
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu :',i);readln(m);
write(f,m,#32);
end;
close(f);
readln
end.

Có lỗi gì thì bạn bảo mình nha =)

 

[khắc anh]

Bài 1:

uses crt;
var m,n,i:integer;
begin
for i:=1 to 3 do
write('Nhap so thu ',i);
readln(n);
if n = 1 then m:=n else if n>m then m:=n;
end;
write('So lon nhat la:',m);
readln
end.

Bài 2 bạn chỉ thay dấu ">" thành "<" là được.

bạn xem lại giúp mình đc ko ạ tại vì mình phải làm trên giấy mình thấy nó sai sai sao ấy

 

[khắc anh]

Bài 3:

uses crt;
var m,n,i:integer;
f:text;
begin
clrscr;
assign(f,'out.out');rewrite(f);
write('Nhap n:');readln(n);
for i:=1 to n do
begin
write('Nhap so thu :',i);readln(m);
write(f,m,#32);
end;
close(f);
readln
end.

Có lỗi gì thì bạn bảo mình nha =)

bạn ơi chỗ asign(f'out.out')với chỗ write(f, m, #32) là sao ạ

 

[son_gohan]

bạn ơi chỗ asign(f'out.out')với chỗ write(f, m, #32) là sao ạ

asign(f,'out.out') : out.out là tên tệp của bạn (kiểu như 'hocmai.txt' vậy)
write(f, m, #32): #32 trong Pascal là dấu cách: lệnh này viết vào tệp f giá trị m cùng với dấu cách để phân cách giữa các giá trị m