Другое: Курсовая работа ЯВУ

program slova;

{$APPTYPE CONSOLE}

function rus(s:string):string;

var i:integer;

begin

for i:=1 to length(s) do

case s[i] of

'A'..'п': s[i]:=chr(ord(s[i])-64);

'р'..'я': s[i]:=chr(ord(s[i])-16);

end;

rus:=s;

end;

var

Text: string; //заданный текст

i, num : Integer; //num - количество слов в тексте

b : char; //текущая буква

begin

writeln (rus('Введите текст :'));

readln (Text);

num:=1;

for i:=1 to length(Text) do //побуквенный цикл

begin

b:=Text[i];

If (b = ' ' ) then num:=num+1;

end;

writeln (rus('Количество слов в тексте равно : '), num);

readln;

end.

program slova2;

{$APPTYPE CONSOLE}

function rus(s:string):string;

var i:integer;

begin

for i:=1 to length(s) do

case s[i] of

'A'..'п': s[i]:=chr(ord(s[i])-64);

'р'..'я': s[i]:=chr(ord(s[i])-16);

end;

rus:=s;

end;

var

Text: string; //заданный текст

i, num: Integer; //num - количество слов в тексте

flag: boolean;

b: char; //текущая буква

begin

writeln(rus('Введите текст :'));

readln(Text);

num := 0;

flag := true;

for i := 1 to length(text) do //побуквенный цикл

begin

b := text[i]; //текущая буква текста

if (b <> ' ') and flag

then num := num+1;

flag := (b=' ')

end;

writeln;

writeln(rus('Количество слов в тексте равно : '), num);

readln;

end.

program bal;

{$APPTYPE CONSOLE}

function rus(s:string):string;

var i:integer;

begin

for i:=1 to length(s) do

case s[i] of

'A'..'п': s[i]:=chr(ord(s[i])-64);

'р'..'я': s[i]:=chr(ord(s[i])-16);

end;

rus:=s;

end;

var

s : string;

dlina, flag, i : Integer;

begin

write (rus('Введите строку, содержащую скобки : '));

readln(s);

i:=1;

flag:=0;

dlina:=length(s);

while (flag>=0) and (i<=dlina) do

begin

If s[i] = '(' then flag:=flag + 1;

If s[i] = ')' then flag:=flag - 1;

i:=i+1

end;

writeln (rus('О т в е т'));

If flag=0 then write (rus('Есть баланс ')) else write (rus('Нет баланса '));

writeln (rus('открывающих и закрывающих скобок'));

readln;

end.

program stroka;

{$APPTYPE CONSOLE}

function rus(s:string):string;

var i:integer;

begin

for i:=1 to length(s) do

case s[i] of

'A'..'п': s[i]:=chr(ord(s[i])-64);

'р'..'я': s[i]:=chr(ord(s[i])-16);

end;

rus:=s;

end;

var

s1,s2:string;

begin

writeln (rus('Введите первую строку'));

readln (s1);

writeln (rus('Введите вторую строку'));

readln(s2);

if length(s1) or length(s2) >80 then

begin

writeln (rus('Ошибка'));

exit;

end;

if (s1=s2) then

writeln (rus('Строки равны'))

else writeln (rus('строки не равны'));

readln;

end.

program text;

{$APPTYPE CONSOLE}

function rus(s:string):string;

var i:integer;

begin

for i:=1 to length(s) do

case s[i] of

'A'..'п': s[i]:=chr(ord(s[i])-64);

'р'..'я': s[i]:=chr(ord(s[i])-16);

end;

rus:=s;

end;

var

S: string;

i:integer;

n:char;

begin

writeln (rus('Введите строку'));

readln (s);

writeln (rus('Введите удаляемый символ'));

readln (n);

i:=1;

while (i<=length(s)) do

if s[i]=n then

delete (s,i,1)

else inc(i);

writeln (rus('после сжатия : '),s);

readln;

end.

символ

Turbo Pascal

язык программирования

данные

переменная

строки

функции

процедуры

код

команда

Средства Турбо Паскаля для обработки символьной информации

КР

Колесникова Маргарита Дмитриевна

D005

61137

Мордвинцева Марина Владимировна

Delphi 7.0

Разработка