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


         

Вывод данных на экран


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

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