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

Создать файл, в который необходимо ввести фамилии и рост студентов группы.

11.06.2010, 12:27. Показов 1182. Ответов 1
Метки нет (Все метки)

Создать файл, в который необходимо ввести фамилии и рост студентов группы. Вывести на экран данные через пробел в отдельной строке и фамилию самого высокого студента. вот мой код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Program pr1; 
type nn=record 
name:string; 
rost:integer; 
end; 
var f1:file of nn; 
n:nn; 
max,i:integer; 
begin
assign(f1,’stud.txt);  rewrite(f1);
for i:=1 to 5 do begin readln(n.name,n.rost); 
write(f1,n); end; 
reset(f1); 
max:=0; 
for i=1 to 5 do begin 
read(f1,n); 
If max<n.rost then max:=n.rost; 
writeln(n.name,’  ‘,n.rost); 
end; 
writeln(‘camii vecokii ‘,n.name,’  ‘,max); 
readln; 
end.
рост выбирает правильно, а фамилию всегда выводит последнюю которая вводилась а не самого высокого студента как надо подскажите как устранить эту ошибку
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2010, 12:27
Ответы с готовыми решениями:

Необходимо завести в файл фамилии, имя студентов вашей группы
Необходимо завести в файл фамилии, имя студентов вашей группы (23 каких-либо имени и фамилии)....

Составьте программу осуществляющую вывод фамилии всех студентов группы у которых одинаковый рост и вес.
Составьте программу осуществляющую вывод фамилии всех студентов группы у которых одинаковый рост и...

Необходимо, чтобы в ComboBox можно было выбрать номер группы, после чего в DataGridView должны появится фамилии и имена студентов выбранной группы
Есть база данных (Access) с множеством таблиц. Для работы с ComboBox и DataGridView я использую...

Необходимо создать выходной файл, который содержит информацию о среднем балле группы
нужна ваша помощь 1) Написать программу, которая содержит 1.1 Главную функцию. 1.2 Класс для...

__________________
1
Модератор
63342 / 47051 / 32430
Регистрация: 18.05.2008
Сообщений: 114,047
11.06.2010, 13:02 2
Когда читаешь файл и ищешь наибольший рост, то запоминай не только рост, но и фамилию.

Добавлено через 2 минуты
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var f1:file of nn; 
n:nn; 
max,i:integer;
fam:string;
..........................
max:=0; 
for i=1 to 5 do 
 begin 
  read(f1,n); 
  If max<n.rost then 
     begin
       max:=n.rost; 
       fam:=n.name;
     end;
writeln(n.name,’  ‘,n.rost); 
end; 
writeln(‘camii vecokii ‘,fam,’  ‘,max);
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.06.2010, 13:02

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

Ввести с клавиатуры фамилии, имена студентов группы в любом порядке и отсортировать их
Ввести с клавиатуры фамилии, имена студентов группы в любом порядке. Записать их в таблицу,...

Ввести в файл фамилии студентов
Доброго времени суток! Помогите пожалуйста написать программу, весь форум облазил, а как решить так...

Найти средний рост студентов группы и подсчитать сколько человек имеют рост выше среднего.
Найти средний рост студентов группы и подсчитать сколько человек имеют рост выше среднего.

Сформировать файл, содержащий фамилии нескольких студентов вашей группы
Люди! Помогите написать след. Программу: сформировать файл, содержащий фамилии нескольких студентов...


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

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

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