VPF::Borland C++ Builder and Delphi - Форум программистов

МИГ

Дата 27.10.2005, 13:08 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

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

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

MFSham

Дата 1.11.2005, 21:12 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 28.8.2005
Где: Беларусь, Гродно

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

Цитата

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

Хм, и каким образом мы в одномерном массиве сможем хранить одновременно и название животного, и его рейтинг? Не, конечно можно изващьнутся и все это сделать, но по моему это больше похоже на мазохизм smile

ИМХО здесь нужен двумерный массив.

Цитата

И программа, не консольное приложение.

Короче я тут кое-чего накатал на Delphi. Данные брал из внешнего файла, в котором каждая
строка обозначает один ответ, т.к. откуда брать данные не указано.

Код


procedure Sort(StrGrd : TStringGrid; ColNumber : integer);
var
    i, j : integer;
    max : integer;
    str1: string[20];
    str2,str3:string[5];
begin
    for i:=0 to StrGrd.RowCount-1 do
       begin
           max:=i;
           for j:=StrGrd.RowCount-1 downto i do
              if StrToInt(StrGrd.Cells[ColNumber,j])>StrToInt(StrGrd.Cells[ColNumber,max])
              then  max:=j;
          if max<>i then
          begin
            str1:=StrGrd.Rows[i][0];
            str2:=StrGrd.Rows[i][1];
            str3:=StrGrd.Rows[i][2];
            StrGrd.Rows[i]:=StrGrd.Rows[max];
            Strgrd.Rows[max][0]:=str1;
            Strgrd.Rows[max][1]:=str2;
            Strgrd.Rows[max][2]:=str3;
          end;
       end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
    i : byte;
    str : string;
    f : textfile ;
    flag : boolean;
    n : integer;
begin
    flag:=false;
    AssignFile(f,'data.txt');
    StringGrid1.ColCount:=3;
    StringGrid1.RowCount:=1;
    Reset(f);
       while not Eof(f) do
          begin
             readln(f,str);
             if str<>'' then
               if StringGrid1.Cells[0,0]='' then
                 begin
                    StringGrid1.Cells[0,0]:=LowerCase(str);
                    StringGrid1.Cells[1,0]:='1';
                    n:=1;
                 end
             else
                begin
                  flag:=false;
                  for i:=0 to StringGrid1.RowCount-1 do
                    if LowerCase(str)=LowerCase(StringGrid1.Cells[0,i])
                      then
                        begin
                          flag:=true;
                          StringGrid1.Cells[1,i]:=IntToStr(StrToInt(StringGrid1.Cells[1,i])+1);
                          inc(n);
                          break;
                        end;

                    if flag=false then
                     begin
                        StringGrid1.RowCount:=StringGrid1.RowCount+1;
                        StringGrid1.Cells[0,StringGrid1.RowCount-1]:=str;
                        StringGrid1.Cells[1,StringGrid1.RowCount-1]:='1';
                        inc(n);
                     end;
                end;
          end;
    CloseFile(f);
    for i:=0 to StringGrid1.RowCount-1 do
        StringGrid1.Cells[2,i]:=IntToStr(Round(StrToInt(StringGrid1.Cells[1,i])*100/n))+' %';

    Sort(StringGrid1,1);
end;

--------------------

Без ветра трава неподвижна. Без программ компьютеры бесполезны.

Guest

Дата 3.11.2005, 13:51 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну, хоть, что-то!!! Спасябки!!! Только вот где в этой программе можно написать например, Введите название животного и прочее smile

MFSham

Дата 4.11.2005, 01:06 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 28.8.2005
Где: Беларусь, Гродно

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

Можно кинуть на форму, например, Memo, в котором отображать содержимое внешнего файла.
Рядом разместить всякие кнопочки : "Добавить", "Удалить", ... . И по нажатию их соответственно производить определенные операции, выводя что-то типа ShowMessege'а с
предолжением сделать ту или иную операцию.
P.S. Может зарегишься?

--------------------

Без ветра трава неподвижна. Без программ компьютеры бесполезны.

MIG

Дата 6.11.2005, 13:57 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 6.11.2005

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

Цитата(MFSham @ 4.11.2005, 01:06)

Можно кинуть на форму, например, Memo, в котором отображать содержимое внешнего файла.

Ну а сколько вот етих мемо и нада же написать чёто, чтобы они выводили какую то информацию?

П.С. Уже зарегился"

MFSham

Дата 7.11.2005, 14:45 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 28.8.2005
Где: Беларусь, Гродно

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

Кинь на форму по одому ListBox'у и Edit'у. Кинь три кнопки. Я их обозвал в поле Name как btnAdd(добавить), btnDelete(удалить), btnSave(сохранить). Теперь вставь этот код соответственно в обработчики события :

Код


procedure TForm1.btnAddClick(Sender: TObject);
begin
    if Edit1.Text<>'' then
       ListBox1.Items.Add(Edit1.Text)
    else
       MessageBox(Form1.Handle,'Введите данные!','Внимание',MB_OK);
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
    if ListBox1.ItemIndex<>-1 then
       ListBox1.Items.Delete(ListBox1.ItemIndex);
end;

procedure TForm1.btnSaveClick(Sender: TObject);
begin
    ListBox1.Items.SaveToFile('data.txt');
end;

И еще добавь следущее :

Код


procedure TForm1.Button1Click(Sender: TObject);
...
for i:=0 to StringGrid1.RowCount-1 do
    StringGrid1.Cells[0,i]:='';
    ListBox1.Items.LoadFromFile('data.txt');
...

Вот вроде и все. Объясняю смысл : в Edit мы вводим поле которое надо ввести для опроса. Если выделить ненужный элемент, то его можно удалить. А если хочешь получить данные после изменения инфы, то вначале сохрани, а только потом выполняй Button1Click. Вот вроде и все. Если есть вопросы - задавай.

--------------------

Без ветра трава неподвижна. Без программ компьютеры бесполезны.

MIG

Дата 10.11.2005, 17:01 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 31
Регистрация: 6.11.2005

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

Ну, ладно. Спасибо!!! Попробую, эту писанинку щас. Спасибо тебе еще разок!!! Просто, если бы у меня было бы больше времени, я бы и сам сделал, но преподы так насели, что по начертательной геометрии надо 3 чертежа делать, потом конспект писать; по английскому слова 96 штук учить, ответить на вопросы, составить рассказ про высшее образование; по информатике назадавали кучу-мукучу разную по Экселю... smile

Извени... А-а...ты не знаешь как эту шнягу на С++ сделать?

MFSham

Дата 10.11.2005, 23:58 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 220
Регистрация: 28.8.2005
Где: Беларусь, Гродно

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

Нет, не знаю. Но про то, что преподы насели полностью согласен. smile

--------------------

Без ветра трава неподвижна. Без программ компьютеры бесполезны.

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