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

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

    Молиер - "Тартюф"

    поне за 3'ка има Молиер твори в епохата на класицизма, която е представена с култ към разума. И в творбата си той засяга вечните проблеми за онова време. Това са лицемерието и заслепението, и те могат да бъдат победени единствено чрез силата на разума, като път към доброто и хармонията. В живота си човек винаги е преследван от тези два порока - лицемерието и заслепението. През класицизма те са много разпространени, между хората, и Молиер ги включва като основни елементи в неговата творба "Тартюф". Лицемерието е един вид маска, която прикрива истинските намерения на човек. Той прави точно това, което в лицето на човека от които иска да получи нещо, изглежда все едно е съвършен. Заслепението е в следствие от лицемерието, защото заслепените хора немогат да прозрат истината, че ги използват с някаква цел. Лицемерието е представено в лицето на Тартюф, а заслепението не само в лицето на Оргон, но и на всички останали герои. Тартюф успява да се промъкне трайно в семейството на Оргон и до такава степен завладява ума му, че изцяло преобръща неговия вътрешен свят и начин на мислене. Той умело и безкомпромисно преследва целите си - благоденствие, пари, власт, имоти, като постепенно отнема здравия разум на един иначе разсъдлив човек -заслепения Оргон. Тартюф избира пътя на двуличието, за да прикрие истинските си стремежи. Той е от тези личности, за които двуличието е тяхната същност. Той се представя за човек, изключително набожен и примерен, какъвто не е всъщност. В отношението си с останалите от семейството Тартюф изкарва наяве неговата истинска същност. Той се възползва от Оргон, проявява страст към жена му Елмира, въпреки че е набожен човек. Отношението му спрямо Мариана е лицемерно и с някаква цел. Той е готов да се ожени за нея, защото така той ще получи всичко след смърта на Оргон, и няма да има повече никакви пречки на пътя си. Оргон е заслепен, защото привидните черти на характера на Тартюф, напълно съответстват на представата му за порядъчност и добродетелност в съвременното му общество. Това е причината за дълбоката заблуда, в която той изпада впоследствие.Той е толкова обсебен от лицемерието на Тартюф, че истината му изглежда лъжа, а лъжата - реалност. И това води до духовната деградация на Оргон. Наивността му надхвърля всички граници, когато той решава да направи Тартюф свой зет, като го ожени за дъщеря си Мариана, след това му поверява опасни документи и накрая приписва на привидния богоугодник целия си имот и наследство. Оргон не познава мярка в доверието си към Тартюф и е готов да спори с всеки, за да защити поредната, измама на Тартюф. В стремежа си да втълпи на семейството си непорочността и добротата на лицемера, Оргон дори разрешава на Тартюф да се вижда по-често с жена му Елвира, независимо от страстта, която е проявил към нея. Двуличникът се възползва от привилегиите, дадени му от Оргон, като тайно се надсмива над глупостта и заслепението му. В "Тартюф" Молиер изразява най-големия порок на своето време - лицемерната набожност. Комедията му е безпорен връх в неговото творчество, и в цялата европейска литература. Засегнатите в произведението вечни проблеми, и актуалноста им през епохата на класицизма и днешно време, водят до актуалност и на творбата в наши дни.
  4. 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.
  5. Format Factory ALL in 1 супер ее....
  6. inj_baron

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

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

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

×

Информация

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