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

boccko

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

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

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

Харесвания

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

Всичко за boccko

  • Титла
    Редовен потребител

Последни посетители

Информацията с последните посетители на профила ви е изключена и не се показва на другите потребители.

  1. boccko

    Как да разбера дали моя Windows XP SP3 e активиран?

    Зависи от самото копие на уиндоуса!На единия ми компютър става, а на другия ми изкарва грешка!
  2. Ама като ти се драйфа върви да драйфаш, не се занимавай да пишеш тук!Все пак това е форум(хора търсят съвети от други хора), ако мислех да плащам на някой нямаше да пиша тук!
  3. Аз по принцип тоя усилвател го купих нов и като го монтирам ми спира сигнала.Това означава ли че е повреден?В описанието му пише, че е за пасивни антени, а аз съм с активна?Ако е повреден да го връщам в магазина.А относно кабела ще го сменя, но не съм много наясно как да разбера един кабел качествен ли е или не.Горе долу хубавите коаксиални кабели по колко пари вървят(на метър де )?
  4. Проблема е следния: със неимоверни усиля успях да хвана сигнал на село с активна антена.Проблема обаче идва от това, че имам два телевизора и разстоянието между тях е около 15 метра.Сложих сплитер, от него до единия телевизор разстоянието е 1.50м, хващат се всички канали, но проблема идва при другия приемник(на 15м от сплитера).Явно сигнала затихва и не се хващат каналите на БНТ(БНТ1, БНТ2, БНТ1 HD/ проблема не е от телевизора, защото го местих в стаята при късия кабел и се хващат).Реших да пробвам да сложа този - http://www.sattvshop.com/index.php?main_page=product_info&cPath=10_119&products_id=933 линеен усилвател на единия изход на сплитера, но като го сложа сигнала спира съвсем.Въпроса ми е има ли вариант да подкарам усилвателя?Другия вариант, който обмислям е да подменя кабела(15 метровия), защото е доста стар и според мен не много надежден.Очаквам вашите мнения.Благодаря Предварително!
  5. boccko

    малко помощ за програма на Паскал

    Благодаря ти много, всичко заспа!
  6. boccko

    малко помощ за програма на Паскал

    От опитите ми по първия код стигнах до тук: program kurs_file;Type tipstudent=recordname: String[30];egn: String[9];fnum: String[6];ocenka:Array[1..10] of byte;end;var FS:File of tipstudent;m,scs,gender:Integer;imefail:string[20];C:integer;gender_digit:string[1];{vavejdane na danni za studenta}Procedure addstud(var st:tipstudent);var i:integer;BeginWith st do beginwrite('Vyvedi ime:'); readln(name);if(name='exit')then exit;write('Vyvedi EGN:'); readln(egn);write('Vyvedi F.N.:'); readln(fnum);writeln('Vyvedi 10 ocenki:');for i:=1 to 10 do read(ocenka[i]);end;readln;end;{izchislqvane na sredniq uspeh}Function srus(st:tipstudent):real;var i,s:integer;Begins:=0;for i:=1 to 10 do s:=s+st.ocenka[i];srus:=s/10;end;{otpe4atvane na edin student}Procedure wrtst(st:tipstudent);var i:integer;b:string[1];beginwith st do beginwriteln('Ime:',name);writeln('EGN:',egn);writeln('F.N.:',fnum);writeln('Ocenki:');for i:=1 to 10 do write(ocenka[i],' '); writeln;writeln('Izchislqvane na sreden uspeh? y/n');readln(B);if(b='y')then writeln('Sreden uspeh:',srus(st):4:2);writeln;end;end;{otpe4atvane na celiq fail}Procedure prall;var st:tipstudent;BeginReset(fs);While not EOF(fs) dobeginRead(fs,st);wrtst(st);end;close(fs);end;{syzdavane na prazen fail}Procedure newfile;var i:integer;BeginRewrite(fs);Close(fs);Writeln('Failyt e syzdaden!');end;{dobavqne na studenti kym faila}Procedure addstudetofile;var st:tipstudent;BeginWriteln('Vavedi ime ili exit za krai');reset(fs); seek(fs,filesize(fs));Repeataddstud(st);if st.name<>'exit' then write(fs,st);until st.name= 'exit';close(fs);end;{Izvejda sr. uspeh i fak. nom. samo na mujete}procedure report(var st:tipstudent);beginreset(fs);writeln('samo muje:');writeln('------------------');while not EOF (fs) dobeginRead(fs,st);gender_digit:=copy(st.egn, 9, 1);val(gender_digit, gender, scs);if ((scs=0) and (gender mod 2 = 0)) thenwrtst(st);end;close(fs);end;BeginWrite('zadaite imeto na faila:');Readln(ImeFail);Assign(fs,ImeFail);RepeatWriteln(' ':20,'Meniu na izpalnqvanite operaii:');Writeln(' ':20,'1- suzdavane na nov fail');Writeln(' ':20,'2- informaciq za grupa studenti bez da se vavejda sr. uspeh');Writeln(' ':20,'3- izchislqvane na sredniq uspeh na vseki edin ot studentite');writeln(' ':20,'4- razpechatka za mujete');Readln(C);Case C of1:newfile;2:addstudetofile;3:prall;4:report;end;until C=0End.Но не иска да ми го компилира и ми изкарва грешка:Error: Wrong number of parameters specified for call to "report"
  7. boccko

    малко помощ за програма на Паскал

    Поне някой би ли ми казал дали може да се промени следния код, така че да не се използва библиотеката CRT и в частност командата ReadKey, защото аз пробвах само да я изтрия от кода, но програмата ме изхвърля след като въведа данните за необходимия брой студенти? program EB_file; uses crt; type scr = array[1..10] of 2..6; stud = record Name: string; personal_id: string[10]; fac_num: string[6]; scores: scr; avr: real; end; var fp: file of stud; student: stud; j, i, gender, scs: integer; ch: char; gender_digit: string[1]; filename: string; procedure ReadStudent; begin Write('Name of student: '); readln(student.Name); if length(student.Name) > 0 then begin Write('Faculty number: '); readln(student.fac_num); Write('Personal ID: '); readln(student.personal_id); for j := 1 to 10 do begin Write('Discipline ', j, ' score: '); readln(student.scores[j]); end; end; end; procedure CreateFile; begin Write('Enter filename: '); readln(filename); Assign(fp, filename); rewrite(fp); repeat ReadStudent; if length(student.Name) > 0 then Write(fp, student); until length(student.Name) = 0; Close(fp); end; function Average(var scores: scr): real; var s: real; begin s := 0; for j := 1 to 10 do s := s + scores[j]; Average := s / 10; end; procedure AverageScore; begin reset(fp); for i := 0 to FileSize(fp) - 1 do begin seek(fp, i); Read(fp, student); student.avr := Average(student.scores); seek(fp, i); Write(fp, student); end; Close(fp); end; procedure WriteStudent; begin Writeln('Faculty number: ', student.fac_num, ', average score: ', student.avr: 4: 2); end; procedure Report; begin reset(fp); Writeln('Male only students reported:'); Writeln('----------------------------'); while not EOF(fp) do begin Read(fp, student); gender_digit := Copy(student.personal_id, 9, 1); Val(gender_digit, gender, scs); if ((scs = 0) and (gender mod 2 = 0)) then WriteStudent; end; Close(fp); end; begin CreateFile; AverageScore; Report; ch := ReadKey;end.
  8. Та мъчи ме задачка на паскал от курсовата ми работа.Ето го и условието: За група студенти са зададени име, ЕГН, факултетен № , оценки по 10 дисциплини , среден успех. Да се създаде програма , използваща подпрограми за: Създаване на файл с информация за групата студенти, без да се въвежда ср. успех; • изчисляване на средния успех на всеки един от студентите; • извеждане на фак. № и средния успех на всеки студент (мъж). program kurs_file; Type tipstudent=recordname: String[30];egn: String[9];fnum: String[6];ocenka:Array[1..10] of byte;end;var FS:File of tipstudent;m:Integer;imefail:string[20];C:integer; {vavejdane na danni za studenta}Procedure addstud(var st:tipstudent); var i:integer;BeginWith st do beginwrite('Vyvedi ime:'); readln(name);if(name='exit')then exit;write('Vyvedi EGN:'); readln(egn);write('Vyvedi F.N.:'); readln(fnum);writeln('Vyvedi 10 ocenki:');for i:=1 to 10 do read(ocenka);end;readln;end; {izchislqvane na sredniq uspeh}Function srus(st:tipstudent):real; var i,s:integer;Begins:=0;for i:=1 to 10 do s:=s+st.ocenka;srus:=s/10;end; {otpe4atvane na edin student}Procedure wrtst(st:tipstudent); var i:integer;b:string[1];beginwith st do beginwriteln('Ime:',name);writeln('EGN:',egn);writeln('F.N.:',fnum);writeln('Ocenki:');for i:=1 to 10 do write(ocenka,' '); writeln;writeln('Izchislqvane na sreden uspeh? y/n');readln(B);if(b='y')then writeln('Sreden uspeh:',srus(st):4:2);writeln;end;end; {otpe4atvane na celiq fail}Procedure prall; var st:tipstudent; BeginReset(fs);While not EOF(fs) dobeginRead(fs,st);wrtst(st);end;close(fs);end; {syzdavane na prazen fail}Procedure newfile; var i:integer; BeginRewrite(fs);Close(fs);Writeln('Failyt e syzdaden!');end; {dobavqne na studenti kym faila} Procedure addstudetofile; var st:tipstudent; BeginWriteln('Vavedi ime ili exit za krai');reset(fs); seek(fs,filesize(fs));Repeataddstud(st);if st.name<>'exit' then write(fs,st);until st.name= 'exit';close(fs);end; BeginWrite('zadaite imeto na faila:');Readln(ImeFail);Assign(fs,ImeFail);RepeatWriteln(' ':20,'Meniu na izpalnqvanite operaii:');Writeln(' ':20,'1- suzdavane na nov fail');Writeln(' ':20,'2- informaciq za grupa studenti bez da se vavejda sr. uspeh');Writeln(' ':20,'3- izchislqvane na sredniq uspeh na vseki edin ot studentite');Readln©;Case C of1:newfile;2:addstudetofile;3:prall;end;until C=0End. Това е кода без последната подточка.Моля някой ако е възможно да ми оформи последната процедура, а именно извеждане на фак. номер и среден успех на мъжете като има предвид, че пола трябва да се разбере от предпоследната цифра в ЕГН-то(четна цифра- мъж, нечетна цифра- жена).Благодаря предварително!!!
  9. boccko

    Схема за усилвател 2х50 или 2х40

    Аз съм си правил саморъчно усилвател с TDA7375a и проработи!Сега самата платка ще успея да я направя и да поставя елементите, обаче за захранването не ми беше много ясно.
  10. boccko

    Схема за усилвател 2х50 или 2х40

    Доста лесна за изработка ми изглежда тази платкa, но тъй като не съм много вещ във нещата искам да те попитам какво ще рече: "Усилвателя се захранва от нестабилизиран токоизправител с трансформатор осигуряващ вторични напрежения 2х22V~/3A, изправителен блок B80C3200/5000 (могат да се използват дискретни диоди) и два електролитни филтриращи кондензатора 6000μf/35V."Това цялото ли е трансформатор или са отделни елемети?
  11. boccko

    Схема за усилвател 2х50 или 2х40

    Аз искам сам да си направя.Под "ефтина схема" имах предвид евтини консомативи за изготвяне на платката
  12. Здравейте, искам да попитам има ли схеми за горепосочените усилватели без интегрална схема и ако има моля да ми дадета такава.Ако няма ще помоля да ми дадете някоя проста и евтина за изработка схемичка с ИС.Благодаря предварително!!!
  13. И така имам две тонколони 40W на 4 ома и искам да попитам дали ще успея да ги захраня.Дъното ми е ASRock ALiveNF4G-DVI с вградено аудио, но ме е страх да ги пробвам да не изгори нещо.Ако някой знае дали ще стане моля да ми каже.Благодяря предварително!
  14. Ами инсталирах си Фифа 07, но по време на инсталацията поиска да обнови до DirectX 9.0c и аз го направих.Не мисля че е от това!
  15. Това го бях гледал, но нямам нито една инсталирана програма от двете споменати на моя компютър.
  • Разглеждащи това в момента   0 потребители

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

×

Информация

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