Lykan 11

 

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

 

vậy đc r 

 

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

 

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 

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

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

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 !

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

 

đây là cách của mình cho bài hoán vị chữ cái 

thay đổi chút là sẽ thành hoán vị dãy số từ 1-n nên rất tiện

program bt1;

uses crt;

var b,c:boolean;

i,j,z:integer;

t:char;

s:string;

a:array[1..100] of string;

begin

clrscr;

write('nhap xau:');

readln(s);

z:=1;

a[z]:=s;

b:=true;

while b=true do

begin

b:=false;

for i:=2 to length(s) do

begin

c:=true;

t:=s[1];

s[1]:=s[i];

s[i]:=t;

for j:=1 to z do

if s=a[j] then

c:=false;

if c=true then

begin

z:=z+1;

a[z]:=s;

b:=true;

end;

end;

end;

for i:=1 to z do

writeln(a[i]);

readln;

end.

 

bài này vẫn chưa hay lắm

program bt1;

 

b9: code:

program bt1;

uses crt;

var a:array[1..50] of integer;

i,n,d1,d2,d3:integer;

function kt(n:integer):boolean;

var a:boolean;

i:integer;

begin

a:=true;

for i:=2 to n-1 do

if n mod i=0 then

a:=a and false;

if n<2 then

kt:=false

else

kt:=a;

end;

begin

clrscr;

write('nhap vao so phan tu cua mang:');

readln(n);

for i:=1 to n do

begin

write('nhap a[',i,']:');

readln(a[i]);

end;

d1:=0;

d2:=0;

d3:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then

d1:=d1+1

else

d2:=d2+1;

if kt(a[i]) then

d3:=d3+1;

end;

write(d1:4,d2:4,d3:4);

readln;

end.

 

Xử lí tại đầu vào sẽ tối ưu hơn

>>tiết kiệm biến mảng a 

TH1 :  dạng 113

$C_{9}^{3}.\frac{5!}{3!}$

TH2 dạng 122

$C_{9}^{3}.\frac{5!}{2!2!}$

QUY TẮC CỘNG

có f(n+1)=f(n-1)-f(n) mà f(n)=f(n-2)-f(n-1)

=> f(n+1)=2f(n-1)-f(n-2)

=>f(n+1)=2f(n-3)-3f(n-2)

=>f(n)=(-1)^k(F_k+1f(n-k)-F_kf(n-k-1))

=>f(n)=(-1)^n-2(F_n-1f(2)-F_n-2f(1))

=>f(n)=(-1)ⁿF_n-2

lim ra vô hạn mà mn

Đây là một bài khá thú vị dành cho các bạn học sinh lớp 10 đã học về dãy số:

 

$\boxed{4}$ Cho các hàm $f:\mathbb{N^*} \rightarrow \mathbb{R}$ thỏa

$f(n+1)=f(n-1)-f(n)$ , $f(1)=1$ , $f(2)=0$ 

Chứng minh rằng: $|f(n)| \leq \frac{2\sqrt{3}}{3}$

bài này là dãy mà