Задание 3. Задана запись одного оператора

Задана запись одного оператора. Проверить наличие симво­ла точка с запятой. Вывести соответствующие сообщения.

program f3;

var s: string[7];

n: integer;

Begin

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

readln(s);

writeln(s);

n: =pos('; ', s);

if n< > 0 then write('Текст содержит символ; ')

else write ('Текст не содержит символ; ');

end.

Задание 7

Даны шифры десяти цехов, численности рабочих и инженерно-технических работников в

каждом. Вывести списки цехов, в которых соотношение рабочих и ИТР более 1, 5 и менее

2, и списки, в которых это соотношение более 2.

program s7;

Var

cex: array [1..10] of string[4];

ch, itr: array [1..10] of real;

a: real;

i: byte;

f: text;

Begin

assign(f, 'C: \Users\Student\Desktop\.txt.txt');

reset(f);

i: =0;

while not eof(f) do

Begin

inc(i);

readln(f, cex[i], ch[i], itr[i]);

end;

close(f);

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** численность ** итр **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

writeln('** ', cex[i], '** ', ch[i], ' ** ', itr[i], ' ** ');

for i: =1 to 32 do

write('*');

writeln;

writeln;

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

Begin

a: =ch[i]/itr[i];

if (a> 1.5) and (a< 2) then

writeln('** ', cex[i], '**', a: 10: 2, ' **');

end;

writeln;

writeln;

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

Begin

a: =ch[i]/itr[i];

if (a> 2) then

writeln('** ', cex[i], '**', a: 10: 2, ' **');

end;

end.

2 способ при помощи оператора with:

program s7;

Type

zav= record

cex: string[4];

ch: real;

itr: real;

end;

Var

b: array [1..10] of zav;

a: real;

i: byte;

f: text;

Begin

assign(f, 'C: \Users\Student\Desktop\.txt.txt');

reset(f);

i: =0;

while not eof(f) do

Begin

inc(i);

with b[i] do

readln(f, cex, ch, itr);

end;

close(f);

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** численность ** итр **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

with b[i] do

writeln('** ', cex, '** ', ch, ' ** ', itr, ' ** ');

for i: =1 to 32 do

write('*');

writeln;

writeln;

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

with b[i] do

Begin

a: =ch/itr;

if (a> 1.5) and (a< 2) then

writeln('** ', cex, '**', a: 10: 2, ' **');

end;

writeln;

writeln;

for i: =1 to 32 do

write('*');

writeln;

writeln('** цех ** отношение **');

for i: =1 to 32 do

write('*');

writeln;

for i: =1 to 10 do

with b[i] do

Begin

a: =ch/itr;

if (a> 2) then

writeln('** ', cex, '**', a: 10: 2, ' **');

end;

end.