Строки в Delphi

[Stilet]

чтобы S, L,N компьютер вводил за меня)

Это не возможно, придется писать ИИ.
Не парь и сдавай как есть.

[534]

но мне же по условию надо задать первую строку, вторую строку, а также элемент начиная с которого надо вставить вторую строку в первую)) помогите плз)) вручную

[Stilet]

Ну дык процедура Readln тебе в помошь )
посмотри в хелпе примеры о ней.

[534]

ну напиишииитттеее кодд девушке, нуу пооожааллууййссттааа,

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
   var sss,s,ss:string;i,n:integer;
begin
 writeln('write first line'); Readln(s);
 writeln('write second line'); Readln(ss);
 Writeln('vvedite N'); Readln(n);
  for i:=1 to n do sss:=sss+s[i];
 for i:=1 to length(ss) do sss:=sss+ss[i];
 for i:=n+1 to length(s) do sss:=sss+s[i];
 writeln(sss);
 readln
  { TODO -oUser -cConsole Main : Insert code here }
end.

у меня единственная проблема, как поставить пробел между числами (увидите в проге)

помогите пожалуйста в этой мелочи

[Stilet]

как поставить пробел между числами

Какой еще пробел? Зачем ставить?

[534]

вот пример:
первая строка- 5 6 8 9
вторая строка- 4 7 9 9
элемент, начиная с которого надо вставить вторую строку в первую - 2
итог: 5 4 7 9 96 8 9
а должно быть: 5 4 7 9 9 6 8 9

[534]

up помогите плз

[Sanprof]

Вот такая у меня получилась программка в 4 строки, но она работает только для вашего примера с пробелами

Sanprof.jpg

Листинг

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var str1, str2 : string;//первая и вторая строка соответственно
begin
str1 := edit1.Text;//загружаем первую строку в переменную
str2 := edit2.Text;//загружаем вторую строку в переменную
insert(str2+' ',str1,(strtoint(edit3.Text)+(strtoint(edit3.Text)-1)));//вставляем (str2+' ') в (str1) начиная с указанного элемента с учетом пробелов
edit4.Text := str1;//выводим результат
end;

end.

Работает как видно на рисунке. Делал на delphi 2010 вот исходник <<Sanprof.rar>>

[534]

мне в console application надо

[534]

помогите пожалуйста исправить мой код