Похожие работы на «модулі та робота з файлами в Паскаль»

модулі та робота з файлами в Паскаль
Программирование и комп-ры, модулі та робота з файлами в Паскаль, Лекция ... string; begin clrscr; assign(f1,qfile); assign(f2,afile); rewrite(f2); reset(f1); write('Введіть своє ім`я, групу :'); readln(name); writeln(f2,name) ...
... eof(f1) do begin readln(f1,name); writeln(name); write('Ваша відповідь :'); readln(name); writeln(f2,name); readln(f1,ansv); if ansv=name then k:=k+1; ...


Создание текстового редактора в Turbo Pascal [нестрогое соответствие]
Программирование и комп-ры, Создание текстового редактора в Turbo Pascal , Работа Курсовая ... 2,21); write('Введите имя файла, в который копир-я файл ',name,'->'); readln(new_name); reset(f1); assign(f1_new,new_name); append(f1_new); while not ...
... F4} gotoxy(2,21); write(' '); gotoxy(2,21); write('Введите новое имя файла:'); readln(new_name); assign(f1,name); rename(f1,new_name); gotoxy(2,21) ...


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('введите кол-во строк в ...


Программирование на языке Турбо Паскаль [нестрогое соответствие]
Программирование и комп-ры, Программирование на языке Турбо Паскаль , Лекции Конспекты студенческие 1 ученик, 3 ученика, 9 учеников и т.п.) begin write('Число учеников (1..20) --> '); readln(n); write(n,' ученик'); if n<5 then begin if n>1 then ...
... pas'); reset(f1); assign(f2,'result.txt'); rewrite(f2); while not eof(f1) do begin readln(f1,s); writeln(f2,length(s)); end; close(f1); close(f2); end ...


Касса аэропорта [нестрогое соответствие]
Программирование и комп-ры, Касса аэропорта , Работа Курсовая ... 29,4);readln(city); gotoxy(29,5);readln(nomerreisa); end; gotoxy(29,6);readln(k); if (k='д') or (k='Д') then begin clrscr; write(ff,buf); gotoxy(30,12 ...
... if mas[i].fio=name then begin gotoxy(30,12);write('Пассажир найден, удалить его (д/н)-'); readln(k); if (k='д') or (k='Д') then begin for i1:=i to j-1


Арканоид на Паскале [нестрогое соответствие]
Программирование и комп-ры, Арканоид на Паскале, Курсовая ... y,48+x,y-20,0,false); end; end; procedure search_y; begin case y of 22..42: begin y:=42; stroika; end; 43..63: begin y:=63; stroika; end; 64..84: ...
... y:=189; stroika; end; 190..210:begin y:=210; stroika; end; 211..231:begin y:=231; stroika; end; 232..252:begin y:=252; stroika; end; 263..273:begin y: ...


Из опыта создания универсальных тестовых редакторов [нестрогое соответствие]
Программирование и комп-ры, Из опыта создания универсальных тестовых редакторов , Рефераты ... 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; {процедура сдвига окна выбора ...


СУБД автостоянка на Паскале [нестрогое соответствие]
Программирование и комп-ры, СУБД автостоянка на Паскале, Курсовая ... then halt (0); end; end; seek(f,filesize(f)); end; {=} procedure Inputfile; var st:prokat; k:char; begin repeat writeln('Введите данные о новом ...
... var rez:integer;ch:char; begin while rez<>0 do begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f); rez:=IOResult; if ...


Курсовая работа по базе данных СУБД [нестрогое соответствие]
Программирование и комп-ры, Курсовая работа по базе данных СУБД, Курсовая ... then halt (0); end; end; seek(f,filesize(f)); end; {=} procedure Inputfile; var st:prokat; k:char; begin repeat writeln('Введите данные о новом ...
... var rez:integer;ch:char; begin while rez<>0 do begin writeln('Задайте имя файла'); readln(filename); assign(f,filename); reset(f); rez:=IOResult; if ...


Контрольные по информатике [нестрогое соответствие]
Разное, Контрольные по информатике, Контрольная ... string[50]; amountw:integer; amountwo:integer; date:string[8]; Var cm=tcm; F1:file of tcm; F2: text; m:char; Begin clrscr; assign (F1,"1.dat"); assign ...
... not eof(F1) do begin read (F1,cm); if cm.amountw>100 then write (F2, cm.name, cm.amountw, cm.amountwo, cm.date); end; close (F1); close (F2); End.