Функция для определения позиции буквы в слове ,не могу найти ошибку. var slovo : string; i : integer; function ups(var s : string; ch : char): integer; var i,n : integer; begin for i: =1 to length(s) do if s[i]=ch then n: =i else n: =0; ups: =n; end; begin writeln('vvedite slovo'); readln(slovo); writeln('n = ',ups(slovo,a)); end.
281
304
Ответы на вопрос:
Ошибок тут больше одной. во-первых, в операторе вывода стоит вызов функции ups, которой в качестве второго аргумента передается неизвестная переменная a. если имелся в виду символ "а", его надо было заключить в одинарные кавычки. во-вторых, в теле функции ups определяется значение n в цикле. даже, если искомый символ найден и n получит значение позиции этого символа в слове, то если слово просмотрено не полностью, следующий же проход по циклу снова сбросит n в ноль. следовательно, эта функция будет выдавать верный результат только если искомая буква - последняя в слове. var slovo: string; i: integer; function ups(var s: string; ch: char): integer; var i, n: integer; begin i: =1; n: =0; while (i< =length(s)) and (n=0) do begin if s[i] = ch then n : = i; i: =i+1 end; ups: =n end; begin writeln('vvedite slovo'); readln(slovo); writeln('n = ', ups(slovo, 'a')); end. замечание: в языке паскаль имеется функция pos, производящая поиск подстроки в
Var k, s: integer; begin write('введите число: '); readln(k); s : = (k div 100) + ((k mod 100) div 10)+(k mod 10); writeln('сумма цифр = ', s); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
МистрКрутой1115.11.2021 21:16
-
kadochkina06119.03.2021 17:28
-
aliyevasevgi512.06.2022 12:56
-
Крахмал1622.03.2021 07:32
-
elizavetdu0414.04.2021 14:51
-
odolskij201629.10.2021 05:09
-
Kissi111110.12.2022 22:21
-
araratpashayan506.10.2022 14:57
-
Katauorotkevic926.05.2021 09:54
-
dashenkanosova514.07.2021 10:06
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.