VPF::Одна и та же Программа на С++ Builder и Delphi

ИЛЬЯ МИГ

Дата 22.10.2005, 16:16 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Помогите, пожалуйста, написать эту программу на двух языках С++ Builder и Borland Delphi!!! Я незнаю, к кому больше обратиться. Пробовал сам писать эту программу, но ещё не всё получается...

Условие задачи: Японская радиокомпания провела опрос N радиослушателей по вопросу: "Какое животное вы связываете с Японией и японцами?" Составить программу получения наиболее часто встречающихся ответов и их долей (в процентах)".

В Программе должен использоваться одномерный массив.

Самурай

Дата 22.10.2005, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 64
Регистрация: 20.10.2005
Где: Воронежская облас ть > Семилуки

Репутация: нет
Всего: 1

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 TElem = string;
 TRes = array of TElem;
 TAnsElem = record
  Name: TElem;
  Count: integer;
 end;
 TAns = array of TAnsElem;

var
 Res: TRes;

procedure Delete(id: integer);
var
 i:integer;
begin
 for i:=id to High(Res)-1 do
  Res[i]:=Res[i+1];
 SetLEngth(Res, Length(Res)-1)
end;

procedure SortAns(var a: TAns);
var
 i, j: integer;
 buf: TAnsElem;
begin
 for j:=Low(a) to High(a)-1 do
  for i:=Low(a) to High(a)-1 do
   if a[i].Count < a[i+1].Count
    then
     begin
      buf:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=buf
     end
end;

var
 Ans: TAns;
 buf: TElem;
 i: integer;
 count: integer;
 c: integer;
begin
 (*<Ввод данных>*)
 (*-----*)
 (*Поиск Ответа*)
 count:=Length(Res);
 while Length(Res) <> 0 do
  begin
   c:=1;
   buf:=Res[Low(Res)];
   for i:=Low(Res)+1 to High(Res) do
    if Res[i] = Res[Low(Res)]
     then
      begin
       inc(c);
       Delete(i)
      end;
   Delete(Low(Res));
   SetLength(Ans, Length(Ans) + 1);
   with Ans[High(Ans)] do
    begin
     Name:=buf;
     Count:=c
    end
  end;
 (*Сортировка полученных результатов*)
 SortAns(Ans);
 (*Вывод суммарных результатов*)
 for c:=Low(Ans) to High(Ans) do
  writeln(Ans[c].Name + ' - ~' + IntToStr(Round((Ans[c].Count * 100)/Count)) + '%');
 write('Press ENTER...');
 readln
end.

Guest

Дата 24.10.2005, 09:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 TElem = string;
 TRes = array of TElem;
 TAnsElem = record
  Name: TElem;
  Count: integer;
 end;
 TAns = array of TAnsElem;

var
 Res: TRes;

procedure Delete(id: integer);
var
 i:integer;
begin
 for i:=id to High(Res)-1 do
  Res[i]:=Res[i+1];
 SetLEngth(Res, Length(Res)-1)
end;

procedure SortAns(var a: TAns);
var
 i, j: integer;
 buf: TAnsElem;
begin
 for j:=Low(a) to High(a)-1 do
  for i:=Low(a) to High(a)-1 do
   if a[i].Count < a[i+1].Count
    then
     begin
      buf:=a[i];
      a[i]:=a[i+1];
      a[i+1]:=buf
     end
end;

var
 Ans: TAns;
 buf: TElem;
 i: integer;
 count: integer;
 c: integer;
begin
 (*<Ввод данных>*)
 (*-----*)
 (*Поиск Ответа*)
 count:=Length(Res);
 while Length(Res) <> 0 do
  begin
   c:=1;
   buf:=Res[Low(Res)];
   for i:=Low(Res)+1 to High(Res) do
    if Res[i] = Res[Low(Res)]
     then
      begin
       inc(c);
       Delete(i)
      end;
   Delete(Low(Res));
   SetLength(Ans, Length(Ans) + 1);
   with Ans[High(Ans)] do
    begin
     Name:=buf;
     Count:=c
    end
  end;
 (*Сортировка полученных результатов*)
 SortAns(Ans);
 (*Вывод суммарных результатов*)
 for c:=Low(Ans) to High(Ans) do
  writeln(Ans[c].Name + ' - ~' + IntToStr(Round((Ans[c].Count * 100)/Count)) + '%');
 write('Press ENTER...');
 readln
end.

Спасиба, канешна, за твой старательный труд, это верно для консольного приложения, т.е. для Дос. Но, приложение не консольное. А обычное, Form-окно. И должен еще использоваться StringGread в Delphi, чтобы вывелся этот гребанный одномерный динамический массив. smile

(я щас умру).

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »