Printable View
با سلام خدمت دوستان خوبم
دوستان بنده چند روز دیگه بایستی یک پروژه برنامه نویسی به زبان پاسکال (یعنی پروژه توابع کتابخانه ای با سیستم فایلینگ نه اشاره گر) بنویسم که بتونه موارد زیر را انجام دهد :
1-اضافه کردن کتاب
2- حذف کردن متاب
3- جستجو
4-ویرایش
5- نام کتاب - نام مولف -.....
حال می خواستم ببینم یک جوان با مرام و دوست داشتنی در این بخش هست که بتونه این برنامه را برایم تهیه کند ...
با تشکر از حسن همکاریتان .
سلامنقل قول:
با اين توضيحات بيشتر به نظر ميرسه دنبال يه دوست پسر هستيد!
ولي در هرصورت طبق قوانين نميتونيد درخواست پروژه و حل تمرين بدهيد.
چرا خودت شروع نمی کنی؟شاید بنظر سخت بیاد ولی فوقش نمرت کم می شه ولی تجربه ای که بدست میاری خیلی بیشتر از این حرفهاست
خلاصه از ما گفتن بود....
دوست عزیز من دو قسمت از برنامتون و نوشتم ولی برای یه قسمت به مشکل بر خوردم که اگه دوستان کمکم کردن و وقت کنم ادامش و می نویسم اگرم نه که دیگه هیچی
سوالم و اینجا مطرح کردم لطفا کمک کنید چون برای خودم هم خیلی جالبهکه جوابش و بفهمم
اینم قسمت درست برنامه البته اگه منظورت همین بوده باشه:46:کد:http://forum.p30world.com/showthread.php?t=135201
کد:uses wincrt;
var
number:integer;
{**************************************}
procedure write1;
begin
writeln('press 1 to add book');
writeln('press 2 to deleted book');
writeln('press 3 to search book');
writeln('press 4 to edit book');
end;
{*******************************************************}
procedure num1;
var
ch:char;
count:integer;
addname:string;
f:text;
begin
assign(f,'c:\db.txt');
append(f);
Writeln('please enter book name');
readln(addname) ;
writeln(f,addname);
close (f);
end;
{**********************************************************}
procedure num3;
var
f:text;
str1,str2:string;
flag:boolean;
begin
writeln('please enter your book name');
readln(str1);
flag:=false;
assign(f,'c:\db.txt');
reset(f);
while not eof(f) do begin
readln(f,str2);
if str1=str2 then
flag:=true;
end;
writeln(flag);
close (f);
end;
{***************************************************************}
begin
write1;
readln(number);
case number of
1:num1;
2:{};
3:num3;
4: {}
end;
end.
این برنامه رو همون روزهای اول نوشته بودم که یادم رفت بذارم هرچند دیگه دنباله تاپیک و نگرفتی
کد:uses wincrt;
var
number:integer;
{**************************************}
procedure write1;
begin
writeln('press 1 to add book');
writeln('press 2 to deleted book');
writeln('press 3 to search book');
writeln('press 4 to edit book');
end;
{*******************************************************}
procedure num1;
var
ch:char;
count,j,i:integer;
addname:string;
f:file of string ;
begin
writeln('Please enter your number book you want to enter');
readln(j);
assign(f,'c:\db.txt');
reset(f);
for i:=1 to j do begin
Writeln('please enter book name');
seek(f,filesize(f));
readln(addname) ;
write(f,addname);
end;
close (f);
end;
{**********************************************************}
procedure num3;
var
f:file of string;
str1,str2:string;
flag:boolean;
begin
writeln('please enter your book name');
readln(str1);
flag:=false;
assign(f,'c:\db.txt');
reset(f);
while not eof(f) do begin
read(f,str2);
if str1=str2 then
flag:=true;
end;
writeln(flag);
close (f);
end;
{***************************************************************}
procedure num2;
var
f:file of string;
i:integer;
str3,str1,str2:string;
begin
writeln('please enter your book name to edit');
readln(str1);
str3:=' ';
assign(f,'c:\db.txt');
reset(f);
while not eof(f) do begin
i:=i+1;
read(f,str2);
if str1=str2 then begin
seek(f,i-1);
write(f,str3);
end;
end;
close (f);
end;
{***************************************************************}
procedure num4;
var
f:file of string;
i:integer;
str3,str1,str2:string;
begin
writeln('please enter your book name to edit');
readln(str1);
Writeln('please enter your new name');
readln(str3);
assign(f,'c:\db.txt');
reset(f);
while not eof(f) do begin
i:=i+1;
read(f,str2);
if str1=str2 then begin
seek(f,i-1);
write(f,str3);
end;
end;
close (f);
end;
{*****************************************************************}
begin
write1;
readln(number);
case number of
1:num1;
2:num2;
3:num3;
4:num4;
end;
end.