Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 21.10.2016
Сообщений: 9
1

Программа по строкам неправильно работает

21.10.2016, 10:51. Показов 551. Ответов 3
Метки нет (Все метки)

Программу написал, но есть проблема:вместе с нужными символами выводится ":". Подскажите, как можно исправить это? Или программу в общем, если она неправильная.
Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program str;
Var s:string; sim:char;
Begin
 writeln('Write strind, na kone4 - .');
 repeat
  read(sim);
  s:=s+sim;
 until (sim='.')or(sim=':');
 writeln(s);
 readln;
 readln
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.10.2016, 10:51
Ответы с готовыми решениями:

Прогрессия. Программа работает неправильно
Если ввести 1,2,3,7,9,4,6,8,5 Программа выведет 1,2,3,4,5,6,7,8,9, а должна был вывести отдельно...

Несложная программа неправильно работает в turbo
я начинающий..прога простая, не очень красивая..но всё же...вот код: uses crt; var a, b:...

Программа неправильно работает
Здравствуйте!!!Помогите кто может.Перебрала разные варианты...и все равно не выходит. Написала...

множества. Программа работает неправильно
uses crt; type mn=set of char; var a,b,c:mn; x,y,z:char; procedure enter(var a,b,c:mn); ...

3
Модератор
Эксперт по электронике
7762 / 3911 / 1504
Регистрация: 01.02.2015
Сообщений: 12,068
Записей в блоге: 2
21.10.2016, 11:38 2
Pascal
1
2
3
4
5
6
    read(sim);
    if (sim<>'.') and (sim<>':') then
      s:=s+sim
    else
      break;
  until false;
Добавлено через 2 минуты
или лучше
Pascal
1
2
3
4
5
    read(sim);
    if (sim='.') or (sim=':') then
      break;
    s:=s+sim;
  until false;
1
0 / 0 / 0
Регистрация: 21.10.2016
Сообщений: 9
21.10.2016, 11:42  [ТС] 3
Спасибо за помощь!
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
6186 / 3708 / 2562
Регистрация: 22.11.2013
Сообщений: 10,600
Записей в блоге: 1
22.10.2016, 09:06 4
Или
Pascal
1
2
3
4
5
  Read(sim);
  while not (sim in ['.',':']) do begin
    s:=s+sim;
    Read(sim);
  end;
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.10.2016, 09:06

Неправильно работает программа со списками
Пишу программу для работы магазина аудио-CD с использованием списков. Делал по примеру аналогичной...

Неправильно работает программа шифрования-дешифрования
Program P_026_CRYPT; Var inF , outF :text; s :string; k :integer; const key = 2; ...

Неправильно работает программа
Может что-то нужно дописать в мэйн? using System; using System.Collections; using...

Неправильно работает программа
Сумма ноль всегда исходные данные целые числа #include &quot;pch.h&quot; #include &lt;iostream&gt; #include...

Неправильно работает программа
#include &lt;iostream&gt; #include &lt;cstring&gt; #include &lt;windows.h&gt; using namespace std; const int...

Программа работает, но неправильно
Определить новые версии классов ResearchTeam и ResearchTeamCollection&lt;TKey&gt;. Новая версия класса...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru