|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
29.11.2012, 20:57 | #1 (permalink) |
Новичок
Регистрация: 15.11.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ввести строку и инвертировать каждое слово
В меню обязательно должны войти пункты: 1) ввод и обработка символьной строки с выводом результатов; (задача1) 2) ввод и обработка двумерного массива с выдачей результатов;(задача2) 3) выход из программы (с подтверждением). Алгоритмы задач 1 и 2 оформить в виде процедур или функций, внутренних по отношению к главной программе. Задача №1. Ввести строку и инвертировать каждое слово. Задача №2. Ввести матрицу и определить в ней максимум с координатами / минимум с координатами. Матрицу и число строк/столбцов ввести должна сама. И нужно сделать так, что бы матрица вводилась в ручную, а не заполнялась рандомом. ) |
29.11.2012, 20:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В интернете много аналогичного, вот, что нашлось у нас В двоичном представлении числа инвертировать две последние цифры числа Не могу войти в ОК, просят ввести телефон Слово из свтодиодов Слово из светодиодов ВКонтакте просит ввести номер Как убрать вторую строку при выборе операционной системы? |
30.11.2012, 11:22 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Что весьма прискорбно, Веня. Ну хорошо, нарисую я Вам эту дурацкую задачку - а дальше что? Задания - они, знаете ли, имеют такое поганое свойство усложняться с течением времени, и как? Дальше будет "сделайте мне курсовую, а я пошел футбол смотреть"? Нет, на форумах далеко не уедете, уверяю Вас. Так что решайте, пока не поздно - браться ли за ум или поиметь перспективу отчисления. А задачка - да пожалуйста:
Код:
Var YN:Char; Game:Byte; Procedure String_Game; Var S:String; W,Wrd:Array[1..100] of String; Nw,i,j:Byte; begin Writeln('Enter the string:'); Readln(S); Nw:=1; i:=0; W[Nw]:=''; Repeat Inc(i); If (S[i]<>' ') and (i<=Length(S)) then W[Nw]:=W[Nw]+S[i] else If S[i]=' ' then begin repeat Inc(i); until S[i]<>' '; Dec(i); Inc(Nw); W[Nw]:=''; end; Until i>Length(S); For i:=1 to Nw do begin For j:=Length(W[i]) downto 1 do Write(W[i][j]); If i<Nw then Write(' '); end; Writeln end; Procedure Matrix_Game; Const Mmax=9; Nmax=9; Var A:Array[1..Mmax,1..Nmax] of Integer; M,N,i,j,Imin,Imax,Jmin,Jmax:Byte; Min,Max:Integer; begin Write('Number of lines = '); Readln(M); Write('Number of columns = '); Readln(N); For i:=1 to M do For j:=1 to N do begin Write('A[',i,',',j,']= '); Readln(A[i,j]); end; Writeln; Imin:=1; Jmin:=1; Imax:=1; Jmax:=1; Min:=A[1,1]; Max:=A[1,1]; For i:=1 to M do begin For j:=1 to N do begin Write(A[i,j]:8); If A[i,j]<Min then begin Min:=A[i,j]; Imin:=i; Jmin:=j; end; If A[i,j]>Max then begin Max:=A[i,j]; Imax:=i; Jmax:=j; end; end; Writeln; end; Writeln; Writeln('Minimal element is A[',Imin,',',Jmin,']=',A[Imin,Jmin]); Writeln('Maximal element is A[',Imax,',',Jmax,']=',A[Imax,Jmax]); Writeln; end; Begin Repeat YN:=' '; Write('Choose the game: 1 - String, 2 - Matrix, 3 - Exit '); Readln(Game); If Game=1 then String_Game; If Game=2 then Matrix_Game; If Game=3 then begin Write('Are you sure (Y/N)? '); Readln(YN); end; Until (YN='Y') or (YN='y'); End. |
01.12.2012, 13:52 | #3 (permalink) |
Новичок
Регистрация: 15.11.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Vladimir_S, спасибки за задачку!))) =*)))
Ох, я не переживаю за отчисление ибо по всем предметам, кроме информатики у меня все прекрасно)) И курсовая уже написана)) Просто нам поставили на 1 семестр этот предмет, а я как гуманитарий ничегошеньки в этом не смыслю(никогда не понимала ни икт, ни физику, зато прекрасно знаю историю и обществознание)), мне осталось потерпеть всего месяц и этот кошмар закончиться)) И я уже не появлюсь на этом форуме, с просьбами о помощи)) ^.^ |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|