Создать текстовый файл, в котором находится список из n фамилий и оценок за экзамен

@saaa · Регистрация: 23.05.2012

Author24 — интернет-сервис помощи студентам

Создать текстовый файл при помощи языка Паскаль в, котором находится список из n фамилий и оценок за экзамен.

@CodeR · 24.05.2012, 19:40

Pascal

Var f:text;
    n,p,i:integer;
    s:string;
Begin
    Assign(f,'q.txt');Rewrite(f);
    write('Введите кол-во студентов: ');readln(n);
    For i:=1 to n do 
     Begin
      write('Введите фамилию [',i,']-го студента ');readln(s);
      write('Введите оценку [',i,']-го студента ');readln(p);
      Writeln(f,s+' ',p);
     End;
    writeln('Формирование файла закончено!');
    Close(f);
End.

@saaa · 24.05.2012, 19:47 **[ТС]**

Спасибооооооо

@saaa 1 / 1 / 0 Регистрация: 23.05.2012 Сообщений: 37
		1
	Создать текстовый файл, в котором находится список из n фамилий и оценок за экзамен 24.05.2012, 19:04. Показов 1139. Ответов 2 Метки нет (Все метки) Создать текстовый файл при помощи языка Паскаль в, котором находится список из n фамилий и оценок за экзамен. 0

@saaa 1 / 1 / 0 Регистрация: 23.05.2012 Сообщений: 37
	24.05.2012, 19:47 [ТС]	3
	Спасибооооооо 0

Опции темы

Создать текстовый файл, в котором находится список из n фамилий и оценок за экзамен

Решение