Új hozzászólás Aktív témák

• #1749 N!tRo tag CocooN-z #1748

  Új Válasz 2007-02-05 19:08:22 #1749

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  N!tRo

  tag

  válasz CocooN-z #1748 üzenetére

  Biztos, hogy nem tökéletes számodra, de át tudod gondolom alakítani olyanra, amilyenre szeretnéd.
  Ha valamit nem értesz, kérdezel, de ne legyél writeonly, jöjj rá magad.
  
  program feladat;
  uses crt;
  var menu,enter:char;
  index1,index2,pagecount,currentpage,namecount: integer;
  name_per_page,search_number,matches:integer;
  inputfile: text;
  names: array[0..199] of string;
  borndate: array[0..199] of integer;
  pay: array[0..199] of longint;
  newname,search_string:string;
  procedure generate_datas;
  begin
  randomize;
  for index1:=0 to namecount do borndate[index1]:=random(60)+1930;
  for index1:=0 to namecount do pay[index1]:=(random(65000)*5)+50000;
  end;
  procedure read_names;
  begin
  assign(inputfile,'nevek.txt');
  reset(inputfile);
  namecount:=0;
  repeat
  readln(inputfile,names[namecount]);
  inc(namecount);
  until eof(inputfile);
  close(inputfile);
  generate_datas;
  end;
  procedure list_names;
  begin
  name_per_page:=10;
  for index1:=0 to (namecount div name_per_page) do
  begin
  clrscr;
  for index2:=(index1*name_per_page) to ((index1+1)*name_per_page)-1 do
  if(index2<namecount) then writeln(index2+1,'. ',names[index2],' ',borndate[index2],' ',pay[index2]);
  gotoxy(1,24);
  writeln(index1+1,'/',(namecount div name_per_page)+1,' ... Enter lenyomasara folytatodik');
  repeat
  enter:=readkey;
  until enter=#13;
  end;
  end;
  procedure search(option: char);
  begin
  clrscr;
  matches:=0;
  case option of
  'N': begin write('Kerem a tag nevet: '); readln(search_string); end;
  'E': begin write('Kerem a sz�uletesi evszamot: '); readln(search_number); end;
  'F': begin write('Kerrem a fizetest: '); readln(search_number); end;
  end;
  index1:=0;
  repeat
  case option of
  'N': if search_string=names[index1] then
  begin
  writeln(index1,'. ',names[index1],' ',borndate[index1],' ',pay[index1]);
  inc(matches);
  end;
  'E': if search_number=borndate[index1] then
  begin
  writeln(index1,'. ',names[index1],' ',borndate[index1],' ',pay[index1]);
  inc(matches);
  end;
  'F': if search_number=pay[index1] then
  begin
  writeln(index1,'. ',names[index1],' ',borndate[index1],' ',pay[index1]);
  inc(matches);
  end;
  end;
  inc(index1);
  until index1>namecount;
  if matches=0 then writeln('Nincs talalat...');
  readln;
  end;
  procedure write_data;
  begin
  clrscr;
  write('Kerem a nevet: ');
  readln(newname);
  assign(inputfile,'nevek.txt');
  append(inputfile);
  writeln(inputfile,newname);
  close(inputfile);
  end;
  procedure write_menu;
  begin
  clrscr;
  writeln(' 1: Listazas');
  writeln(' 2: Kereses nevre');
  writeln(' 3: Kereses sz�ul.evre');
  writeln(' 4: Kereses fizetesre');
  writeln(' 5: Iras');
  writeln(' Egyéb: Kilepes');
  writeln;
  write(' Mit valaszt: ');
  readln(menu);
  case menu of
  '1': list_names;
  '2': search('N');
  '3': search('E');
  '4': search('F');
  '5': write_data;
  end;
  end;
  begin
  read_names;
  write_menu;
  end.
  
  
  FELADAT.PAS
  [link]
  
  Nevek.txt
  [link]
  
  
  
  [Szerkesztve]

Új hozzászólás Aktív témák