close

Вход

Забыли?

вход по аккаунту

?

lab rab5

код для вставкиСкачать
program Z1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s,ch: String;
begin
write('S=');
readln(s);
write('CH=');
readln(ch);
Delete(S,Pos(ch,s),Length(S));
writeln(s);
readln;
end.
program Z2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s,slovo1: string;
p,dlina: byte;
begin
writeln('Vvod stroki:');
readln(s);
s:=trim(s);
dlina:=length(s);
p:=pos(' ',s);
if dlina=0 then writeln('Znachenie ne naideno')
else begin
slovo1:=copy(s,1,p-1);
writeln('Pervoe slovo:',slovo1);
end;
writeln('Dlina predlojeniua=',dlina);
readln;
end.
program Z3;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s1,s2:string;
n:integer;
begin
write('s1=');
readln(s1);
write('s2=');
readln(s2);
n:=pos(s1,s2);
if s1>s2 then n:=pos(s1,s2) else
n:=pos(s2,s1);
writeln(n);
readln;
end.
program Z4;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
n:integer;
s1,s2:string;
begin
writeln('s1');
readln(s1);
writeln('s2');
readln(s2);
writeln('n');
readln(n);
Insert(s2,s1,n);
writeln(s1);
readln;
end.
program Z5;
{$APPTYPE CONSOLE}
uses
SysUtils;
Var
S1, S2, S3, S4: string;
P, DL: integer;
Begin
Writeln ('Type character strings');
write ('S1:');
Readln(S1);
Write('S2:');
Readln(S2);
Write('S3:');
Readln(S3);
S4:='';
DL:=Length(S2);
P:=pos(S2, S1);
While P>0 do
Begin
Dec(P);
S4:=S4+Copy(S1,1,P)+S3;
Delete(S1,1,P+DL);
P:=pos(S2, S1);
End;
S1:=S4+S1; {Поправил}
Writeln('New word: ', S1);
Readln
End.
program Z6;
{$APPTYPE CONSOLE}
uses
SysUtils;
var s1,s2:string;
k:integer;
begin
writeln('Введите первую строку');
readln(s1);
writeln('Введите вторую строку');
readln(s2);
k:=0;
while pos(s2,s1)>0 do
begin
k:=k+1;
delete(s1,pos(s2,s1),length(s2))
end;
write('stroka s2 vhodit v s1 ',k,' raz');
readln;
end.
program Z7;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
str: string;
i, b: integer;
begin
write('Your string: ');
readln(str);
i := length(str);
if i > 0 then begin
b := 1;
while i > 0 do begin
if str[i] = ' ' then
b := b + 1;
i := i - 1;
end;
end
else
b := 0;
writeln('Number of words: ', b);
for i:=1 to length(str) do
begin
if str[i]=' ' then
writeln
else
write(str[i]);
end;
readln;
end.
program Z8;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
i,j : Byte;
Begin
For i:=48 to 90 do
Write(' ',i:4, '-',Chr(i)) ;
writeln; writeln;
For i:=48 to 90 do
Write(' ',char(i):4, '-',ord(i)) ;
readln;
End.
program Z9;
{$APPTYPE CONSOLE}
uses
SysUtils;
var S : String; N : Byte;
begin
Write('Type string: '); ReadLn(S);
for N := 1 to Length(S) do WriteLn(S[N], ' ', ord(S[N]));
readln;
end.
program Z10;
{$APPTYPE CONSOLE}
uses
SysUtils;
var Str : String;
begin
str := 'hello world';
str := AnsiLowerCase(str);
writeln(str);
str := 'hello world';
str := AnsiupperCase(str);
writeln(str);
readln;
end.
Документ
Категория
Рефераты
Просмотров
8
Размер файла
15 Кб
Теги
rab5, lab
1/--страниц
Пожаловаться на содержимое документа