Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Vextor
3 / 3 / 2
Регистрация: 17.02.2010
Сообщений: 9
1

Работа с файлом /// Фестиваль с 20 июля по 10 августа за последние 5 лет

17.02.2010, 20:30. Просмотров 396. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить такую задачу:

Создать файл FESTIF.TXT на основании данных с 20 июля по 10 августа по г.Москве за последние 5 лет по сpеднедневной температуре и количеству осадков по каждому дню этого пеpиода.
Выбpать 7 дней подpяд наиболее тёплых по данным за 5 лет пpоведения фестиваля, и 7 дней с точки зрения min количества осадков.
Откоppектиpовать файл festif.txt, в исходном файле пpопущены записи по отдельным годам. Вставить пpопущенные записи, а также испpавить ошибочные записи.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.02.2010, 20:30
Ответы с готовыми решениями:

Известно, что в Москве самыми теплыми являются дни с 15 июля по 15 августа. Для проведения фестиваля были выбраны 7 следующих подряд дней, наи
Нужна помощь. Есть задача в Си нудна в Паскале. Вот задача и код. Задача:...

Определить самый теплый день июля, если известны ежедневные температуры июля месяца
определить самый теплый день июля,если известны ежедневные температуры июля...

указать фамилии авторов, изданных за последние 5 лет
Известны сведения о книгах, содержащие фамилию автора, название и год издания:...

Определите среднюю температуру декабря в Москве за последние 10 лет
нужно определить среднюю температуру декабря в Москве за последние 10 лет. ...

Массив записей: Задан набор сведений об экзаменах, сданных студентами за последние несколько лет
необходимо составить программу на паскале, осуществляющую заполнение массива...

1
Vextor
3 / 3 / 2
Регистрация: 17.02.2010
Сообщений: 9
19.02.2010, 00:51  [ТС] 2
Помогите пожалуйста хотя бы с частью задачи

Добавлено через 4 часа 2 минуты
Вот я кое-что написал...

C++
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
program pr14;
uses crt;
const  WG=40;
type tmasb=array[1..WG] of byte;
tmasi=array[1..WG] of integer;
 
type data=record;
god:integer;
day:tmasb;
t:tmasi;
os:tmasb;
 end;
 
 
var  ff:file of data; kol_d,kl:byte; zap:data; god:integer; name_file:string;
  
  
procedure pr_create_f(ff:file of data; god:integer; kol_d:byte; zap:data);
var  i:byte;
begin
rewrite(ff);
writeln('Введи кол-во дней');
readln(kol_d);   writeln('Введи номер 1 года');
readln(zap.god);
while zap.god<>13 do
with zap do begin
for i:=1 to kol_d do begin
writeln('Введи температуру ',i,' дня');
read(t[i]);
writeln('Введи кол-во осадков ',i,' дня');
read(os[i]); end;
write(ff,zap);
writeln('Введи номер след. года (если введены все данные-введите 13)');
readln(god);
end;
close(ff); end;
 
 
procedure pr_out_f(ff:file of data; god:integer; kol_d:byte; zap:data);
var i:byte;
begin
reset(ff);
writeln('Год':6);
while not eof(ff) do
with zap do begin
read(ff,zap);
write(god:6,',');
for i:=1 to kol_d do
write(i,'День - T = ',t[i],' осадки - ',os[i]);
end; close(ff); end;
 
 
 
begin
writeln('Введи имя файла');
readln(name_file);
assign(ff,name_file);
 
while true do begin
writeln('1-создание файла'); writeln('2-распечатка файла');
writeln('3-работа с файлом'); writeln('4-корректировка');
writeln('5-завершить работу'); readln(kl);
case kl of
1:pr_create_f(ff,god,kol_d,zap);
2:pr_out_f(ff,god,kol_d,zap);
5:exit;
end; end; end.
А надо ещё это:

Выбpать 7 дней подpяд наиболее тёплых по данным за 5 лет пpоведения фестиваля, и 7 дней с точки зрения min количества осадков.
Откоppектиpовать файл festif.txt, в исходном файле пpопущены записи по отдельным годам. Вставить пpопущенные записи, а также испpавить ошибочные записи.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.02.2010, 00:51

Вывести сведения о книгах, изданных издательством “Мир”, которые поступили в библиотеку за последние пять лет
4. Даны сведения о книгах, поступивших в библиотеку: ФИО автора, название...

GUI Работа с текстовым файлом, лог файлом не мешая системе
Хочу написать прогу которая будет по таймеру искать в тхт - лог файле сообщение...

Вывести сведения о книгах, изданных издательством "Мир", которые поступили в библиотеку за последние пять лет
Даны сведения о книгах, поступивших в библиотеку: ФИО автора, название книги,...


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

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

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