|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
04.02.2011, 20:21 | #1 (permalink) |
Member
Регистрация: 05.11.2010
Сообщений: 206
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 127
|
Помогите составить алгоритм на Паскале
|
04.02.2011, 20:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно, что вы еще не читали аналогичные по содержанию топики Разработать алгоритм и составить программу для решения задачи Помогите пожалуйста составить программу Помогите составить программу на Паскале |
04.02.2011, 21:34 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Но Вы, как видно, не желаете разбираться даже с готовым решением - давайте делайте за меня, а я пошел футбол смотреть. Так? Знаете - пожалуй, приоткрою немного служебной информации. Среди модераторов нашего форума давно обсуждается идея закрытия программистского раздела к чертовой матери. Именно из-за таких, как Вы. Жаль только тех ребят, кто нуждается реально в помощи и консультации. Они есть, и их немало. Но лодырей и иждивенцев, увы, существенно больше. Извините, накипело. |
|
05.02.2011, 12:28 | #4 (permalink) |
Member
Регистрация: 05.11.2010
Сообщений: 206
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 127
|
хммм... вообщето я был занят другими задачами, которые я был в силах решить, а не смотрел футбол. просто невнимательность, даже сказать незнание, т.к. я не шарю в паскале, я думал что алгоритмы отличаются. вот и обратился за новой помощью.
|
05.02.2011, 12:50 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Эх, что уж с Вами сделаешь... Гореть мне в аду, ну да ладно: Код:
VAR S,S1:String; S2:Array[1..250] of String; i,i1,i2,k:Byte; BEGIN WriteLn('Enter the string:'); ReadLn(S); WriteLn; i:=0; k:=0; Repeat Repeat Inc(i); Until S[i]<>' '; i1:=i; Repeat Inc(i); Until (S[i]=' ') or (i=Length(S)); If S[i]=' ' then i2:=i else i2:=i+1; S1:=Copy(S,i1,(i2-i1)); WriteLn(S1); If (S1[1]='a') or (S1[1]='A') or (S1[1]='а') or (S1[1]='А') then begin Inc(k); S2[k]:=S1; end; Until i=Length(S); WriteLn; WriteLn; For i:=1 to k do Write(S2[i]+' '); WriteLn; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|