Đến nội dung

Hình ảnh

Thi tin học trẻ cấp THCS


  • Please log in to reply
Chủ đề này có 24 trả lời

#21
Lykan 11

Lykan 11

    Binh nhì

  • Thành viên mới
  • 17 Bài viết

 

Đây là bài của em ! :closedeyes:

program bt1;
uses crt;
type
st20=string[20];
st10=string[10];
sinhvien=record
ht:st20;
ns,qq:st10;
dtb:real;
xl:char;
end;
var
f:file of sinhvien;
fn:string;
sv:sinhvien;
bht:st20;
i:word;
begin
clrscr;
write('nhap vao ten file muon luu :');
readln(fn);
assign(f,fn);
rewrite(f);
i:=1;
writeln('nhap thong tin ca nhan cua cac sinh vien :');
repeat
write('ho va ten cua sinh vien thu ',i,' :');
readln(bht);
if bht<>'' then
begin
sv.ht:=bht;
write('nhap ngay thg (dd/yy/www) :');
readln(sv.ns);
write('nhap vao que quan :');
readln(sv.qq);
write('diem trung binh :');
readln(sv.dtb);
if sv.dtb<5 then
sv.xl:='D'
else
if sv.dtb<6.5 then
sv.xl:='C'
else
if sv.dtb<8 then
sv.xl:='B'
else
sv.xl:='A';
write(f,sv);  <==== chỗ này em chuyển thành writeln(f,sv);  nó báo lỗi là:Error:Can't use readln or writeln on typed file  :angry: (Tại khi in ra kết quả nó cứ in trên 1 dòng nên không đẹp :D )
end;
inc(i);
until bht='';
close(f);
readln;
end.
>>Mà anh ơi thi tin THCS có cần học phần file không ạ ! Tại còn ít thời gian nên em chỉ ôn những mảng thi cho hiệu quả thôi ạ! :D

 

lỗi bài này nằm ở chỗ này 

var 

f:file of sinhvien;

mà sinhvien là một bản ghi ,nên ko thể xuống dong 

sao em ko làm đơn giản hơn 

khai báo f:text; là ổn mà 

 

khối cx cần học file nha, tùy tỉnh nhưng thường là có file

với lại file em chỉ cần bt xuất nhập thôi 



#22
Duongdz2k7

Duongdz2k7

    Binh nhất

  • Thành viên mới
  • 25 Bài viết

lỗi bài này nằm ở chỗ này 

var 

f:file of sinhvien;

mà sinhvien là một bản ghi ,nên ko thể xuống dong 

sao em ko làm đơn giản hơn 

khai báo f:text; là ổn mà 

 

khối cx cần học file nha, tùy tỉnh nhưng thường là có file

với lại file em chỉ cần bt xuất nhập thôi 

Thanks anh nha ! :D  :like

Tại em mới học nên không biết làm !

Mà "bt" là gì vậy anh ?


Bài viết đã được chỉnh sửa nội dung bởi Duongdz2k7: 29-06-2021 - 14:16

                   Học , học nữa , học mãi  :closedeyes:

Luôn không ngừng cố gắng để đạt thành quả :D  :like


#23
Duongdz2k7

Duongdz2k7

    Binh nhất

  • Thành viên mới
  • 25 Bài viết

Em sửa thế này được không ạ ! :closedeyes: 

program bt1;
uses crt;
type
st20=string[20];
st10=string[10];
var
f:text;
ht:st20;
ns,qq:st10;
dtb:real;
xl:char;
i:word;
fn:string;
bht:st20;
begin
clrscr;
write('nhap ten file:');
readln(fn);
assign(f,fn);
rewrite(f);
i:=0;
writeln(#32:8,'NHAP THONG TIN CUA CAC SINH VIEN :');
repeat
inc(i);
writeln('Nhap vao thong tin cua ban thu ',i,' :');
write('Ho va ten : ');
readln(bht);
if bht <> '' then
begin
ht:=bht;
writeln(f,ht);
write('nhap nam sinh (dd/yy/wwww) : ');
readln(ns);
writeln(f,ns);
write('nhap vao que quan : ');
readln(qq);
writeln(f,qq);
write('nhap vao diem TB : ');
readln(dtb);
writeln(f,dtb:1:2);
if dtb < 5 then
writeln(f,'D')
else
if dtb < 6.5 then
writeln(f,'C')
else
if dtb < 8 then
writeln(f,'B')
else
writeln(f,'A');
writeln(f);
end;
until bht='';
close(f);
readln;
end.
>>Nếu sai hoặc dài anh sửa hộ em ! :D
>>Em thấy nó hơi lâu :(

                   Học , học nữa , học mãi  :closedeyes:

Luôn không ngừng cố gắng để đạt thành quả :D  :like


#24
Lykan 11

Lykan 11

    Binh nhì

  • Thành viên mới
  • 17 Bài viết

 

Em sửa thế này được không ạ ! :closedeyes:

program bt1;
uses crt;
type
st20=string[20];
st10=string[10];
var
f:text;
ht:st20;
ns,qq:st10;
dtb:real;
xl:char;
i:word;
fn:string;
bht:st20;
begin
clrscr;
write('nhap ten file:');
readln(fn);
assign(f,fn);
rewrite(f);
i:=0;
writeln(#32:8,'NHAP THONG TIN CUA CAC SINH VIEN :');
repeat
inc(i);
writeln('Nhap vao thong tin cua ban thu ',i,' :');
write('Ho va ten : ');
readln(bht);
if bht <> '' then
begin
ht:=bht;
writeln(f,ht);
write('nhap nam sinh (dd/yy/wwww) : ');
readln(ns);
writeln(f,ns);
write('nhap vao que quan : ');
readln(qq);
writeln(f,qq);
write('nhap vao diem TB : ');
readln(dtb);
writeln(f,dtb:1:2);
if dtb < 5 then
writeln(f,'D')
else
if dtb < 6.5 then
writeln(f,'C')
else
if dtb < 8 then
writeln(f,'B')
else
writeln(f,'A');
writeln(f);
end;
until bht='';
close(f);
readln;
end.
>>Nếu sai hoặc dài anh sửa hộ em ! :D
>>Em thấy nó hơi lâu :(

 

vậy đc r 



#25
Duongdz2k7

Duongdz2k7

    Binh nhất

  • Thành viên mới
  • 25 Bài viết

Giúp mình bài này với :

B20:Nhập vào một số N liệt kê tất cả các phân số của số đó trong khoảng từ 0 đến 1.

VD : Nhập n=5

Xuất 0/1  1/2   1/3  1/4  1/5   2/3   2/5  3/4  3/5  4/5  1/1 

Mình không hiểu đề nên giải thích hộ luôn nha :D


                   Học , học nữa , học mãi  :closedeyes:

Luôn không ngừng cố gắng để đạt thành quả :D  :like





2 người đang xem chủ đề

0 thành viên, 2 khách, 0 thành viên ẩn danh