Задание №15
1) Задание: На основе записной книжки, содержащей сведения: ФИО, год рождения, адрес(город,улица,№ дома, квартира), место работы(учебы), напечатать список в алфавитном порядке. Код программы:
2) Printscreen
Задание №15 п.1. – Напечатать слова, отличные от последнего слова, если в слове встречаются подряд две гласные буквы. п.2. - Напечатать все слова, отличные от последнего слова. Если слово четной длины, то дополнить его еще одной буквой таким образом, чтобы слева и справа от этой буквы находилось одинаковое количество букв.
Код программы. program asg;
{$APPTYPE CONSOLE}
uses SysUtils;
var s, s1, s2, s3, ss: string; i,count: longint; boll: boolean;
begin readln(s); count:=0; i:= length(s); while s[i] <> ' ' do begin s1:= s[i] + s1; dec(i); end; s:= s + ' '; ss:= s; s2:='eyuoia'; while length(s) <> 0 do begin s3:= copy(s, 1, pos(' ', s) - 1); delete(s, 1, pos(' ', s)); if s1 <> s3 then begin boll:=false; for i:=1 to length(s3)-1 do if (pos(s3[i],s2)<>0) and (pos(s3[i+1],s2)<>0)then boll:=true; if boll then begin inc(count); if length(s3)<>0 then writeln(s3,' ') else write('bykw net'); end; end; end; if count = 0 then write('net takih slov'); count:=0; s:= ss; writeln; while length(s) <> 0 do begin s3:= copy(s, 1, pos(' ', s) - 1); delete(s, 1, pos(' ', s)); if s1 <> s3 then begin inc(count); if length(s3)mod 2 = 0 then s2:=copy(s3,1,length(s3)div 2)+'A'+copy(s3,length(s3)div 2+1,length(s3)div 2) else s2:=s3; if length(s2)<>0 then write(s2,' ') else write('bykw net'); end; end; if count= 0 then write('net takih slov'); readln; end.
|
