گفت: من را دوست داری یا زندگی را گفتم: زندگی را؛
قهر کرد و رفت. او هرگز نفهیمد که همه زندگیم بود.M
خب اینم مرتب سازی یا همون SORT که خواسته بودید:
PROGRAM example (inpf,outf);
TYPE
smallint = -32768 .. 32767;
sort_rec = RECORD
position: smallint;
length: smallint;
seq_type: smallint;
END;
char_seq = RECORD
array_code:smallint;
language: smallint;
END;
file_arr = RECORD
num_file: smallint;
num_zero: smallint;
END;
file_rec = PACKED ARRAY [1..72] of CHAR;
file_num = FILE of file_rec;
VAR
numkeys: smallint;
reclen: smallint;
keys: sort_rec;
cseq: char_seq;
inp: file_arr;
out: file_arr;
inpf: file_num;
outf: file_num;
PROCEDURE sortinit; INTRINSIC;
PROCEDURE sortend; INTRINSIC;
PROCEDURE main;
BEGIN
numkeys := 1;
reclen :=72;
WITH keys DO
BEGIN
position := 1;
length := 4;
seq_type := 9;
END;
WITH cseq DO
BEGIN
array_code:=1;
language:= 12;
END;
WITH inp DO
BEGIN
RESET (inpf);
num_file := FNUM (inpf);
num_zero := 0;
END;
WITH out DO
BEGIN
REWRITE (outf);
num_file := FNUM (outf);
num_zero := 0;
END;
sortinit (inp,out,,reclen,,numkeys,keys,,,,,,,,cseq);
sortend;
END;
BEGIN
main;
END.
خیلی ممنون که این برنامه رو گذاشتید تو وبلاگتون مر۳۰
برنامه چارت پاسکال رو کی میزارید تو سایت ؟؟؟
salam azizam movafagh bashi :*
سلام
بچه ها واقعا خسته نباشید زحمت میکشید...
امیدوارم که همیشه موفق باشید
سلام
من یه برنامه می خواستم وقت زیادی هم ندارم می تونین کمکم کنین
برنامه ای بنویسید که دو ماتریس ان در ان را گرفته و ضرب دو ماتریس را انجام دهد
سلام
امید وارم خوب باشید من نیاز به متن برنامه ماشین حساب ساده کد ( BDSM13 ) دارم اگر می شود متن برنامه را برام میل کنید . پیشاپیش از همکاری شما بزرگوار سپاسگذارم .
سایت خیلی جالبی دارید از تون یه برنامه میخواستم برنامه
دفترچه تلفن مرسی
اقا این برنامه مشکل داره