Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2018, 01:40   #1
rhenjq1112
 
Регистрация: 28.12.2018
Сообщений: 3
По умолчанию Операции над строками и записями

Помогите пожалуйста по паскалю. Буду очень благодарен. С утра уже сдавать((
Написать логическую функцию раньше(d1,d2), проверяющую, предшествует
ли дата d1 дате d2.
Код:
Type data=record
 ch:1..31;
 m:1..12;
 year:integer;
 end;
var t1,t2 : data;
2. Написать функцию интервал(d, d1,d2), вычисляющую время d, прошедшее
от времени d1 до d2: d = d2 - d1 (считаем, что d2>d1). Результат в днях.
Type data=record
 ch:1..31;
 m:1..12;
 year:integer;
 end;
var d1, d2 : data; d : integer;
3. Написать функцию, вычисляющую средний балл по физике.
Const N=25;
74
Type anketa=record
 fio; string;
 ocenki: record m,f,p:1..5; end;
 end;
massiv=array [1..N] of anketa;
var gr:massiv;
4. Написать процедуру Одного_роста (S), которая печатает фамилии двух (любых)
девушек из списка S одного роста.
Const N=25;
Type anketa=record
 fio, pol: packed array [1..N] of char;
 rost:real;
 end;
spisok=array [1..N] of anketa;
var S:spisok;
Пожалуйста, оформляйте Ваш код согласно правилам.

Последний раз редактировалось Вадим Мошев; 28.12.2018 в 13:54.
rhenjq1112 вне форума Ответить с цитированием
Старый 28.12.2018, 19:27   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,534
По умолчанию

У меня дежа-вю -- или я в самом деле это уже видел ? Вроде как во Фрилансе ?
http://programmersforum.ru/showthread.php?t=325640
-------------------------------------------
4. При создании новых тем запрещено:
................................... .......
4.2. создавать одинаковые темы;
------------------------------------------
И кто у нас тут "дежурный по стране", чья обязанность - спасать ленивых студентов ? "Лето красное пропела..."
Ну ничего, скоро придет Неверов и все напишет.

Последний раз редактировалось digitalis; 28.12.2018 в 19:32.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
операции над строками lialia Паскаль, Turbo Pascal, PascalABC.NET 9 09.12.2012 16:29
Операции над строками Trollface Microsoft Office Excel 1 01.05.2012 20:36
Операции над строками Маринка777 Общие вопросы .NET 3 29.11.2009 22:28
Операции над записями и типизированными файлами svt Помощь студентам 1 09.11.2009 00:19