Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 07.02.2011
Сообщений: 86
1

Напечатать список абитуриентов набравших на экзаменах N и более баллов

04.07.2011, 21:03. Просмотров 1087. Ответов 2
Метки нет (Все метки)

В файл записать информацию об абитуриентац ,поступающих в университет:фамилия,имя,отчество,домашний адрес,номер телефона,изучаемый язык,сумма баллов,полученных на вступительных экзаменах. Напечатать список абитуриентов набравших на экзаменах N и более баллов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.07.2011, 21:03
Ответы с готовыми решениями:

Записи. Файлы прямого доступа. Вывести абитуриентов, набравших меньше 12 баллов
Составить файл с именем ABITUR, состоящий из данных по сдаче экзаменов абитуриентами. Указать для...

Напечатать список абитуриентов в порядке убывания суммы набранных баллов
имеются следующие сведения о абитуриентах: номер в списке, ФИО, сумма набранных баллов на...

Вывести список абитуриентов, отсортированный по сумме баллов, полученных на экзаменах
*Ввести и сохранить в файле данные следующей структуры:*ф.,и.,о. абитуриента, * средний балл...

Напечатать фамилии участников олимпиады, набравших 100 баллов
фамилии участников олимпиады хранятся в одном массиве, а количество баллов - в другом. составьте...

2
59 / 59 / 52
Регистрация: 19.11.2010
Сообщений: 218
05.07.2011, 13:14 2
Лучший ответ Сообщение было отмечено Kartasskiy как решение

Решение

Может так:
Создаём файл:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Program sp;
Uses crt;
type A=record
    fa,i,o,ad,tel,num,lan,bal:string[12];
    end;
Var F:file of A;
    Rec:A;
    s:string;
    n,i:byte;
Begin
  Write('Введите путь к файлу ');
  readLn(s);
  Assign(f,s);
  ReWrite(f);
  Write('Сколько записей создать? ');
  ReadLn(n);
  for i:=1 to n do
  with Rec do
  begin
    Write('Фамилия ');
    readLn(fa);
    Write('Имя ');
    readln(i);
    Write('Отчество ');
    readLn(o);
    Write('Адрес ');
    readLn(ad);
    Write('Номер ');
    readLn(num);
    Write('Язык ');
    readLn(lan);
    Write('Сумма балов ');
    readLn(bal);
    Write(F,rec);
  end;
readLn; close(f);
end.
Выводим :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Program sp;
Uses crt;
type A=record
    fa,i,o,ad,tel,num,lan,bal:string[12];
    end;
Var F:file of A;
    Rec:A;
    s:string;
    n,i,er:integer;
Begin
clrscr;
  Write('Введите путь к читаемому файлу ');
  readLn(s);
  Assign(f,s);
  ReSet(f);
  Write('Введите балл ');
  readLn(n);
  While not eof(f) do
  begin
    read(f,Rec);
    Val(Rec.bal,i,er);
    if i >= n then
    with Rec do
    begin
      WriteLn('Фамилия ',fa);
      WriteLn('Имя ',i);
      WriteLn('Отчество ',o);
      WriteLn('Адрес ',ad);
      WriteLn('Номер ',num);
      WriteLn('Язык ',lan);
      WriteLn('Сумма балов ',bal);
    end;
  end;
readLn;
close(f);
end.
0
1 / 1 / 0
Регистрация: 07.02.2011
Сообщений: 86
06.07.2011, 12:09  [ТС] 3
спасибо огромное :-) :-) :-)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.07.2011, 12:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Файл содержит сведения об абитуриентах. Выведите список абитуриентов из задаваемой школы и определите их общий балл на вступительных экзаменах
Файл содержит сведения об абитуриентах: фамилия, имя, год окончания, номер школы, оценки на...

Вывести список команд,набравших более Z очков
Вывести список команд,набравших более Z очков. Мой пример проверьте плз и подскажите что...

Создать массив объектов. Вывести: список абитуриентов, у которых сумма баллов выше заданной
Помогите, пожалуйста, доделать задание. Заранее всем спасибо! Создать массив объектов. Вывести:...

Составить список зачисленных абитуриентов в порядке убывания балла и список абитуриентов с полупроходным баллом
Решение задач с использованием структурированных типов данных Помогите, пожалуйста. Беда с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.