à mà nếu hệ số lớn hơn 9 thì anh em dùng hàm concat để ghép hệ số vào rồi dùng val nha!
Duongdz2k7
Thống kê
- Nhóm: Thành viên mới
- Bài viết: 25
- Lượt xem: 1438
- Danh hiệu: Binh nhất
- Tuổi: 17 tuổi
- Ngày sinh: Tháng một 17, 2007
-
Giới tính
Nam
-
Đến từ
Hưng Yên
-
Sở thích
Học toán , tin , hóa , lí
Chơi thể thao
Chơi FF , LQ
4
Trung bình
Công cụ người dùng
Lần ghé thăm cuối
Trong chủ đề: nén - giải nén xâu
05-07-2021 - 21:36
Trong chủ đề: Thi tin học trẻ cấp THCS
02-07-2021 - 15:49
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
Trong chủ đề: Thi tin học trẻ cấp THCS
29-06-2021 - 14:39
Em sửa thế này được không ạ !
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 !
>>Em thấy nó hơi lâu
Trong chủ đề: Thi tin học trẻ cấp THCS
29-06-2021 - 14:14
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 !
Tại em mới học nên không biết làm !
Mà "bt" là gì vậy anh ?
Trong chủ đề: Thi tin học trẻ cấp THCS
28-06-2021 - 22:30
Đây là bài của em !
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 (Tại khi in ra kết quả nó cứ in trên 1 dòng nên không đẹp )
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 ạ!
- Diễn đàn Toán học
- → Đang xem trang cá nhân: Bài viết: Duongdz2k7