модулі та робота з файлами в Паскаль
Программирование и комп-ры, модулі та робота з файлами в Паскаль, Лекция
... 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.