Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Паскальщигг
0 / 0 / 0
Регистрация: 14.11.2008
Сообщений: 1
1

Определить последнее вхождение цифры в каждой строке

17.11.2008, 21:42. Просмотров 767. Ответов 2
Метки нет (Все метки)

1. Дан массив строк. Определить последнее вхождение цифры в каждой строке
2. Определить число символов в массиве B[n], после символа '*', не являющихся цифрами и переписать их в новый массив. n - число элементов массива.
Помогите, плз.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2008, 21:42
Ответы с готовыми решениями:

Даны три строки: S1, S2, S3. Заменить в строке S1 последнее вхождение строки S2 на S3
Помогите плиз написать программу: Даны три строки: S1, S2, S3. Заменить в...

Преобразовать файл, удалив последнее слово в каждой строке
Доброго времени суток народ! Нужно решить 2 задачи 1 Преобразовать файл,...

Определить сумму элементов в каждой строке матрицы и максимальные элементы в каждой строке
пожалуйста, помогите написать программу по заданию: получить целочисленную...

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

Преобразовать текстовый файл, удалив последнее слово в каждой строке
Здравствуйте. Вот две задачи: 1) Преобразовать текстовый файл, удалив...

2
Паскальщигг2
0 / 0 / 0
Регистрация: 14.11.2008
Сообщений: 1
17.11.2008, 21:49 2
на pascal нужно...
0
Puporev
Модератор
55472 / 42576 / 29425
Регистрация: 18.05.2008
Сообщений: 100,721
17.11.2008, 22:18 3
Код
№1.
uses crt;
var s:array[1..50]of string;
    n,i,j,k:integer;
begin
clrscr;
write('Ведите количество строк n=');
readln(n);
for i:=1 to n do
  begin
   write('s[',i,']=');
   readln(s[i]);
  end;
for i:=1 to n do
  begin
    for j:=length(s[i])downto 1 do
    if s[i][j] in ['0'..'9'] then
      begin
        k:=j;
        break;
      end;
    if k=0 then writeln('В строке ',i,' цифр нет') else
    writeln('В строке ',i,' последняя цифра на позиции ',k);
  end;
readln
end.

№2.
uses crt;
var b,c:array[1..100]of char;
    n,i,j,k,t:integer;
begin
clrscr;
write('Введите размерность массива В n=');
readln(n);
for i:=1 to n do
read(b[i]);
readln;
k:=0;t:=0;
for i:=1 to n do
if b[i]='*' then
for j:=i+1 to n do
if not (b[j] in ['0'..'9']) then
   begin
     k:=k+1;
     c[k]:=b[j];
   end;
writeln('Количество символов=',k);
writeln('Массив этих символов:');
for i:=1 to k do
write(c[i]);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2008, 22:18

В каждой строке найти первое вхождение значения 10 и все последующие значения заменить нулем
Дана матрица размером n*m. В каждой строке найти первое вхождение значения 10 и...

Определить последнее из слов первой строки, которое есть во второй строке
Друзья помогите решить задачку пожалуйста никак не могу справиться!!! Даны...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru