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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.04.2012, 15:42   #1
Camelot_2012
Пользователь
 
Регистрация: 19.12.2011
Сообщений: 90
По умолчанию Записи

Приняв способ изображения рационального числа в виде записи с двумя полями: числитель, знаменатель : integer, написать программу, позволяющую, во-первых, определить, есть ли среди 3 рациональных чисел равные и, во-вторых, вычислить наибольшее из данных рациональных чисел .

Код:
Program zapisi;
const n=3;
type
      Q=record
      chislitel:integer;
      znamenatel:integer;
end;
var
 a:array[1..n] of Q;
 i,j,k,max:integer;
begin
 
end;
begin
if chislitel/znamenatel>max then max:=chislitel/znamenatel;
writeln(max);
end.
Написал не все, но кажется вообще не правильно.
Camelot_2012 вне форума Ответить с цитированием
Старый 14.04.2012, 08:06   #2
TinMan
Форумчанин
 
Аватар для TinMan
 
Регистрация: 05.09.2011
Сообщений: 869
По умолчанию

Камелот, посмотри вот тут:
http://programmersforum.ru/showthread.php?t=175267
Предпочитаю на "ты".
TinMan вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
записи hartman Помощь студентам 0 09.12.2011 16:23
Оцените математической формулой, насколько больше цифр в двоичной записи большого числа, чем в его десятичной записи. Анюта.Хом Помощь студентам 1 02.12.2011 23:13
Записи sosbmk Помощь студентам 0 31.05.2011 18:35
Записи ReM Паскаль, Turbo Pascal, PascalABC.NET 2 15.10.2008 08:50