В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Ника6258227
Ника6258227
05.01.2020 16:33 •  Информатика

Итоговая работа по теме ленейное программирование​

Показать ответ
Ответ:
ymniupisos
ymniupisos
11.01.2021 01:27

var

 s, s1, s2, s3, s4, tmp1, tmp2: string;

 i, a, b, c, d, e, f: integer;

begin

 Writeln('Введите строку: ');

 Readln(s);

 //

 for var k := 1 to length(s) do  

 begin

   if (s[k] = '(') then

   begin

     var j := k + 1;

     while (s[j].IsDigit) do

     begin

       tmp1 := tmp1 + s[j];

       j := j + 1;

     end;

     var ch := s[j];

     j := j + 1;

     while (s[j].IsDigit) do

     begin

       tmp2 := tmp2 + s[j];

       j := j + 1;

     end;

     case ch of

       '+': begin s := s.Remove(k - 1, j - k + 1); s := s.Insert(k - 1, inttostr(tmp1.ToInteger + tmp2.ToInteger)); end;

       '-': begin s := s.Remove(k - 1, j - k + 1); s := s.Insert(k - 1, inttostr(tmp1.ToInteger - tmp2.ToInteger)); end;

       '*': begin s := s.Remove(k - 1, j - k + 1); s := s.Insert(k - 1, inttostr(tmp1.ToInteger * tmp2.ToInteger)); end;

       '/': begin s := s.Remove(k - 1, j - k + 1); s := s.Insert(k - 1, inttostr(tmp1.ToInteger div tmp2.ToInteger)); end;

     end;

     break;

   end;

 end;

 //

 for i := 1 to length(s) do

 begin

   if (s[i] = '+') or (s[i] = '-') or (s[i] = '*') or (s[i] = '/') then

   begin

     s1 := copy(s, 1, i - 1);

     s2 := copy(s, i + 1, length(s));

     c := i;

   end;

 end;

 for i := 1 to length(s1) do

 begin

   if (s1[i] = '+') or (s1[i] = '-') or (s1[i] = '*') or (s1[i] = '/') then

   begin

     s3 := copy(s1, 1, i - 1);

     s4 := copy(s1, i + 1, length(s1));

     e := i;

   end;

 end;

 Val(s3, a, d);

 Val(s4, b, d);

 Val(s2, f, d);

 if (s[e] = '/') and (s[c] = '/') then Writeln((a div b) div f);

 if (s[e] = '/') and (s[c] = '*') then Writeln((a div b) * f);

 if (s[e] = '+') and (s[c] = '*') then Writeln(a + (b * f));

 if (s[e] = '*') and (s[c] = '*') then Writeln(a * b * f);

 if (s[e] = '+') and (s[c] = '/') then Writeln(a + (b div f));

 if (s[e] = '*') and (s[c] = '+') then Writeln((a * b) + f);

 if (s[e] = '/') and (s[c] = '+') then Writeln((a div b) + f);

 if (s[e] = '*') and (s[c] = '/') then Writeln((a * b) div f);

 if (s[e] = '+') and (s[c] = '+') then Writeln(a + b + f);

 if (s[e] = '-') and (s[c] = '-') then Writeln(a - b - f);

 if (s[e] = '+') and (s[c] = '-') then Writeln(a + b - f);

 if (s[e] = '-') and (s[c] = '+') then Writeln(a - b + f);

 if (s[e] = '*') and (s[c] = '-') then Writeln((a * b) - f);

 if (s[e] = '/') and (s[c] = '-') then Writeln((a div b) - f);

 if (s[e] = '-') and (s[c] = '*') then Writeln(a - (b * f));

 if (s[e] = '-') and (s[c] = '/') then Writeln(a - (b div f));

end.

0,0(0 оценок)
Ответ:
adeluka5
adeluka5
06.09.2022 06:29

Первым человеком, если доверять историкам,  кому все таки удалось расшифровать  (частично) египетские иероглифы, был французский ученый египтолог Жан-Франсуа Шампольон (1790-1832гг). 

 Он постарался составить полный список иероглифов (доступных и понятых им на те времена) и их греческих эквивалентов, создав таким образом основу для перевода всех остальных  египетских иероглифических текстов.


Упомянутый пользовательницей Икс-Фактор ученый Шампольон, решил любой ценой разгадать иероглифическую надпись на найденном археологами  Розеттском камне, несмотря на то, что рядом был греческий перевод.  На деле  загадка иероглифов,  оказалась довольно сложной. Многие ученые до Шампольена,  из разных стран пытались ее безуспешно разрешить. Поэтому и сам Шампольон далеко не сразу пришел к правильному пониманию. 

Вначале он постарался определить, что означает каждый рисунок - целое слово или букву. В 14 строчках иероглифического текста, повторялось в разных комбинациях 166 различных иероглифических знаков! Столько букв у египтян естественно быть не могло!  

После долгих изучений исследователь пришел к довольно оригинальной догадке, которая блестяще подтвердилась впоследствии. Он предположил, что египтяне употребляли свои смысловые знаки (так называемые идеограммы) вперемежку с буквами. При этом они прибегали иногда даже к повторениям, думая, что они не повредят. Примерно как и мы, написав слово "десять" одним знаком 10, на всякий случай повторяем рядом в скобках (десять). 

Шампольон также вспомнил, что в арабском и еврейском языках гласных букв совсем  не было. Может быть он подумал, их не было и у египтян? Эта мысль также приблизила его к разгадке тайны иероглифов.

Разобрав в точности имена некоторых царей, Шампольон стал анализировать следующие слова. Выяснилось, что слово "письмена", так же как и такие слова как "бог", "господин",  и некоторые другие существительные, написано одним символом, изображавшим письменный прибор, т. е. практически было нарисовано. Зато уже слово "памятник" было написано 5-ю знаками, из которых последний был картинкой (изображение  каменной плиты полукруглой формы). 

Вскоре, а именно 14 сентября 1822 г. Жан-Франсуа  убедился, что может читать и переводить практически любой древнеегипетский иероглифический текст. Обрадовавшись, он вбежал взволновано в кабинет профессора Жака Жозефа (своего брата) -  - и кинул ему на письменный стол несколько исписанных им листков с восклицанием: "В твоих руках открытие!" - и сразу  потерял сознание от переутомления. 

Через две недели, того же 1822 года он уже произносил доклад о своем научном  открытии в Парижской академии. В последующем Франсуа Шампольон смог прочитать и объяснить еще ряд древнеегипетских текстов: песен, летописей, и пр. Своими изысканиями, Шампольон положил начало новой современной  науке - египтологии. Кстати в самом Египте, ученому удалось побывать только в 1828 году, для того чтоб снять отпечатки с надписей на стенах храмов и гробниц, на обелисках и статуях. Но сильнейшее умственное напряжение существенно  подорвало его здоровье. В разгар своей исследовательской работы, в возрасте 42 лет, Шампольон умер от нервного истощения. Его дело продолжали ученые многих стран. 


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