ekaterinapsncen

11.04.2020 13:25

Информатика

Есть ответ 👍

Нельзя преобразовать тип integer к char. как это исправить? var f, l, r, s : char; a, b : integer; begin a : =0; b : =0; f : =1; l : =0; r : =0; s : =0; assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(f,l,r,s); if f then begin a : =a+f end; if l then begin b : =b+l end; if r then begin b : =b-r end; if s then begin a : =a+s; b : =b+s end; write(a,b); end.

148

207

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

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

Roman4ik23

Информатика

4,6(97 оценок)

//не смотрел ваш код, просто моё видение решения //pascalabc.net 3.2 сборка 1318 var t: text; x,y,i,j: integer; s: string; c: char; world: array[1..4] of char=('e','s','w','n'); begin j: =1; c: ='e'; assign(t,'input.txt'); reset(t); read(t,s); close(t); i: =1; while s[i]< > 's' do begin if s[i]='r' then begin if c='n' then j: =1 else inc(j); c: =world[j]; end; if s[i]='l' then begin if c='e' then j: =4 else dec(j); c: =world[j]; end; if s[i]='f' then case c of 'e': inc(x); 's': dec(y); 'w': dec(x); 'n': inc(y); end; inc(i); end; assign(t,'output.txt'); rewrite(t); write(t,x,' ',y); close(t); end. пример содержимого input.txt: flfs пример содержимого output.txt: 1 1

RatmirOspanov123

Информатика

4,6(95 оценок)

При определении значений подобных функций переменная y вычисляется по-разному (по разным формулам) в зависимости от значения x.

Такие задачи решаются с конструкции условного оператора if - else. Поскольку в данном случае мы имеем три условия (x > 0, x = 0 и x < 0), то потребуется использование еще вложенной конструкции if - else, т. к. в языке Pascal нет оператора множественного ветвления (оператор case в данном случае не подходит).

В языке программирования Паскаль (да и в других тоже) желательно вложенные конструкции if - else помещать во внешнюю ветку else, а не if. Так проще не запутаться.

Таким образом, алгоритм вычисления значения функции может быть таким:

Если x > 0, то у = x - 2

Иначе (ниже идет вложенная конструкция)

Если x = 0, то y = 0

Иначе y = |x|.

В последнем пункте можно опустить оператор if с проверкой, что x < 0, так как если ход выполнения программы дошел до этого пункта, то x уже другим быть и не может (варианты, когда он больше или равен нулю, уже были исключены).

Для определения модуля (абсолютного значения) переменной можно использовать встроенную функцию abs() языка Pascal. В данном случае можно обойтись и без нее: поскольку уже известно, что x отрицателен, то, чтобы получить положительное число (модуль), нужно его умножить на -1.

var

x, y: integer;

begin

write ('x = ');

readln (x);

if x > 0 then

y := x - 2

else

if x = 0 then

y := 0

else

y := abs(x);

writeln ('y = ', y);

end.

Объяснение:

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

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

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

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

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

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

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

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

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

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