Информатика: Расскажите о наглядных формах представления информации

jimitapark

03.08.2020 17:31

Информатика

Есть ответ 👍

Расскажите о наглядных формах представления информации

268

370

Посмотреть ответы 2

Ответы на вопрос:

mandarin50

Информатика

4,7(28 оценок)

Книги - текстовая информация картины - графическая информация игра на музыкальных инструментах - аудио информация

Милкаi

Информатика

4,4(43 оценок)

Вот что у меня есть: ( я сделала, чтобы вычисляло выражение их 3 чисел и двух знаков, но не получается сделать так, чтобы учитывались круглые скобки )

var s, s1, s2, s3, s4: string;

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

begin

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

Readln(s);

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;

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;

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.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.