Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.01.2011, 17:56   #1
[Te[M]ka]
Пользователь
 
Регистрация: 18.01.2011
Сообщений: 25
По умолчанию символьные переменные

10. Даны натуральное число n и символы s1...sn , среди которых есть двоеточие.
а) Получить все символы, расположенные до первого двоеточия включительно.
б) Получить все символы, расположенные после первого двоеточия.
в) Получить все символы, расположенные между первым и вторым двоеточием. Если второго двоеточия нет, то получить все символы, расположенные после единственного имеющегося двоеточия.

Помогите пожалуйста решить. Завтра экзамен, а данная лабораторная работа весит, как долг.

Последний раз редактировалось [Te[M]ka]; 18.01.2011 в 17:58.
[Te[M]ka] вне форума Ответить с цитированием
Старый 18.01.2011, 18:25   #2
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

Код:
а
var s:string;
    i,j,n:integer;
    begin
    read(s);
    i:=1;
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=1 to j-1 do
    write(s[i]);
    end.
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 18:26   #3
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

Код:
б
var s:string;
    i,j,n:integer;
    begin
    read(s);
    i:=1;
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to length(s) do
    write(s[i]);
    end.
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 18:30   #4
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

в
Код:
var s:string;
    i,j,n,k:integer;
    begin
    read(s);
    i:=1;
    s:=s+' ';
    k:=length(s);
    while (i<=length(s)) do begin
    if s[i]=':' then begin ; j:=i;break end else i:=i+1;
    end;
    for i:=j+1 to length(s) do begin
    if s[i]=':' then begin k:=i; break; end;
    end;
    if k<>length(s)then k:=k-1;
    for i:=j+1 to k do
    write(s[i]);
    end.
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 18:31   #5
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

может и сложно для когото решено ... по дургому счас не могу мозг не варит!
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 18:57   #6
[Te[M]ka]
Пользователь
 
Регистрация: 18.01.2011
Сообщений: 25
По умолчанию

Рахдет огромный тебе. Завтра теперь пойду экзамен сдавать. Не знаю, что и делал бы без тебя. спасиба.
[Te[M]ka] вне форума Ответить с цитированием
Старый 18.01.2011, 19:00   #7
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

незачто надеюсь реально помог)
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 19:17   #8
[Te[M]ka]
Пользователь
 
Регистрация: 18.01.2011
Сообщений: 25
По умолчанию

а что сами данные в прогру не вводятся?
[Te[M]ka] вне форума Ответить с цитированием
Старый 18.01.2011, 19:44   #9
Shift_sk
Форумчанин
 
Регистрация: 20.11.2010
Сообщений: 221
По умолчанию

а все понел как ет надо!счас сделаю!
www.bezperepl.at.ua
Код:
...
Shift_sk вне форума Ответить с цитированием
Старый 18.01.2011, 19:47   #10
[Te[M]ka]
Пользователь
 
Регистрация: 18.01.2011
Сообщений: 25
По умолчанию

аа все. сделал все. не надо.
[Te[M]ka] вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Символьные переменные Chuvak ot dushi Паскаль, Turbo Pascal, PascalABC.NET 3 03.01.2011 16:04
Символьные функции marme Общие вопросы C/C++ 4 22.12.2010 22:32
Переменные экземпляра,класса, константы и переменные cop08 Общие вопросы .NET 3 20.12.2010 21:56
Символьные переменные. Строки. Паскаль Oda33 Помощь студентам 2 16.11.2010 21:09
Помогите пожалуйста на "Символьные переменные" apetr Паскаль, Turbo Pascal, PascalABC.NET 4 30.11.2008 07:41