Решите задачю....применение строк...

[El_Bint0]

1)Создайте две строки: строка1 и строка2. Строка1 содержит вашу фамилию, строка2 — отчество. Создайте строку3, содержащую фамилию и отчество, использую конкатенацию (фамилия и отчество должны быть разделены пробелом). Добавьте ваше имя в третью строку. Найдите длину строки3. Удалите из строки3 все пробелы. Введите какую-нибудь строку с клавиатуры и определите, встречается ли она в строке3. Запросите с клавиатуры год вашего рождения (целое число). Добавьте строку « …. года рождения» к строке3. Составьте новую строку4 из строки3, которая имеет следующий вид «студент Алексей Иванов, возраст 16 лет»

Спасибо.....
З.Ы. картинка в качестве примера!!!!

[zetrix]

А что тебе конкретно не понятно? задачка простая, только условие я так понял специально замудрили. Используются только строковый процедуры и функции (concat - склеивание строк, length - длина строки, pos(s1,s2) - позиция строки s1 в строке s2, delete(s1,x,y) - удаление из строки s1 с позиции x, y символов...)

[El_Bint0]

Блин я вообще не понимаю как делать задачи с использование строк.....можешь решить задачю? =)

[El_Bint0]

Исправьте!!!

program lol;
uses crt;
var s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:stri ng[50];
r,n,s,i,code:integer;
a:integer;
begin
clrscr;
s1:='pypkin';
s2:='andreevich';
writeln('stroka1: ',s1);
writeln('stroka2: ',s2);
s3:=s1+' '+s2;
writeln('stroka3: ' ,s3);
s4:=s3;
insert('sergey ',s4,10);
writeln('stroka4 ',s4);
n:=length(s4);
writeln('kolichestvo elementov ',n);
delete(s4,9,1);
delete(s4,15,1);
writeln('stroka5: ',s4);
write('vvedite stroku ');
readln(s6);
r:=pos(s6,s4);
if r=0 then
writeln('stroki net')
else
writeln('nomer posizii: ',r);
write('vvedite god rojdenii ');
readln(s7);
s8:=s7+' '+s4;
writeln('stroka6: ',s8);
val(s7,a,code);
if code<>0 then
writeln('nekkorektnii vvod');
a:=2006-a;

str(a,s9);
writeln('stroca7: ',s9);

s10:=s1+' s.r'+' '+s9+' let.';
writeln('stroka8: ',s10);
readln;
end.


Вотъ!!!

[El_Bint0]

НАРОД помогите ПОЖАЛУЙСТА!!!!!!!

[SuperVisor]

Не отчаивайся: через час-полчаса посмотрю твой код и вместо этого сообщения будет ответ.

P.S. Тема в разделе "Помощь студентам" будет удалена.

[AVer]

SuperVisor, я уже сделал....

uses crt;
var s1,s2,s3,s4,s5:string;
    i:integer;
begin
Write('Familiya: ');
ReadLn(s1);
Write('Otchestvo: ');
ReadLn(s2);
Write('Imya: ');
ReadLn(s4);
ClrScr;
WriteLn('Stroka1: ',s1);
WriteLn('Stroka2: ',s2);
s3:=s1+' '+s4+' '+s2;
Writeln('Stroka3: ',s3);
WriteLn('Dlina stroki3: ',Length(s3),' simvolov');
While pos(' ',s3) > 0 do
delete(s3,pos(' ',s3),1);
WriteLn('Stroka3: ',s3);
Write('Vvedite stroku: ');
ReadLn(s2);
if pos(s2,s3) > 0 then
WriteLn('Da') else
WriteLn('Net');
Write('Vvedite god rozhdeniya: ');
ReadLn(i);
WriteLn('Stroka3: ',s3,i,' goda rozhdeniya');
i:=2006 - i;
WriteLn('Stroka4: Student ',s4,' ',s1,', vozrast ',int(i):2:0,' let');
ReadLn;
end.

//Не стоит извинений, SupVis

[El_Bint0]

Aver и supervisor спасибо....