Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
 Аватар для roanna
16 / 16 / 3
Регистрация: 11.11.2010
Сообщений: 88

Масив. Строки. Проверка...

21.02.2011, 07:02. Показов 1598. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Написать программу, которая получает на вход строку, которая выглядит так: "целое число" + "целое число" + "целое число" + .... Потом проверяет строку на корректность. В случае корректности ввода, выводит результат.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
21.02.2011, 07:02
Ответы с готовыми решениями:

Упорядочить масивы по убыванию значений,и включить число Р в масив А,число Q в масив B,8 - в С.
Дано 3 масива A(1..n),B(1..10),C(1..m),а также числа P ,Q и 8.Упорядочить масивы по убыванию значений,и включить число Р в масив А,число Q...

Проверка строки на допустимость
Написал процедуру проверки введенного пола на допустимость из массива строк, и почему-то не работает. Что не так? Если можно - исправьте,...

Дано одновимірний масив, розміром 10 елементів. Заповнити масив значеннями з клавіатури та виведіть масив на екран в прямому та зворотньому порядку.
1.Дано одновимірний масив, розміром 10 елементів. Заповнити масив значеннями з клавіатури та виведіть масив на екран в прямому та...

1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,168
21.02.2011, 07:44
Лучший ответ Сообщение было отмечено roanna как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses crt;
const ds=['0'..'9','+'];
      cf=['0'..'9'];
var s:string;
    i:byte;
    t,c,sm:integer;
    f:boolean;
begin
clrscr;
writeln('Введите строку из целых чисел, разделенных знаком +');
readln(s);
f:=true;
{будем считать что первый и последний символы должны быть цифрами}
if not (s[1] in cf)or not(s[length(s)] in cf) then f:=false
else if pos('++',s)>0 then f:=false{не должно быть двух + подряд}
else
 begin
  i:=1;{и проверим вообще на допустимые символы}
  while(i<=length(s))and f do
  if not(s[i] in ds) then f:=false
  else i:=i+1;
 end;
if not f then write('Строка введена неверно!')
else
 begin
  sm:=0;
  s:=s+'+';{добавим в конец +}
  while pos('+',s)>0 do{пока есть плюсы}
   begin
    val(copy(s,1,pos('+',s)-1),t,c);{преобразуем первое слово до + в число}
    sm:=sm+t;{суммируем}
    delete(s,1,pos('+',s));{удаляем его, следующее первое}
   end;
  write('Сумма=',sm);
 end;
readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
21.02.2011, 07:44
Помогаю со студенческими работами здесь

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

получить из строки - масив
здравствуите есть такая строка $mas = 'array(&quot;aaa&quot;,&quot;bbb&quot;,array(1,2,3),&quot;ccc&quot;,&quot;ddd&quot;)'; как можно получить из етои строки, масив...

Преобразование строки в масив
Какое имя функции что би представить строку в Memo как масив,если разделитель знак табуляции??

получит обратни масив исходного масива так, что сохранить и исходноги масив
здравствуите есть масив, хочу сделеть обратни /reverse/ масив из етого масива, но так, что сохранить и первични масив. сделаю так ...

Динамический масив: записать в масив все делители числа n
Нужно записать в масив все делители числа n програма запускается но видает ошибку доступа к памяти... помогите разобраться #include...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru