sympathetic

Нямам ограничение по ТТЛ но никъде в рутер-а не пише нищо са ПППОЕ?

Здравейте колеги въпросът ми е ако превърна рутер-а в AP режим и вкарам кабела от ISP-то ми което ме оторизира с усер и пасс (PPPOE) ще тъгне ли нет на Wireless?

Дай инфо за модел на дъното ако ти е вградена саунд картата или модел на саундкартата ако е отделна това лаптоп ли е персонален компютър ли е? Как да определим проблема да не сме баба Ванга???

Промених това: program Project1; type tured = record vid: string[255]; model: string[255]; proizvoditel: string[255]; cena: real; kolichestvo: integer; end; var F: file of tUred; ured: tured; ime: string; // - създаване на нов файл с информация за уредите; procedure NovFail; begin write('Vavedete imeto na faila:'); readln(ime); assign(f, ime); rewrite(f); close(f); writeln('Failat e sazdaden !'); end; // - регистриране на продажба на уред; procedure Prodajba; var vid: string[255]; model: string[255]; kolichestvo: integer; cena:real; begin write('Vid:'); readln(vid); write('Model:'); readln(model); write('Kolichestvo:'); readln(kolichestvo); write('cena:'); readln(cena); assign(f, ime); reset(f); while not eof(f) do begin read(f, ured); if (ured.vid = vid) and (ured.model = model) then begin if ured.kolichestvo >= kolichestvo then begin ured.kolichestvo := ured.kolichestvo - kolichestvo; seek(f, filepos(f) - 1); write(f, ured); end; end else writeln('Nyama dostatuchno kolichestvo ! Nalichni sa ', ured.kolichestvo, ' broya.'); end; close(f); end; //- регистриране доставка на уреди; procedure Dostavka; var vid: string[255]; model: string[255]; kolichestvo: integer; cena:real; begin write('Vid:'); readln(vid); write('Model:'); readln(model); write('Kolichestvo:'); readln(kolichestvo); write('Cena'); readln(cena); assign(f, ime); reset(f); while not eof(f) do begin read(f, ured); if (ured.vid = vid) and (ured.model = model) then begin ured.kolichestvo := ured.kolichestvo + kolichestvo; seek(f, filepos(f) - 1); write(f, ured); end; end; close(f); end; // - пресмятане цената на наличното количество от всички уреди от даден вид; procedure Smetki; var vid: string[255]; cena: real; kolichestvo: integer; begin write('Vid:'); readln(vid); kolichestvo := 0; cena := 0; assign(f, ime); reset(f); while not eof(f) do begin read(f, ured); if (ured.vid = vid) then begin cena := cena + ured.kolichestvo * ured.cena; end; end; close(f); writeln('Cenata na uredite ot vid ', vid, ' e : ', cena: 0: 2); end; // - намиране на уреда от даден вид с най-ниска цена. procedure NajEvtin; var vid: string[255]; cena: real; begin write('Vid:'); readln(vid); cena := 0; assign(f, ime); reset(f); while not eof(f) do begin read(f, ured); if (ured.vid = vid) then begin if cena = 0 then cena := ured.cena else begin if ured.cena < cena then cena := ured.cena; end; end; end; close(f); writeln('Uredut ot vid ', vid, ' s nai niska cena e : ', cena: 0: 2); end; procedure main; var nam: integer; begin repeat writeln('Menu'); Writeln('1-Sazdavane na nov fail'); Writeln('2-Registrirane na prodajba'); Writeln('3-Registrirane na dostavka'); Writeln('4-Presmyatane cenata na nalichnoto kolichestvo ot vsichki uredi ot daden vid'); Writeln('5-Namirane na ureda ot daden vid s nay-niska cena'); writeln('0-Izxod'); write('Izberete<0..5>:'); Readln(nam); case nam of 1: NovFail; 2: Prodajba; 3: Dostavka; 4: Smetki; 5: NajEvtin; else if nam <> 0 then writeln('GRESHNA KOMANDA !'); end; until nam = 0; end; begin Main; end. Но ядец... Не проработва.

Само да попитам:Ако добавя цена в процедурите продажба и доставка ще стане ли?

1.Изкарай камерата 2.Премахни драйвера на камерата ти. 3.Рестартирай. 4.Инсталирай си драйвера на камерата без да е вкарана камерата. 5.След това пъни камерата и я изчакай да си намери драйвера. Пиши какво стана.

Мисля, че проблема е в цената? Никъде при въвеждането не излиза да въведа цена? Или греша?

http://www.virtualdub.com/

