Программа 7_06.bas
CLS
OPEN "notebook" FOR APPEND AS #1
'Ввод данных с клавиатуры
DO
INPUT "ФАМИЛИЯ: ",Name$
INPUT "ТЕЛЕФОН: ",Phone$
WRITE #1, Name$,Phone$
INPUT "Добавим ";R$
LOOP WHILE LEFT$(R$,l)="f1"
CLOSE #1
CLS
OPEN "notebook" FOR INPUT AS #1
PRINT "Список абонентов в файле:"
DO WHILE NOT EOF(l)
'LINE INPUT #1, NP$ ' Чтение строки целиком
'PRINT NP$ ' Вывод данных на экран
INPUT #1, А$, В$ ' Чтение строки по компонентам
PRINT А$, В$' ' Вывод данных на экран
LOOP
CLOSE #1
END
Программа 7_06.с
#include <conio.h>
#include <stdio.h>
main() {
FILE *f;
int k;
char r,Name[20],Phone[10]; clrscr();
'f=fopen("notebook","at");
m: /* Ввод данных с клавиатуры */
printf("\n ФАМИЛИЯ: ");
scanf("%s",Name); printf("ТЕЛЕФОН: ");
scanf("%s",Phone);
fprintf(f,"%-20s %10s\n",Name,Phone);
printf("Добавим (д/н) - ");
r=getche(); if(г=='д')
goto m;
fclose(f);
clrscr();
f=fopen("notebook","rt");
printf("\пСписок абонентов в файле:\n") ;
while(!feof (f)) {
fscanf(f,"%20s %10s\n",Name,Phone);
printf("%-20s %10s\n",Name,Phone); }
fclose(f);
getch(); }
Программа 7_06.pas
program notebook;
uses Crt;
var
f:text;
R,Name,Phone:string; begin
clrscr;
assign(f, 'notebook ');
{$!-} append(f); {$!+}
if IOResult <> 0 then rewrite(f);
{ Ввод данных с клавиатуры }
repeat
write('ФАМИЛИЯ: ');
readln(Name);
write('ТЕЛЕФОН: ');
readln(Phone);
writeln(f,Name, ' ':15-length(Name), Phone:10);
write{'Добавим ');
readln(R);
until r[l] <> 'д ';
close(f);
clrscr;
reset(f);
writeln('Список абонентов в файле: ');
repeat
readln(f,r);
{ Чтение строки целиком } writeln(r);
{ Вывод данных на экран } until eof(f);
close(f);
readln;
end.
Задание 7.07. Создание резервной копии файла