Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
3 / 3 / 1
Регистрация: 08.10.2011
Сообщений: 73

строки.

24.10.2011, 22:58. Показов 493. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив А из N строк длиной M. Сформировать массив В, каждый элемент которого равен первому латинскому символу соответствующей строки.
что то не понимаю как делать....(
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.10.2011, 22:58
Ответы с готовыми решениями:

Дан массив строк. Преобразовать строки с четной длиной по правилу: удалить все цифры из второй половины строки; а строки
pascalABC.net

Файл: Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки файла, а в конце строки - согласные
Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки данного текстового файла, а в конце строки...

Дописывать в файл строки, проверяя, нет ли в файле точно такой строки
Имеется текстовый файл. Написать программу, позволяющую дописывать в файл строки, проверяя, нет ли в файле точно такой строки. Если строка...

3
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
25.10.2011, 08:35
А если в строке нет латинских символов, то что писать в массив?
0
3 / 3 / 1
Регистрация: 08.10.2011
Сообщений: 73
25.10.2011, 20:49  [ТС]
Цитата Сообщение от Puporev Посмотреть сообщение
А если в строке нет латинских символов, то что писать в массив?
любой символ не относящийся к латинскому алфавиту. например мохнатую точку *
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
28.10.2011, 17:25
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
uses crt;
const nmax=100;
      mmax=80;
var a:array[1..nmax] of string[mmax];
    b:array[1..nmax] of char;
    n,m,i,j:integer;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Длина строк до ',mmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите ',n,' строк по ',m,' символов:');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
 begin
  j:=1;
  while (j<=m)and not(a[i][j] in ['A'..'Z','a'..'z']) do
  j:=j+1;
  if (j>m)and not(a[i][j] in ['A'..'Z','a'..'z'])then b[i]:='*'
  else b[i]:=a[i][j];
 end;
writeln('Массив первых латинских символов:');
for i:=1 to n do
write(b[i]);
readln
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
28.10.2011, 17:25
Помогаю со студенческими работами здесь

Дописать в файл строки, проверяя, нет ли в файле точно такой строки
Помогите решить, заранее спасибо)) 10. Имеется текстовый файл. Написать программу, позволяющую дописывать в файл строки, проверяя, нет ли...

Напечатайте те гласные буквы строки, которые встречаются в каждом слове строки
дана строка. напечатайте те гласные буквы, которые встречаются в каждом слове строки.

В матрице переставить строки в порядке убывания количества отрицательных элементов строки
В матрице А и В переставить строки в порядке убывания количества отрицательных чисел в строке. Спасибо за ранее!

Вывести первое слово строки, если первый символ строки-пробел
uses crt; var s1, s2, s3, s4 : string; k, n, i : byte; a : set of char; ch : char; begin s2 := ''; s4 := ''; a := ;

Вычесть из каждого элемента строки первый отрицательный элемент данной строки
Ребят помогите с условием. Вычесть из каждого элемента строки первый отрицательный элемент данной строки. var mas:array of...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru