IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> записи, посмотрите и исправьте ошибки плиз
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 13
Пол: Мужской
Реальное имя: коля

Репутация: -  0  +


В програме предвидить создание таких подпрограм процедур
1) формировка 5-7 елементов массива типа запись с полями указаными в таблице, с последовательным их записью в типизированый файл
2)вывод на екран елементы масива записи в соответствии с задание
3)задание:Ведомости про отказ линий связи: направление канала связи, дата отказов(по шаблону ДД:ММ:РР), время отказа : начало - конец (по шаблону Ч:МИН:С)ж
распечатать даные про всеотказы, длительность которых не меньше 10 минут
заранее благодарен за вашу помощь


unit Unit1;

interface
uses SysUtils;
type line=record
napravlenie:string[60];
data:integer;
nachalo:string[8];
konec:string[8];
end;
var f_line:file of line;
b:line;
U1:array[1..10] of line; kol:integer;
Priznak:char;
Procedure sozdat;
Procedure poisk;

implementation

procedure sozdat;
var Priznak:char;
begin
kol:=0;
Repeat
kol:=kol+1;
writeln('input napravlenie'); readln(U1[kol].napravlenie);
with U1[kol] do
begin
writeln('input data'); readln(data);
writeln('input nachalo'); readln(nachalo);
writeln('input konec'); readln(konec);

writeln('Prodolgut? (Y/N)');
readln(Priznak);
end;
Until Priznak='N'
end;


procedure poisk;
var i:integer;
al:byte;
s1,s2:string[2];
s1_i,s2_i:byte;
err:byte;
nachalo:string[8];
konec:string[8];
begin

s1:=nachalo[4]+nachalo[5];
s2:=konec[4]+konec[5];
val(s1,s1_i,err);
val(s2,s2_i,err);
al:=s2_i-s1_i;
for i:=1 to kol do
begin
if al>=10 then

writeln(U1[i].napravlenie,' ',U1[i].data,' ',U1[i].nachalo,' ',U1[i]. konec);
end;end;



end.









program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
Unit1;

var f_line:file of line;
fio:string;


begin
{ TODO -oUser -cConsole Main : Insert code here }
assign (f_line,'Z:\files\gr.dat');
rewrite(f_line);

sozdat;
closefile(f_line);

reset(f_line);
poisk;
closefile(f_line);
readln;
readln;
end.


Сообщение отредактировано: B&M -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


код в тэги плз


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 3:27
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name