Đến nội dung

Lykan 11

Lykan 11

Đăng ký: 30-03-2021
Offline Đăng nhập: 09-09-2023 - 12:32
*****

Trong chủ đề: gõ thử latex

01-01-2022 - 14:25

$y=\sqrt[3]{\left ( 3x-2 \right )^{2}}$

đặt $(3x-2)^{2}=y^{3}$

đạo hàm hai vế có $18x-12= 3y^{2}y'$

$\Leftrightarrow y'=\frac{6x-4}{\sqrt[3]{(3x-2)^{4}}}$


Trong chủ đề: Thi tin học trẻ cấp THCS

29-06-2021 - 17:03

 

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 


Trong chủ đề: Thi tin học trẻ cấp THCS

29-06-2021 - 10:49

 

Đâ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 


Trong chủ đề: Thi tin học trẻ cấp THCS

28-06-2021 - 17:18

Anh ơi trong free pascal có cho con trỏ file xuống dòng được ko ạ !

em làm thế này : writeln(f,sv) nó báo không đc dùng writeln !

xuống dòng bt a 

gửi ảnh đi, anh xem


Trong chủ đề: Thi tin học trẻ cấp THCS

28-06-2021 - 09:23

hello a nha (anh bằng tuổi chị em haha) ! :D

em 2k7(Lớp 8->9)!

em cx sắp thi tin tỉnh !

em hiểu rồi !

anh ko sử dụng mảng mà dùng biến thường rồi kiểm tra luôn !

Thk a nha ! :like

em chuẩn bị thi tin học trẻ à