Ввести файл f . каждый элемент в файле больший 7 домножить на результат целочисленного деления этого элемента на 7. файл вывести до и после преобразования. дважды вычислить значение выражения, первый раз используя процедуру, а второй – функцию.

//Pascal ABC.NET 3.2 сборка 1318

Var
  f:text;
  n:integer;
  s:string;

   
procedure VoTeRaz(f:text;n:integer;s:string);
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
end;

function VoTeDva(f:text;n:integer;s:string):integer;
  begin
    writeln('Было:');
assign(f,'Input.txt');
reset(f);
while not(Eof(f)) do
  begin
    read(f,n);
    write(n,' ');
    if n>7 then n:=n*(n div 7);
    s:=s+inttostr(n)+' ';
  end;
delete(s,length(s),1);
close(f);
assign(f,'Input.txt');
rewrite(f);
write(f,s);
close(f);
writeln;
writeln('Стало:');
write(s);
writeln;
VoTeDva:=0;
end;
   
begin
VoTeRaz(f,n,s);
VoTeDva(f,n,s);
end.

Начальное содержимое Input.txt:
81 5 6
Пример работы программы:
Было:
81 5 6 
Стало:
891 5 6
Было:
891 5 6 
Стало:
113157 5 6

1)20m+40m=240

60m=240

m=240: 60

m=4

ответ: m=4

2)800k: 200=800

800k=800*200

800k=160000

k=160000: 800

k=200

ответ: k=200

3)(8x+2x)*8: 2=160

10х*8: 2=160

10х*8=160*2

10х*8=320

10х=320: 8

10х=40

х=40: 10

х=4

ответ: х=4

4)10+30t=20t+100

 

  не знаю

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1. На ленте машины Тьюринга содержится последовательностью символов “+”. Напишите программу для машины Тьюринга, которая каждый второй символ “+” заменит на “–”. Замена начинается с правого конца последовательности. Автомат в состоянии q1 обозревает один из символов указанной последовательности. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.

2. Дано число n в восьмеричной системе счисления. Разработать машину Тьюринга, которая увеличивала бы заданное число n на 1. Автомат в состоянии q1 обозревает некую цифру входного слова. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.

3. Дана десятичная запись натурального числа n > 1. Разработать машину Тьюринга, которая уменьшала бы заданное число n на 1. Автомат в состоянии q1 обозревает правую цифру числа. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.

4. Дано натуральное число n > 1. Разработать машину Тьюринга, которая уменьшала бы заданное число n на 1, при этом в выходном слове старшая цифра не должна быть 0. Например, если входным словом было “100”, то выходным словом должно быть “99”, а не “099”. Автомат в состоянии q1 обозревает правую цифру числа. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.

5. Дан массив из открывающих и закрывающих скобок. Построить машину Тьюринга, которая удаляла бы пары взаимных скобок, т.е. расположенных подряд “( )”.

Например, дано “) ( ( ) ( ( )”, надо получить “) . . . ( ( ”.

Автомат в состоянии q1 обозревает крайний левый символ строки. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.

6. Дана строка из букв “a” и “b”. Разработать машину Тьюринга, которая переместит все буквы “a” в левую, а буквы “b” — в правую части строки. Автомат в состоянии q1 обозревает крайний левый символ строки. Кроме самой программы-таблицы, описать словами, что выполняется машиной в каждом состоянии.