Информатика, программирование?

Двойники 15 дек. 2020 г., 04:28:21

/ / PascalABC.

NET 3.

1, сборка 1256 от 21.

06. 2016

begin var n : = ReadlnInteger('Число строк : ') ; Writeln('Вводите выражения построчно') ; var a : = ReadArrString(n) ; var ibr : array[1.

4] of integer ; Writeln('Результаты работы программы') ; for var j : = 0 to a.

Length - 1 do begin var s : = a[j] ; var lvl : = 0 ; var s1 : string ; repeat s1 : = s.

MatchValue('( \ (.

* \ ))') ; if s1.

Length> ; 0 then begin Inc(lvl) ; var i : = Pos(s1, s) ; if lvl> ; 1 then begin ibr[3] : = ibr[1] ; ibr[4] : = ibr[2] end ; ibr[1] : = i ; ibr[2] : = i + s1.

Length - 1 ; s[ibr[1]] : = '{' ; s[ibr[2]] : = '}' ; end until s1.

Length = 0 ; if lvl> ; 0 then begin s[ibr[1]] : = '(' ; s[ibr[2]] : = ')' end ; if lvl> ; 1 then begin s[ibr[3]] : = '[' ; s[ibr[4]] : = ']' end ; a[j] : = s ; Writeln(a[j]) end

end.

Тестовое решение

Число строк : 5

Вводите выражения построчно

ln(sin((a + b)c - d))

2 + (2 + (2 + (3 + (4 + 7) + 1) + 9) + 2) * 3

2 + (2 - 3) / 4

(1 + (2 - 3) / 5) * 4

неверная 1 + (2 * 2) - 5)

Результаты работы программы

ln{sin[(a + b)c - d]}

2 + {2 + {2 + [3 + (4 + 7) + 1] + 9} + 2} * 3

2 + (2 - 3) / 4

[1 + (2 - 3) / 5] * 4

неверная 1 + (2 * 2) - 5).

Nasivaschenko 31 июл. 2020 г., 12:20:46 | 5 - 9 классы

Почему язык программирования паскаль считается универсальным?

Почему язык программирования паскаль считается универсальным?

Вот такой на такой вопрос нам задали дать ответ по информатике).

Nikitos200601 1 янв. 2020 г., 21:59:47 | 5 - 9 классы

Помогите решить задачу по информатике?

Помогите решить задачу по информатике.

Программирование в среде Basic.

Найти наименьшее из трех чисел.

Какой алгоритм?

Igymenshheva 12 июн. 2020 г., 23:40:49 | 10 - 11 классы

Помогите с информатикой пожалуста, программирование в pascal?

Помогите с информатикой пожалуста, программирование в pascal.

Геперд 9 февр. 2020 г., 00:18:09 | 10 - 11 классы

Каков будет результат выполнения фрагмента программы, написанной на языке программирования PascalABC : write(length(‘ИНФОРМАТИКА’)) ; а) ИНФРМАТИКА б) 11 в) 9 г) 11 ИНФОРМАТИКА?

Каков будет результат выполнения фрагмента программы, написанной на языке программирования PascalABC : write(length(‘ИНФОРМАТИКА’)) ; а) ИНФРМАТИКА б) 11 в) 9 г) 11 ИНФОРМАТИКА.

Vcyrkina 25 сент. 2020 г., 20:15:07 | 1 - 4 классы

Информатика 2 класс алфавит языка программирования?

Информатика 2 класс алфавит языка программирования.

Спорт11 20 окт. 2020 г., 06:21:07 | 5 - 9 классы

Помогите?

Помогите!

Программирование циклических структур : 1.

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

Определите средний балл.

Hanat1 18 нояб. 2020 г., 17:56:46 | 10 - 11 классы

Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic)?

Нужно очень срочно решить задание по информатике, программирование в VBA(visual basic).

Elya42 12 июн. 2020 г., 14:17:14 | 5 - 9 классы

ОТВЕТИТЬ НА ВОПРОСЫ КОРОТКО И ЯСНО НО НЕ КОПИРУЙТЕ ИЗ ИНТЕРНЕТА ОТВЕТЫ(СВОИМИ СЛОВАМИ) 1) ПОНЯТИЕ ИНФОРМАЦИИ?

ОТВЕТИТЬ НА ВОПРОСЫ КОРОТКО И ЯСНО НО НЕ КОПИРУЙТЕ ИЗ ИНТЕРНЕТА ОТВЕТЫ(СВОИМИ СЛОВАМИ) 1) ПОНЯТИЕ ИНФОРМАЦИИ.

ИНФОРМАЦИЯ И ИНФОРМАТИКА 2) МОНИТОР 3)ПРОГРАММИРОВАНИЕ.

Ilay312 18 мар. 2020 г., 03:52:05 | 10 - 11 классы

Информатика, программирование?

Информатика, программирование.

Конник 28 нояб. 2020 г., 05:48:19 | 1 - 4 классы

Помогите, пожалуйста, с информатикой язык программирования МАТЛАБ?

Помогите, пожалуйста, с информатикой язык программирования МАТЛАБ.