Как сделать функцию, которая печатает переменное количество параметров в pascal?

Question

Я хочу, чтобы пользователь дал мне переменное количество строк (как virables). пример:

начало cout ('Hello'). (''). ('мир') конец.

отпечатывается: «Привет мир» Я знаю, что я просто не могу позволить ему ввести строку, но я хочу, чтобы этот код работал ... Я думаю, что запись поможет гайки я не знаю, как спасибо

Answer 1

Я не уверен, что это пример кода, который вы написали ... но я стараюсь вам помочь.

Program test; 
uses crt; 

var string1,string2,string3:string; 


begin 
write("Write to first string : "); readln(string1); 
write("Write to second string: "); readln(string2); 
write("Write to third string : "); readln(string3); 

String2:= string1 +" "+ string3; // it will add first with third string to one with one space 

String3:= string2 +" "+ string1;// also 2.+ 1. 
clrscr; //clearscreen (in CRT) 
writeln("1. = 1."); 
writeln("2. = 1. + 3."); 
writeln("3. = 2. + 1."); 
writeln; 
writeln(string1); 
writelm(string2); 
writeln(string3); 

Я нету испытал это (я написал это сейчас для вас) я думаю, что вы будете читать его и узнать, как наркоман или как сделать простой со строками.