Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.05.2011, 19:56   #1
ВДПУ
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 37
Вопрос Сделал задачу, а она все равно не выполняет задания

var radok:string;
i,L,kilk,kilk1,nom1,nom2:integer;
begin
writeln('Vvedit text:');
readln(radok);
L:=length(radok);
kilk:=0;kilk1:=0;
for i:=1 to L do
if radok[i]='а' then kilk:=kilk+1;
for i:=1 to L do
if radok[i]=' ' then
begin
kilk1:=kilk1+1;
if kilk1=1 then nom1:=i;
if kilk1=2 then nom2:=i;
end;
delete(radok,nom1,1);
delete(radok,nom2-1,1);
writeln('dovguna radka:',L);
writeln('kilkist bykv "a": ',kilk);
writeln(radok);
readln;
Условие: Вести строка символов. Определить длину строки и количество букв "а"в нем. Вывести данные без пропусков
ВДПУ вне форума
Старый 17.05.2011, 20:03   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Код:
  readln(str);
  len := length(str);
  for i:=1 to len do
     if str[i] = 'a' then c:=c+1;
  writeln(c, '   ', len);
Тут мин20 назад правильное решение именно этой задачи выкладывали, правда на украинском и в просьбе исправить фигурировал какой-то Иван Сергеевич)
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.

Последний раз редактировалось Alex11223; 17.05.2011 в 20:06.
Alex11223 вне форума
Старый 17.05.2011, 20:27   #3
ВДПУ
Пользователь
 
Регистрация: 09.02.2011
Сообщений: 37
По умолчанию

Спасибо, но я уже сам понял. Там все верно, просто оно считает символы, введенные латинскими символами
ВДПУ вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Thank you.С длинной арифметикой в задаче с динамикой(пол задания сделал).Язык:Си. trebor Помощь студентам 1 05.01.2011 15:02
Нужно завтра сдавать лабораторную. Я не сделал 3 задания и не знаю, как их делать bwitcher Помощь студентам 5 10.06.2010 00:02
и все равно мерцает! Spiritual Win Api 4 06.02.2009 20:28
Делимся идеями (простыми, но до которых все-равно нужно додуматься) Jora_Kornev Общие вопросы Delphi 3 11.01.2009 14:18
сайт сделан в CSS, почему в експлолере он у меня глючит, а в мозиле все показывается как я сделал? -=Ламер=- HTML и CSS 16 11.09.2008 18:12