0 / 0 / 0
Регистрация: 30.03.2023
Сообщений: 5
1

Определить самую раннюю весеннюю дату

30.03.2023, 14:16. Показов 510. Ответов 1

Author24 — интернет-сервис помощи студентам
Просьба срочно подсказать, сам уже не могу понять в чём ошибка, хотя уверен, что это что-то элементарное.
Дан текстовый файл на вход с датами типа dd/mm/yyyy, все строки в файле непустые. Нужно определить самую раннюю весеннюю дату и записать в другой текстовый файл.
Вот, что у меня получилось сейчас, это не работает (пожалуйста помогите!!!!):
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
38
39
40
41
42
43
44
45
46
47
var data: string;
    f: text;
procedure search(var data:string);
var ear_spr, s, s_day, s_month:string;
    k, day, day1, month,month1, r:integer;
    err:integer;
begin
r:=0;
day:=31;
day1:=0;
month1:=0;
month:=05;
data:=data + ' ';
k:=pos(' ', data);
while not eof(f) do begin
  s:=copy(data,1,k-1);
  s_day:=copy(s,1,k-7);
  s_month:=copy(s,4,k-5);
  val(s_day,day1,err);
  if err=0 then val(s_month,month1,err);
  if err=0 then begin
  if s_month in ['03','04','05'] then begin
    if day1<day then
     day:=day1
    else if day1=day then begin
       if month1<month then
         month:=month;
         ear_spr:=s;
       end
       else delete(s,1,k);
       r:=r+1;
  end
  else delete(s,1,k);
  if r=0 then writeln('')
  else writeln('Самая ранняя весенняя дата:', ear_spr);
end;
end;
end;
begin
assign(f, 'C:\Users\stepa\idz2.1_input.txt');
reset(f);
search(data);
close(f);
assign(f, 'C:\Users\stepa\idz2.1_output.txt');
rewrite(f);
close(f);
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.03.2023, 14:16
Ответы с готовыми решениями:

Задача по файлам и строкам
Даны 2 текстовых файла. В третий файл записать только те строки из 1-го файла, которые имеются во...

По текстовым файлам и строкам
Задана последовательность идентификаторов, разделенных сериями пробелов. Последовательность задана...

Задача по Файлам и Строкам PHP
Помогите, пожалуйста! Дан текст программы на каком-либо алгоритмическом языке и словарь...

Задача по Файлам и Строкам PHP
Составьте список серверов ($_SERVER) и список страниц ($_SERVER), которые мы посетили.

1
5084 / 2655 / 2350
Регистрация: 10.12.2014
Сообщений: 10,045
30.03.2023, 17:44 2
Хоть и сказано, что все строки непустые, но не сказано, что весенняя дата точно или нет присутствует.
И, в том случае, если не присутствует, то что же выводить?

А самое главное как считать более раннюю весеннюю дату?
Ведь, скажем, 31/05/2000 гораздо раньше 01/03/2023

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  inputname='input.txt';
  outputname='outut.txt';
function convert(s:strinfg):string; {dd/mm/yyyy->yyyymmdd}
var n:string;
begin
  n:=s[7]+s[8]+s[9]+s[10]+s[4]+s[5]+s[1]+s[2];
  convert:=n;
end;
function spring(s:string):boolean; {dd/mm/yyyy->?(mm='03'or'04'or'05')}
begin
  spring:=(s[4]='0')and((s[5]='3')or(s[5]='4')or(s[5]='5'));
end;
var a,b,c,d:string;t:text;s:boolean;
begin
  assign(t,inputname);reset(t);
  readln(t,a);b:=convert(a);s:=spring(a);
  while not eof(t) do begin readln(t,c);d:=convert(c);
  if spring(c)then if not s then begin a:=c;b:=c end else
  if c<b then begin a:=c;b:=c end end;
  close(t);
  if s then begin assign(t,outputname);rewrite(t);write(t,a);close(t);end;
end.
1
30.03.2023, 17:44
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.03.2023, 17:44
Помогаю со студенческими работами здесь

Задача по файлам на Pascal
Допустим дан файл с 35 рандомными числами.Нужно вывести только те строчки которые начинаются на 8

Программа в PASCAL, по текстовым файлам.
Дан файл «Книга рецептов»(на русском языке), (она содержит название рецепта, ингредиенты, способ...

Требуются справочник по строкам(pascal)
Если у кого есть справочники,методички,книги,где нет замудренных понятий,терминов,т.е. чтобы было...

переделать программу Pascal -> C++ (Восстановить исходную матрицу и напечатать ее по строкам)
с паскаля на с++...буду очень признателен. вот текст задачи. Квадратная матрица, симметричная...

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

пути к файлам стилей и графическим файлам
Здравствуйте! Натягиваю html-шаблон на wordpress. Проблема возникла с подключением доп.стилей и...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru