Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Belfegor

Ghost

174 / 174 / 40

Регистрация: 16.09.2012

Сообщений: 526

Опредилить длину слова (коррекция кода:)

30.10.2012, 19:38. Показов 437. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Программа по введенной строке считает количество символов в слове,
и выводит до 20 символов, помогите изменить чтобы выводило именно количество символов а не заполняло масив из 20 элементов

Pascal
1
For i := 1 to 20 do Write (mas[i],' ');

(заполняет существующие символы, если в строке слом меньше на местах не использованых адресов массива пишет 0) надо чтоб просто количество символов без лишних нулей))) уже запутался

помогите пожалуйста)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var mas: array [1..50] of integer;
    i, x: integer;
    S, S2: string;
begin
S2 := ''; x := 1;
Writeln ('Vvedite stroky:'); Readln (S);
For i := 1 to Length(S) do begin
      S2 := S2 + S[i];
      if S[i] = ' ' then begin
      mas[x] := Length(S2) - 1; S2 := ''; x := x + 1; End;
      if S[i] = '.' then begin mas[x] := Length(S2) - 1; break; End;
      if i = Length(S) then mas[x] := Length(S2);
End;
For i := 1 to 20 do Write (mas[i],' ');
Readln;
end.

Добавлено через 36 минут

Pascal
1
For i := 1 to x do Write (mas[i],' ');

все спасибо

сам понял

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

30.10.2012, 19:38

Ответы с готовыми решениями:

Определить длину слова, стоящего на N-ом месте и вывести все слова, состоящие из такого же количества символов
Задача № 1. Дана символьная строка и натуральное число N. Слово - последовательность символов между пробелами, не содержащая пробелы внутри...

Массивы, коррекция кода
Для одномерного массива целых чисел B (n) найти частное от деления суммы индексов парных положительных элементов на произведение индексов...

Коррекция монотонного кода
Посоветуйте какие-нибудь методы, литературу, мб варианты. Дано: 20-26 разрядный монотонный грееподобный (однопеременный) код...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

30.10.2012, 19:38

Помогаю со студенческими работами здесь

Коррекция кода анимации снеговика
Я нарисовал снеговика в канве, заставил двигаться с помощью таймера , создал вторую процедуру что бы закрашивать путь снеговика...

Поиск в файле - коррекция кода
Добрый день! Помогите пожалуйста с программой. У меня есть строка str: "6,12_6,23_23,45_82,5_", где первое число до запятой это...

Умножение матриц - коррекция кода
Помогите пожалуйста вроде прогу пральную написал но ответы не совпадают даны две прямоугольные матрицы A и B размерности m×n и...

как опредилить вхождения каждого слова в строке?
Помогите пожалуйста,мой мозг кипит))Как опредилить вхождения каждого слова в строке.Пример: Папа мама ,папа,мама Папа -2 раза. Мама -...

Определить длину и позицию слова, которое имеет наименьшую длину в строке
Определить длину и позицию слова, которое имеет наименьшую длину в строке. Строки Пожалуйста помогите!

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Наверх