космос63
13.11.2021 19:23

Ребят кто нибудь что здесь нужно испаривить чтобы заработало? type
PNode=^TNode;
TNode=record
s: string;
left,right: PNode;

end;

var
f: text;
p,p1,p2,root: PNode;
x: integer;
s,q: string;

procedure InitRoot;
begin
New(root);
root^.s:='Собака';
root^.left:=nil;
root^.right:=nil;
end;

procedure SaveToFile(p: PNode);
begin
if p=nil then
begin
writeln(f,'');
exit
end;
writeln(f,p^.s);
SaveToFile(p^.left);
SaveToFile(p^.right);
end;

function LoadFromFile: PNode;
var
s: string;
p: PNode;
begin
readln(f,s);
if s='' then
begin
Result:=nil;
exit
end;
New(p);
p^.s:=s;
p^.left:=LoadFromFile;
p^.right:=LoadFromFile;
Result:=p;
end;

begin
writeln('Загадайте животное');
assign(f,'data.txt');
if not FileExists('data.txt') then
InitRoot
else
begin
reset(f);
root:=loadfromfile;
close(f);
end;

p:=root;
while p^.left<>nil do
begin
write(p^.s+'? ');
readln(x);
if x=1 then p:=p^.left
else p:=p^.right
end;

write('Это '+p^.s+'? ');
readln(x);
if x=1 then
writeln('Я угадала!')
else
begin
write('Я проиграла. Что это за животное? ');
readln(s);
write('Введите вопрос, отличающий это животное от '+p^.s+': ');
readln(q);
New(p1);
New(p2);
p1^.s:=s;
p1^.left:=nil;
p1^.right:=nil;
p2^.s:=p^.s;
p2^.left:=nil;
p2^.right:=nil;
p^.s:=q;
p^.left:=p1;
p^.right:=p2;
end;
rewrite(f);
SaveToFile(root);
close(f);
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
kURGA
06.01.2021 02:16

Информация, которую мы получаем из окружающего мира, поступает к нам в виде условных знаков или сигналов самой разной физической природы.

Это свет, звук, запах, касания; это слова, значки, символы, жесты и движения.

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

Так, услышав звонок будильника, человек понимает, что пришло время телефонный звонок — кому-то нужно с нами поговорить;

школьный звонок сообщает учащимся о долгожданной перемене.

Для правильного восприятия разных сигналов требуется разработка кода, или кодирование.

Код — это система условных знаков для представления информации.

Кодирование — это перевод информации в удобную для передачи, обработки или хранения форму с некоторого кода.

0,0(0 оценок)
Ответ:
ViktoriaTo
02.02.2022 02:13

1)

#include <iostream>

using namespace std;

signed main() {

   int n;

   cin >> n;

   int b[n];

   for(int i = 0; i < n; i++)

       cin >> b[i];

   int mn = INT_MAX, mn_index = -1;

   for(int i = 0; i < n; i++)

       if(b[i] < mn && b[i] > 0){

           mn = b[i];

           mn_index = i;

       }

   cout << mn << "\n" << mn_index + 1;

}

2)

#include <iostream>

using namespace std;

signed main() {

   int k;

   cin >> k;

   int N[k];

   for(auto &i: N)

       cin >> i;

   int sum = 0, cnt = 0;

   for(auto i: N)

       if(i % 2 == 1){

           sum += i;

           cnt ++;

       }

   cout << sum << "\n" << cnt;

}

3)

#include <iostream>

using namespace std;

void swap(int *a, int *b){

   int temp = *a;

   *a = *b;

   *b = temp;

}

signed main() {

   int j;

   cin >> j;

   int a[j];

   for(auto &i: a)

       cin >> i;

   int mx_index = -1, mn_index = -1,mx = -INT_MAX, mn = INT_MAX;

   for(int i = 0; i < j; i++){

       if(a[i] > mx){

           mx =  a[i];

           mx_index = i;

       }

       if(a[i] < mn){

           mn = a[i];

           mn_index = i;

       }

   }

   swap(a+mn_index,a+mx_index);

   for(auto i: a)

       cout << i << " ";

}

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота