Премини към съдържанието

inj_baron

Потребител
  • Публикации

    6
  • Регистрация

  • Последно онлайн

Харесвания

0 Неутрална репутация

1 Последовател

Всичко за inj_baron

  • Титла
    Новобранец

Информация

  • Пол
    Мъж
  1. inj_baron

    Помощ за задачи на C/C++ (merged)

    Задача: Да се състави програма на C за нуждите на видеотека която поддържа следната информация : -наименование на филм -режиьор -брой наеми за последнта седмица -дали е озвучен на български език И извършва следните операции -Създава нова информация за филми и изтрива бракуваните филми -извежда списък с имената на всички филми озвучени на българскки език -извежда списък с имената на всички филми на Спилберг които не са вземани през последната седмица. Код: #include <stdio.h> #include <string.h> #include <stdlib.h> struct LICE { char zaglavie[80]; char rejisior[80]; int broi; char bgien[2]; }; FILE *f; char fime[40]; LICE lice; char bf[5]; void readLice(LICE *lc){ printf("%20sVavedete Naimenovanie na film: ",""); gets(lc->zaglavie); printf("%20sVavedete Rejisior: ",""); gets(lc->rejisior); printf("%20sVavedete broi naemi za posl sedmica: ",""); scanf("%d",&lc->broi); gets(bf); printf("%20sVavedete ozvy4enie bg ili dr ezik: ",""); gets(lc->bgien); } void writeLice(LICE lc){ printf("Ime na filma: %s\n",lc.zaglavie); printf("Rejisiora: %s\n",lc.rejisior); printf("Broi naemi za posl sedmica: %d\n",lc.broi); printf("Ozvychenie: %s\n",lc.bgien); } int exist(char *rejisior){FILE *f = fopen(rejisior,"r");fclose(f); return f!=NULL; } void szdPrz(){ printf("Ime na failat: ");gets(fime); f=fopen(fime,"w"); fclose(f); printf("\n Failat e sazdaden.\n"); } void dobaviane(){ char ch; if (!exist(fime)) { printf("Failat ne e sazdaden!\n");return; } f=fopen(fime,"a+b"); do{ readLice(&lice); fwrite(&lice,sizeof(lice),1,f); printf("Shte prodaljite li vavejdaneto? "); ch=getchar();getchar(); }while (ch != 'n'); fclose(f); } void iztrivane(){ FILE *delF; char zaglavie[80]; if (!exist(fime)) { printf("Failat ne e sazdaden!\n");return;} printf("Vavedete Zaglavie: ");gets(zaglavie); f=fopen(fime,"rb");delF=fopen("Del","wb"); fread(&lice,sizeof(lice),1,f); while (!feof(f)){ if (strcmp(lice.zaglavie,zaglavie)!=0) fwrite(&lice,sizeof(lice),1,delF); else printf("Danite za filma %s sa iztriti.\n",zaglavie); fread(&lice,sizeof(lice),1,f); } fclose(f); fclose(delF); remove(fime); rename("Del",fime); } void zamiana(){ char zaglavie[80]; if (!exist(fime)) { printf("Failat ne e sazdaden!\n");return; } printf("Vavedete zaglavie: ");gets(zaglavie); f=fopen(fime,"r+b"); fread(&lice,sizeof(lice),1,f); while (!feof(f)){ if (strcmp(lice.zaglavie,zaglavie)==0){ readLice(&lice); fseek(f,-(long)sizeof(lice),SEEK_CUR); fwrite(&lice,sizeof(lice),1,f); printf("Dani za filma %s sa zameneni.\n",zaglavie); break; } fread(&lice,sizeof(lice),1,f); } fclose(f); printf("\n"); } void spisavtor(){ int k; char bg[2]; if (!exist(fime)) { printf("Failat ne e sazdaden.\n");return; } printf("Zadaite ozvychenie bg ili dr ezik: "); gets(bg);getchar(); f=fopen(fime,"rb"); k=0; fread(&lice,sizeof(lice),1,f); while (!feof(f)){ if (strcmp(lice.bgien,bg)==0) {k++;writeLice(lice);} fread(&lice,sizeof(lice),1,f); } if (k==0) printf("Nqma film s bg ozvy4enie.\n"); fclose(f); } void obSpis(){ int k; if (!exist(fime)) {printf("Failat ne e sazdaden!\n");return;} f=fopen(fime,"rb"); k=0; fread(&lice,sizeof(lice),1,f); while (!feof(f)){ k++; writeLice(lice); fread(&lice,sizeof(lice),1,f); } if (k==0) printf("Failat e prazen.\n"); fclose(f); } //функция за меню void main() { int c; printf("Ime na failat: "); gets(fime); f=fopen(fime,"w"); fclose(f); printf("\n Failat e sazdaden.\n"); do { printf("%20sMenio na izpalnqvanite operacii:\n",""); printf("%26s1. Sazdavane na nov fail\n",""); printf("%26s2. Dobavqne na komponenti\n",""); printf("%26s3. Iztrivane na komponent\n",""); printf("%26s4. Zamqna na komponenti\n",""); printf("%26s5. Izvejda spisak s ozvychenieto na filma bg ili dr ezik\n",""); printf("%26s6. Spisak na vsichki\n",""); printf("%20sPosochete operaciq ili 0 za krai: ",""); scanf("%d",&c);getchar(); switch ©{ case 1:szdPrz();break; case 2:dobaviane();break; case 3:iztrivane();break; case 4:zamiana();break; case 5:spisavtor();break; case 6:obSpis(); default: printf("Greshen kod na operatsiq.\n"); } }while (c!=0); pomognete molq dolu gore raboti ,ama nemoga da napravq tova -извежда списък с имената на всички филми на Спилберг които не са вземани през последната седмица.
  2. дали да зема нов или може да стане някаква промяна в данните... и долу горе колко струва сегашния вид Процесор:Pentium D 2x2,8Ghz/2x1MB cashe Памет:512 DDRII 667 Mhz ADATA Дънна платка: GB 945GZME/DDR II/SB 7,1/LAN Твирд диск: HDD 160 GB Hitachi-7200/S ATAII 300/8mb Видеокарта: ASUS GeForCe &300GT 256DDR2 HDTV
  3. inj_baron

    Помощ за задачи на Pascal (merged)

    направих нещо ...моля проверете дали е OK! защото несе компилира в FreePascal. const l=20; type TKniga = record {Tip zapis za dannite za edna kniga} zaglavie, avtor: string[32]; ISBN: string[10]; data: integer; broi: integer; end; Var F:File of TKniga; cmd: char; Filename: string; Procedure CreateFile; {Procedura, sazdavane prazen fail} var Ok:Boolean; I :Integer; Begin {$I-} Close(F); I := IOResult; Repeat Write('Wywedi ime na file-a:'); ReadLn(Filename); Assign(F,Filename); Ok := IOResult=0; If Ok then Begin Reset(F); If IOResult<>0 then Begin Rewrite(F); If IOResult<>0 then Begin Writeln('Greshka: Fajlyt ne move da byde sazdaden ili otvoren'); Ok:=False; End; End; End else WriteLn('Nevalidno ime/path na fajla!'); Until Ok; {$I+} WriteLn('Fajlyt beshe uspeshno syzdaden/otvoren!'); End; Procedure Add; {Procedura vavejdane na dannite} Var A :TKniga; ID:Integer; Begin WriteLn('Dobavqne na nova kniga...'); With A do begin Write('Zaglavie: '); ReadLn(zaglavie); Write('Avtor: '); ReadLn(avtor); Write('ISBN: '); ReadLn(ISBN); Write('Godina na izdavane: '); ReadLn(data); Write('Kolichestvo: '); ReadLn(broi); End; Write('Zadaite poreden nomer na knigata[0..',FileSize(F),']:'); ReadLn(Id); If Id>FileSize(F) then Id:=FileSize(F); Seek(F,Id); Write(F,A); End; Procedure List; {Procedura za izchislqvane obshtiq broi knigi prez zadadena godina} var A : TKniga; god, tomove: integer; Begin Seek(F, 0); Write('Godina: '); ReadLn(god); tomove := While not EOF(F) do Begin Read(F, A); If A.data=god then Begin Tomove:=Tomove+A.Broi; End; If A.data=god then Begin WriteLn(' ->', a.zaglavie); End; End; WriteLn('Broi tomove: ', tomove); End; Procedure Edit; {Procedura za promqna na dannite} var A, B : TKniga; ISBN : String; Addr : Longint; Begin Write('ISBN:'); ReadLn(ISBN); Seek(F,0); Addr := 0; While Not EOF(F) do Begin Read(F, A); If a.ISBN=ISBN then Begin WriteLn('Redaktirane dannite za kniga ', a.zaglavie, '...'); B := A; With B do begin Write('Zaglavie: '); ReadLn(zaglavie); Write('Avtor: '); ReadLn(avtor); Write('ISBN: '); ReadLn(ISBN); Write('Godina na izdavane: '); ReadLn(data); Write('Kolichestvo: '); ReadLn(broi); End; Addr:=FilePos(F); End; End; If Addr<>0 then Begin Close(F); Rewrite(F); Seek(F, Addr); Write(F, B); Close(F); Reset(F); End else Begin WriteLn('Nqma kniga s takuv ISBN.'); End; ReadLn; End; {Procedura za izvejdane zaglaiviqta sled zadadena godina} procedure list2; var min:real; a:TKniga ; begin write('godina sled koqto da se izvede zaglavieto:');readln(min); writeln('ime','zaglavie',' ':L-10,'ISBN'); reset(F); while not eof(F) do begin read(F,a); with a do if data>min then writeln(avtor,' ':L-length(zaglavie), ISBN:5,' ',data:2); end; close(f); end; Begin CreateFile; Repeat WriteLn('0 - Izhod'); WriteLn('1 - Suzdavane na nov file'); WriteLn('2 - Dobavqne na kniga'); WriteLn('3 - Promqna na dannite'); WriteLn('4 - Izchislqvane obshtiq broi tomove...'); WriteLn('5 - Zaglavia sled dadaena godina'); Write('Wywedi komanda:'); ReadLn(cmd); WriteLn(''); WriteLn(''); Case cmd of '1': CreateFile; '2': Add; '3': Edit; '4': List; '5': List2; '0': ; else WriteLn('Nevalidna komanda!'); End; Until cmd = '0'; Close(F); End.
  4. Format Factory ALL in 1 супер ее....
  5. inj_baron

    Помощ за задачи на Pascal (merged)

    някой можели да ми помогне ??/ в Паскал За книгите в една библиотека са зададени: Заглавие, Автор, Раздел (тема – худ. литература, техника, медицина и т.н.), ISBN (10-цифрено число), дата на издаване, количество (бр.). Да се състави програма, използваща подпрограми за : - създаване на файл с информация за книгите; - промяна на данните за книга пo зададен ISBN; - изчисляване общия брой томове (екземпляри на книги) издадени през дадена година; - намиране и извеждане на заглавията, издадени преди зададена дата.
  • Разглеждащи това в момента   0 потребители

    Няма регистрирани потребители разглеждащи тази страница.

×

Информация

Поставихме бисквитки на устройството ви за най-добро потребителско изживяване. Можете да промените настройките си за бисквитки, или в противен случай приемаме, че сте съгласни с нашите условия за ползване.