VPF::help!!! - Форум программистов

som

Дата 16.2.2005, 22:20 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

помогите написать прогу на задачу: "ввести 100 любые целые числа через массив и вывести на Memo по 6 цифр на каждую строку." заранее спасибо!!!!!

lovermann

Дата 16.2.2005, 22:35 (ссылка)

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

Загрузка ...

Опытный

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

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

а эти 100 чисел -- их что, руками надо вводить? Может, сгенерировать? smile

Wowa

Дата 16.2.2005, 22:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Админ
Сообщений: 15017
Регистрация: 14.9.2000
Где: Винград

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

Модератор: Название темы должно отражать ее суть!

drinkOut

Дата 16.2.2005, 22:46 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 123
Регистрация: 10.2.2005
Где: мой стакан?

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

Конечно поможем, только скажи, что конкретно здесь у тебя не получается.

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

Жизнь жестока - когда у меня на руках все карты, она начинает играть в шахматы...www.certifications.ru - проверь себя

zikas

Дата 16.2.2005, 23:48 (ссылка)

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

Загрузка ...

Новичок

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

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

короче задача: "ввести 100 любых целых числа любым способом чтобы потом вывести на Memo по 6 цифр в одной строке. (Ну в итоге это получется где то 16 строк по 6 цифр и 1 по 4 цифр). Ну в общем такая у меня проблема. Я новичек в среде Делфи и операторы толком не знаю. Решить задачку надо до 22 февраля. Лектор блин гасит. Пишите. Заранее спс.

Это сообщение отредактировал(а) Alex - 17.2.2005, 08:22

mvdr

Дата 17.2.2005, 00:56 (ссылка)

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

Загрузка ...

физик

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

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

не совсем понятно как и где надо вводить числа...

можно вводить их в Edit'e через пробел, а поом при нажатии на кнопку копировать от пробела до пробела в строку и попутно считать кол-во чисел, как только количество станет равным 6, записывать строку вМемо, и очищать эту строку.

Примерно так:

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,k:integer;
    stroka:string;
begin
 for i:=1 to length(edit1.Text) do
  begin
   if k=6 then
   begin
    Memo1.Lines.add(stroka);
    stroka:='';
    k:=0;
   end;
   if copy(edit1.Text,i,1)=' ' then k:=k+1;
   stroka:=stroka+copy(edit1.Text,i,1);
  end;
end;

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

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

Poseidon

Дата 17.2.2005, 04:27 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Ну взломщик, держи. Раз ввести любым способом, то ввод чисел не описан. Единственное, что числа храняться в массиве х, а вот вывод в Memo держи.

Код

var
x: array[1..100]of Integer;  // вводимые числа
i: integer; // счетчик
begin
for i:= 1 to 100 do
  if (i mod 6) = 0     // если i делится на 6 без оcтатка
  then                    // то 
    begin
    Memo.Lines.Text:= Memo.Lines.Text + IntToStr(x[i])+' ';  // записываем шестой символ в строчку
    Memo.Lines.Add('');                       // и переходим на строку ниже
    end
  else Memo.Lines.Text:= Memo.Lines.Text + IntToStr(x[i])+' ';//иначе записываем символ в строчку
end;

Если все же нужна помощь в заполнении массива, то сделать это можно так (самый простой способ):

Код

for i:= 1 to 100 do x[i]:= i;

Желаю успешной сдачи

PS. оператор mod возвращает остаток целочисленного деления.

Да, и взламывать чужие компь НЕХОРОШО

Это сообщение отредактировал(а) Poseidon - 17.2.2005, 04:36

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Alex

Дата 17.2.2005, 08:20 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Модератор: Не нужно создавать по два топика на один вопрос! Топики объединены.

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

zikas

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

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

Загрузка ...

Новичок

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

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

Poseidon cпасйбо братуха выручил ты меня, я твой должник. ладно бывай. хех...почаще заходи на мои темы.

Poseidon

Дата 19.2.2005, 01:51 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата

cпасйбо братуха выручил ты меня, я твой должник

Рад стараться smile

Это сообщение отредактировал(а) Poseidon - 19.2.2005, 01:56

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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