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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.03.2011, 21:13   #1
Чуччи
Пользователь
 
Регистрация: 11.11.2010
Сообщений: 17
По умолчанию Записи/Файлы

Сформировать файл, имеющий следующую структуру
type данные=record имя, полм,ж);рост:140..200 end;
и определить:

средний рост женщин;
имя самого высокого мужчины;
есть ли в группе хотя бы два человека одного роста.( c процедурами)
+ процедура добавить запись
у меня есть отдельно процедуры
Код:
procedure SredRost(a:mass;n:integer);
                       var sred:real;
                           i,j:integer;
                         begin
                         sred:=0;
                         j:=0;
                           for i:=1 to n do
                            if a[i].pol='w' then
                             begin
                              inc(j);
                              sred:=sred+a[i].rost;
                             end;
                                 if j=0 then writeln('Zenshin net!')
                                 else
                                     begin
                                      sred:=sred/j;
                                      writeln('Srednij rost zenshin=',sred:0:2);
                                     end;
                                     readln;
                          end;
Код:
procedure ImyaVys(a:mass;n:integer);
                            var i,imx,mx:integer;
                              begin
                                 imx:=0;mx:=140;
                                    for i:=1 to n do
                                      if (a[i].pol='m')and(a[i].rost>mx) then
                                        begin
                                         mx:=a[i].rost;
                                         imx:=i;
                                        end;
                                      if imx=0 then writeln('Muzchin net!')
                                       else writeln('Imya samogo vysokogo muzchiny ',a[imx].name);
                                            readln;
                               end;
                   procedure OdnRost(a:mass;n:integer);
                             var i,j:integer;
                             f:boolean;
                               begin
                                 f:=false;
                                   for i:=1 to n-1 do
                                   for j:=i+1 to n do
                                     if a[i].rost=a[j].rost then f:=true;
                                      if f then writeln('Est 2 cheloveka odnogo rosta')
                                       else writeln('Net 2h chelovek odnogo rosta');
                                       readln;
                               end;
Чуччи вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Записи файлы Чуччи Паскаль, Turbo Pascal, PascalABC.NET 1 04.03.2011 14:09
Записи и файлы Platinum1 Фриланс 7 30.11.2010 10:50
Записи и файлы Platinum1 Помощь студентам 6 29.11.2010 17:07
Файлы и записи Aman Паскаль, Turbo Pascal, PascalABC.NET 2 17.09.2010 21:16
записи и файлы Олюшка Помощь студентам 2 21.02.2010 15:46