Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

Помогите пожалуйста по паскалю. Буду очень благодарен. С утра уже сдавать((
Написать логическую функцию раньше(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 в 14:54.
rhenjq1112 вне форума   Ответить с цитированием
Старый 28.12.2018, 20:27   #2
digitalis
Профессионал
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Адрес: Минск
Сообщений: 1,300
Репутация: 485
По умолчанию

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


23:30.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru