С писок используемой литературы

1. Немнюгин С.А. - Turbo Pascal. Программирование на языке высокого уровня, СПб.: Питер, 2002, 496 с.

2. Рапаков Г. Г., Ржеуцкая С. Ю. – Программирование на языке Pascal, СПб.: БХВ-Питербург, 2004, 480 с.

3. Окулов С. М. - Основы программирования, М.:БИНОМ. Лаборатория знаний, 2004, 424 с.

4. Материалы сайта Система программирования PascalABC.NET - http://pascalabc.net/.

5. С.Н.Лукин - Turbo Pascal 7.0. Самоучитель, Диалог – МИФИ, 1999, 211 с.

6. Энциклопедия «Википедия» [Электронный ресурс] - http://ru.wikipedia.org.

7. Ерёмин О. Ф. – Методическое пособие по программированию на языке Pascal ABC, Моздок, 2009, 49 с.

П риложение а.

Код программы к заданию 1

program A1;

uses crt;

var s:string;

A:array [1..20] of string;

B:array [1..10] of string;

i,j,max,r,k,l,n,m:integer;

begin

read(s); {ввод последовательности слов}

r:=1;

for i:=1 to length(s) do

if s[i]=' ' then

begin

j:=j+1;

A[j]:=copy(s,r,i-r);

r:=i+1;

end; {Каждое слово вносится в отдельную ячейку массива символьного типа}

for i:=1 to j do

writeln('A[',i,']=',A[i]);

{Массив выводится для проверки}

For i:=1 to j do

begin

m:=0;

n:=0;

for l:=1 to length(A[i]) do

case A[i][l] of

'0'..'9': n:=1;

'а'..'я': m:=1;

e nd;

if (n<>0) and (m=0) then begin

writeln('только числа в слове "',A[i],'"');

for j:=length(A[i])downto 1 do

write(A[i][j]);

writeln;

end;

if (m<>0) and (n=0) then begin

writeln('только знаки в слове "',A[i],'"');

for j:=length(A[i])downto 1 do

write(A[i][j]);

writeln;

end;

end;{Выводим слова, в которых есть либо только числа, либо только знаки и переворачиваем их}

end.

П риложение б.

Код программы к заданию 2

П риложение в.

Код программы к заданию 3

Program A3;

uses crt;

const c=['0','1','2','3','4','5','6','7','8','9'];

var

f1,f2:text;

a:array[1..99] of string;

b:array[1..99] of integer;

s,s1:string;

r1,r2:real;

i,j,k,x,g,v,s2:integer;

begin

assign(f1,'file1.txt');

assign(f2,'file2.txt');

Rewrite(f1);

write('vvedite text: ');readln(s);

write(f1,s);

write('начальное слово: ');

readln(r1);

write('конечное слово: ');

readln(r2);

Reset(f1);

while not eof(f1) do readln(f1,s);

j:=1;

for i:=1 to length(s) do

b egin

if (s[i]<>' ') and (s[i] in c) then

begin

a[j]:=a[j]+s[i];

end

else inc(j);

end;

x:=j;

i:=0;

s2:=0;

for j:=1 to x do

begin

s1:=a[j];

val(s1,v,g);

if (v>r1) and (v<r2) then

begin

inc(i);

b[i]:=v;

end

else begin

s2:=s2+v;

k:=k+1;

end;

end;

writeln;

writeln('Кол-во чисел: ',k);

for j:=1 to x do writeln(a[j]);

w riteln;

writeln('Сумма чисел: ',s2);

Rewrite(f2);

for i:=1 to k do write(f2,b[i],' ');

close(f1);

close(f2);

end.