Похожие работы на «СУБД автостоянка на Паскале»

СУБД автостоянка на Паскале
Программирование и комп-ры, СУБД автостоянка на Паскале, Курсовая ... readln(st.Name_Hozaina); write('марка машины:'); readln(st.markauto); write('модель машины:'); readln(st.model_auto); write('тип кузова:'); readln(st. ...
eof(f) do begin read(f,st); if st.sname_Hozaina<>studtoout then write(fo,st); end; close(f);close(fo); erase(f); rename(fo,filename); end; {ОСНОВНАЯ ...


Курсовая работа по базе данных СУБД
Программирование и комп-ры, Курсовая работа по базе данных СУБД, Курсовая ... readln(st.Name_Hozaina); write('марка машины:'); readln(st.markauto); write('модель машины:'); readln(st.model_auto); write('тип кузова:'); readln(st. ...
eof(f) do begin read(f,st); if st.sname_Hozaina<>studtoout then write(fo,st); end; close(f);close(fo); erase(f); rename(fo,filename); end; {ОСНОВНАЯ ...


Обработка экономической информации средствами языка Pascal
Кибернетика, Обработка экономической информации средствами языка Pascal, Курсовая ... e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a ...
... e3:=nn; end; writeln; writeln('Изменить цену за 1 шт? (y/n)');c:=readkey; if c=#121 then begin write('Вводим новое:'); read(o);a.e4:=o; end; write(f,a ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... p*100 div z; {расчет количества правильных ответов} Writeln('количество правильных ответов: ',p); Write('оценка '); {выставление оценки} If z>=90 Then ...
... TextColor(green); Write('Печать'); End; 60:Begin TextColor(green); Write('Выход'); End; End; End; Procedure panel.right; {процедура сдвига окна выбора ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... fio); gotoxy(29,3);readln(pasp); gotoxy(29,4);readln(city); gotoxy(29,5);readln(nomerreisa); end; gotoxy(29,6);readln(k); if (k='д') or (k='Д') then ...
... д/н-'); with buf do begin gotoxy(29,2);readln(numreis); gotoxy(29,3);readln(kuda); gotoxy(29,4);readln(time); gotoxy(29,5);readln(price); gotoxy(29,6) ...


Модули, записи и файлы [нестрогое соответствие]
Программирование и комп-ры, Модули, записи и файлы, Курсовая ... о предприятиях, которые не начисляли ") ; writeln ("налоги в отчетный период ") ; writeln ("+-+") ; writeln ("| № | ИНН | Наименование | 1 | 2 | 3 | 4 ...
... 2 - Начислено налогов в отчетный период ") ; writeln ("3 - Уплачено налогов в отчетный прериод ") ; writeln ("4 - Сведения на конец отчетного преиода ...


Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта (самолет, авто, поезд, водн.) (и ... [нестрогое соответствие]
Программирование и комп-ры, Задача про транспортную систему. Подбор вариантов проезда с учетом кол-ва пересадо, длительности, видов транспорта ... ... city:cities; a:dat; Procedure Input(var Pattern:blank; var a:dat); var i:citycode; st:string; b:dat; w:real; begin with pattern do begin GotoXY(30,1) ...
... отправление:'); DTInput(a); delay:=a.Dweek*1440+a.time; Write('Максимальное время пути (сутки):'); readln(w); waytime:=round(1440*w); until waytime>0; ...


10 задач с решениями программированием на Паскале [нестрогое соответствие]
Программирование и комп-ры, 10 задач с решениями программированием на Паскале , Задачи ... фаил будет выглядеть так:'); reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в ...
... фаил будет выглядеть так:'); reset(f); while not eof(f) do begin readln(f,s); writeln(s) end; close(f); end; begin writeln('введите кол-во строк в ...


Разработка базы данных, отражающей учет успеваемости студентов [нестрогое соответствие]
Программирование и комп-ры, Разработка базы данных, отражающей учет успеваемости студентов , Работа Курсовая ... tems:=rab; tabl1(tek,rab,true); writeln('Введите уникальный номер'); readln(dlud); bis:=true; while tems<>nil do begin if tems^.tabl.t1=dlud then ...
... 6]:='Выход'; m:=6; end; with menu3 do begin st[1]:='КОРРЕКТИРОВКА'; st[2]:='Добавление'; st[3]:='Удаление'; st[4]:='Изменение'; st[5]:='Выход'; m:=5; ...


Нейтрофилы [нестрогое соответствие]
Медицина, Нейтрофилы , Рефераты ... step_distri[angle] do for j:=0 to 10 do writeln(f,step[j]:10:2,cent[j]:10,cummulate[j]:10); close(f); end; procedure write_disp; var i, j, k : word; z ...
... 0.5*ln(shift[i]):10:2); end; writeln(f); until j=98; close(f); end; procedure write_distr; var i, j, k : word; z : word; shift : array[0..35] of word; ...