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

Вывести на экран файл и запись, которая соответствует максимальной среднегодовой температуре

05.03.2009, 20:35. Просмотров 1002. Ответов 2
Метки нет (Все метки)

Создать файл TEMP, состоящий из записей. Каждая запись: порядковый номер, год, среднегодовая температура.

1 1974 16,4
2 1975 15,8
3 1976 14,5
4 1977 17,2
5 1978 16,1
6 1979 16,2
7 1980 14,8

Переписать в файл с именем TEMP1 записи файла TEMP, у которых среднегодовая температура выше 16. Вывести на экран файл TEMP1 и запись, которая соответствует максимальной среднегодовой температуре.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2009, 20:35
Ответы с готовыми решениями:

Пожалуйста напишите программу, которая добавляет запись в типизированый файл тип - запись
Которая добавляет запись в типизированый файл тип - запись добавляет к той...

Массив записей: вычислить и вывести на экран значение максимальной стоимости квартиры
Составить программу, которая создает файл с записями. Запись содержит...

Найти в строке s и вывести в файл ‘output.txt’ слово максимальной длины
Помогите пожалуйста. Если не сложно, можно описать вкратце как вы действовали...

Вывести на экран информацию о месяце с максимальной среднемесячной температурой
Во входном файле meteo.dat 365 строк, которые содержат информацию о...

Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод из массива на экран
1.Ввод с клавиатуры и запись в файл, чтение из файла и запись в массив, вывод...

2
Vladiator
1569 / 639 / 79
Регистрация: 24.02.2009
Сообщений: 9,269
05.03.2009, 20:40 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program xxx;
type
 TThisFile = record
  Number:integer;
  Year:integer;
  Temp:real;
 end;
 
var
  f1,f2:file of TThisFile;
  tf:TThisFile;
begin
 assign(f1,'TEMP');
 assign(f2,'TEMP1');
 reset(f1);
 rewrite(f2);
 while not (EOF(f1)) do
 begin
  read(f,tf);
  if tf.temp>16 then write(f2,tf);
 end;
 close(f1);
 close(f2);
end.
0
dimulbkin
1 / 1 / 0
Регистрация: 21.12.2008
Сообщений: 15
05.03.2009, 20:58  [ТС] #3
спасибо огромное!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2009, 20:58

В запись входят следующие поля:номер записи, город, число жителей.Считать и вывести на экран запись №4.
создать файл из пяти записей. В запись входят следующие поля:номер записи,...

Найти и вывести на экран слово максимальной длины
1)С клавиатуры вводится строка.Найти и вывести на экран слово максимальной...

Строки. Найти и вывести на экран слово максимальной длины
С клавиатуры вводится строка. Найти и вывечти на экран слово максимальной...


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

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

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