Практика программирования (Бейсик, Си, Паскаль)



         

Задачи, советы и ответы - часть 4


Программа 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. Создание резервной копии файла




Содержание  Назад  Вперед