Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > help!!!

Автор: som 16.2.2005, 22:20

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

Автор: lovermann 16.2.2005, 22:35

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

Автор: Wowa 16.2.2005, 22:36

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

Автор: drinkOut 16.2.2005, 22:46

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

Автор: zikas 16.2.2005, 23:48

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

Автор: mvdr 17.2.2005, 00:56

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

можно вводить их в 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

Ну взломщик, держи. Раз ввести любым способом, то ввод чисел не описан. Единственное, что числа храняться в массиве х, а вот вывод в 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 возвращает остаток целочисленного деления.

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

Автор: Alex 17.2.2005, 08:20

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

Автор: zikas 17.2.2005, 13:13

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

Автор: Poseidon 19.2.2005, 01:51

Цитата

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

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