Lancellot, используй Memo с вкладки Standard как для ввода, так и для вывода. Для получения строки текста пиши Memo1.Lines.Strings (TMemo.Lines.Strings - массив строк); для получения количества строк - Memo1.Lines.Count; Для добавления новой строки в конец поля Memo1.Lines.Add('Наш_текст'); если нужно изменить строку уже существующую (хотя из твоего поста следует, что это навряд ли придётся делать) - Memo1.Lines.Strings:='Наш_текст'. Для очистки поля - Memo1.Lines.Clear; для удаления некоторой строки - Memo1.Lines.Delete(i). Для твоей задачи надо прогнать цикл наподобие: Code: Memo2.Lines.Clear; // Это чтобы не оставался предыдущий текст for i:=1 to Memo1.Lines.Count do for j:=1 to length(Memo1.Lines[i]) do begin Memo2.Lines.Add(""); Memo2.Lines[i]:=Memo2.Lines[i] + Memo1.Lines[i][j] + " "; end; Сразу говорю, код не проверял, но должен работать Все шаги от создания формы и добавления 2-х Memo и кнопки, назначения процедуры на кнопку и т.д. не расписываю, если нужно - обращайся в ICQ.
Народ помогите плиз ... С++ 1)Написать программу установки и вывода даты используя понятия класса.По введенной дате определите время года и номер декады месяца. Предусмотреть: Возможность ввода даты числами при помощи конструктора; Определение времени года и декады месяца осуществить в виде функции членов. 2)Написать программу , определяющую максимальное,минимальное и среднее значение в одновременом массиве целого типа.Используя понятия класса,создать новый тип данных "вектор". Предусмотреть: Динамическое выделение памяти под вектор (конструктор); Освобождение памяти после испальзования обьекта (деструктор).
что здес сложного создай класс и методы для вода и вывода и конструктор и патом функция для определите время года тебе что конкретно ножен?
Программа аппроксимации методом наименьших квадратов на основе степенного полинома с визуализацией графиков функций (Windows API) можно даже не на апи главное чтобы алго был
Мне нужно разработать программу «Калькулятор», использующую соответствующий класс. Методы класса должны реализовывать операции сложения, вычитания, умножения и деления. Ввод данных организовать с помощью соответствующих кнопок на форме программы.
6|9 =( сново я .... Напишите плз прогу. с идиотцким graph оф... на паскале. надо нарисовать тупенькие качели которые при запуске будут качаться туда сюда туда сюда туда... ))) если не оч влом напишите ато мне и влом и сграфом не дружу ((
Ввести строку символов. Вывести номер (место) последней не цифры в строке, если она там есть. На ассемблере помогите или расскажите хоть как примерно=)
задание: создать программу которая выводит на екран монитора с сзаставкой! з.ы может у кого что-то похожее есть? выложите плз
Меня попросили сделать простинькую игру, а именно крестики нолики игра скомпютером. Мош кто сможет плиз или хотябы игру на двоих(на одном компе, по очереди тыкать)эта наверника легче будет
Так как паскаль совсем не знаю Задание на Паскале: Поиск минимальных элементов массива Вот что набросал: a[1;10] массив array элемент массива int; min - минимальн. элементов min:= a[1]; for i:= 2 to 10 : do begin If min>a then min:= a end; writeln (min) ** начало кода ** i от 1 до 10 выполн. ***начало - если *** если min > a to *** min:=a ***конец если ** конец кода * вывод Но это наверное не правильно само задание выше
Держи крестики нолики. Игра на двоих, возможны глюки, писал на корую руку. Если есть желание можешь продумать искуственный интелект сам))) Code: unit fmuMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids; type TFormMain = class(TForm) StringGrid1: TStringGrid; procedure StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); procedure FormCreate(Sender: TObject); private procedure MoveHod; function Finish: Boolean; public { Public declarations } end; var FormMain: TFormMain; hod: String; implementation {$R *.dfm} procedure TFormMain.MoveHod; begin if hod = 'X' then hod := 'O' else if hod = 'O' then hod := 'X'; end; procedure TFormMain.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if StringGrid1.Cells[ACol, ARow] = '' then begin StringGrid1.Cells[ACol, ARow] := hod; if Finish then Application.MessageBox(PChar('Ïîáåäèë '+hod), 'Ïîáåäà íàÕ!!!') else MoveHod; end; end; procedure TFormMain.FormCreate(Sender: TObject); begin hod := 'X'; end; function TFormMain.Finish: Boolean; var i, j, p: Integer; function Presence(c, r: Integer): Boolean; begin if StringGrid1.Cells[c, r] = hod then Result := True else Result := False; end; begin Result := false; for i := 0 to 2 do begin p := 0; for j := 0 to 2 do if Presence(i, j) then inc(p); if p = 3 then Result := true; p := 0; for j := 0 to 2 do if Presence(j, i) then inc(p); if p = 3 then Result := true; end; if Presence(1, 1) then begin if Presence(0, 0) and Presence(2, 2) then Result := True; if Presence(2, 0) and Presence(0, 2) then Result := True; end; end; end.