Дай прозводител и модел на дъното?

Проблема ти мисля, че е в USB Host controller драйвера. Отиваш на Device Manager намираш това устройство даваш му uninstall на драйвера и после чакаш windows-a отново ще му инсталира нов драйвер. П.П. Това какъв при какъв уиндоус е?

Няма ли някой да помогне?

Може ли да ми напишеш и другите процедури как трябва да изглеждат? Не съм много запознат съжалявам, не съм много добър в програмирането това, което мога да направя сам го демонстрирах във първият си пост. Благодарен съм, че ми помогна!

Значи стана ми ясно как се отваря и затваря файла,точки и запетаите съм ги спазил, но проблема ми е в процедурите техните оформления знам, че не са вярни.

Ето какво коригирах, но без резултат знам, че имам грешки Program Magazin; Type Tured=record; vid:string[255]; model:string[255]; proizvoditel:string[255]; cena:real; kolichestvo:integer; end; var ured:tured F:file of tUred; procedure addured; begin with ured do begin write('Vavedete vid na ureda')readln(ured.vid); write('Vavedete model na ureda')readln(ured.model); write('Vavedete proizvoditel na ureda')readln(ured.proizvoditel); write('Vavedete kolichesvtvo uredi')readln(ured.kolichestvo); end; end; procedure ADDprodajbA; begin assign(f,'uredi.dat); reset(F); SEEK(F,Filesize(F)); Repeat Vhod1Ured; if F.ured>' 'then write f.kolichestvo= ''; close(F); end; Procedure Dostavka; begin Rewrite(F);Close(F); Write('failut e suzdaden'); end; Procedure smetki; var Br:integer; begin br:=0; Writeln('spisyk s nalichno kolichestvo uredi i dadenieqt vid e:'); reset (f); While not EOF(F) do begin Read(F,Ured); if ured>=0 then begin writeln(ured.vid); ime(ured); end; writeln('Broy uredi= ',ured); close (F); end; var nam:char; Begin Assign(F,'Uredi.dat'); Repeat writeln('menu'); Writeln('1-Sazdavane na nov fail'); Writeln('2-Dobavi danni vav faila'); Writeln('3-izvedi spisak s nali4nite uredi'); writeln('0-izxod ot programata'); write('Izberete<0..3>:');Readln(nam); case nam of '1':dostavka; '2':addprodajba; '3':smetki; else if nam<>'0'then wtiteln('greshna komanda!'); end; until otg='0'; end.

Здравейте колеги задачата е следната: В магазин за електроуреди се поддържа информация за: вид на уреда, модел, производител, единична цена, количество. Да се състави програма, която поддържа файл с посочените данни с помощта на подпрограми за: - създаване на нов файл с информация за уредите; - регистриране на продажба на уред; - регистриране доставка на уреди; - пресмятане цената на наличното количество от всички уреди от даден вид; - намиране на уреда от даден вид с най-ниска цена. П.П. Написаното от мен е следното, но ядец не върви Program Magazin; Type ured=record; vid:string; model:string; proizvoditel:string; cena:real; kolichestvo:integer; end; var F:file of Ured; procedure addured; begin with ured do begin write('Vavedete vid na ureda')readln(vid); write('Vavedete model na ureda')readln(model); write('Vavedete proizvoditel na ureda')readln(proizvoditel); write('Vavedete kolichesvtvo uredi')readln(kolichestvo); end; readln; end; procedure ADDprodajbA; begin reset(F); SEEK(F,Filesize(F)); Repeat Vhod1Ured; if F.ured>' 'then write f.kolichestvo= ''; close(F); end; Procedure Dostavka; begin Rewrite(F);Close(F); Write('failut e suzdaden'); end; Procedure smetki; var Br:integer; begin br:=0; Writeln('spisyk s nalichno kolichestvo uredi i dadenieqt vid e:'); reset (f); While not EOF(F) do begin Read(F,Ured); if ured>=0 then begin writeln(ured.vid); ime(ured); end; writeln('Broy uredi= ',ured); close (F); end; var nam:char; Begin Assign(F,'Uredi.dat'); Repeat writeln('menu'); Writeln('1-Sazdavane na nov fail'); Writeln('2-Dobavi danni vav faila'); Writeln('3-izvedi spisak s nali4nite uredi'); writeln('0-izxod ot programata'); write('Izberete<0..3>:');Readln(nam); case nam of '1':dostavka; '2':addprodajba; '3':smetki; else if nam<>'0'then wtiteln('greshna komanda!'); end; until otg='0'; end.