Задачи

[LancerRiker]

здравствуйте. помогите пожалуйста с задачами . не могу решить
1.type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,
dec);
day = 1..31;
var k:1..366; d:1..31;
Определить k – порядковый номер того дня високосного года, который имеет дату d, m.
2. type stroka = packed array [1..80] of char;
var s:stroka;
Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно заменив все вхождения ph на f, а все вхождения ed на ing.
3. Дана вещественная матрица размером 7×7, все элементы которой различны. Найти скалярное произведение строки, в которой находится наибольший элемент матрицы, на столбец с наименьшим элементом.
4. Создать массив записей, содержащих сведения о рейсах из аэропорта Уфы. Каждая запись содержит сведения о рейсах:
номер рейса, дата вылета, аэропорт назначения;
марка самолета, количество мест;
аэропорт промежуточной посадки, если таковой имеется;
количество проданных билетов на рейс, за сутки до вылета и за 3 часа до отлета.
Количество записей произвольное.
Вывести на экран сведения о загруженности рейса N за сутки до вылета и рейса M за 3 часа до вылета. Указать количество рейсов, имеющих промежуточный пункт назначения, а также количество рейсов, которыми можно добраться до пункта K.
5. type food = ( broad, butter, milk, meat, fish, salt, cheese,
saucers, sugar, tea, cafe);
assort = set of food;
shop = array [1..20] of assort;
Описать процедуру Nal(sh, A), которая по информации из массива Sh типа shop (Sh(i) – это множество продуктов, имеющихся в i-м магазине) присваивает параметру A типа assort множество продуктов, которых нет ни в одном магазине.

[min@y™]

1.type mes = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, nov,
dec);
day = 1..31;
var k:1..366; d:1..31;

Вот такой массив заведи, поможет:

const
  firstday = array[mes] of day = (1, 1 + 31, 1 + 31 + 29, 1 + 31 + 29 + 31, {...}, 366 - 31 + 1);

[LancerRiker]

Сообщение от min@y™

Вот такой массив заведи, поможет:

const
  firstday = array[mes] of day = (1, 1 + 31, 1 + 31 + 29, 1 + 31 + 29 + 31, {...}, 366 - 31 + 1);

а можешь полностью? помогите пожалуйста

[LancerRiker]

Cпасибо,1ую и 3ию сделал. Осталось 2,4,5 Помогите пожалуйста

[min@y™]

Cпасибо,1ую и 3ию сделал. Осталось 2,4,5 Помогите пожалуйста

мне прям неудобно, мож другие подтянутся?

[Stilet]

Известно, что в начале строки s находится не более 40 латинских букв, за которыми следуют пробелы. Напечатать эту строку, предварительно заменив все вхождения ph на f, а все вхождения ed на ing.

i:=1; while i<=Length(s) do begin
 if copy(s,i,2)='ph' then begin write('f');inc(i);end else
 if copy(s,i,2)='ed' then begin write('ing');inc(i);end else
 write(s[i]);
 inc(i);
end;

Идея ясна?

[LancerRiker]

Сообщение от Stilet

i:=1; while i<=Length(s) do begin
 if copy(s,i,2)='ph' then begin write('f');inc(i);end else
 if copy(s,i,2)='ed' then begin write('ing');inc(i);end else
 write(s[i]);
 inc(i);
end;

Идея ясна?

Если честно нет

[Stilet]

Если честно нет

Смысл в том чтоб определять есть ли в следующей позиции строки определенный набор символов и если есть выводить другое, иначе выводить очередной символ строки.

[LancerRiker]

Сообщение от Stilet

Смысл в том чтоб определять есть ли в следующей позиции строки определенный набор символов и если есть выводить другое, иначе выводить очередной символ строки.

там получается добавить ввод надо ?

[Stilet]

Ну да )
можно и добавить ввод )