Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 29.11.2012, 20:57   #1 (permalink)
Wenia
Новичок
 
Регистрация: 15.11.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Arrow Ввести строку и инвертировать каждое слово

Помогите составить на языке Паскаль программу, управляющуюся с помощью меню. А то я ничего в этом не понимаю
В меню обязательно должны войти пункты:
1) ввод и обработка символьной строки с выводом результатов; (задача1)
2) ввод и обработка двумерного массива с выдачей результатов;(задача2)
3) выход из программы (с подтверждением).

Алгоритмы задач 1 и 2 оформить в виде процедур или функций, внутренних по отношению к главной программе.

Задача №1.
Ввести строку и инвертировать каждое слово.
Задача №2.
Ввести матрицу и определить в ней максимум с координатами / минимум с координатами.

Матрицу и число строк/столбцов ввести должна сама.
И нужно сделать так, что бы матрица вводилась в ручную, а не заполнялась рандомом.

)
Wenia вне форума   Ответить с цитированием

Старый 29.11.2012, 20:57
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В интернете много аналогичного, вот, что нашлось у нас

В двоичном представлении числа инвертировать две последние цифры числа
Не могу войти в ОК, просят ввести телефон
Слово из свтодиодов
Слово из светодиодов
ВКонтакте просит ввести номер
Как убрать вторую строку при выборе операционной системы?

Старый 30.11.2012, 11:22   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,287
Сказал(а) спасибо: 290
Поблагодарили 509 раз(а) в 167 сообщениях
Репутация: 92053
По умолчанию

Цитата:
Сообщение от Wenia Посмотреть сообщение
А то я ничего в этом не понимаю
Что весьма прискорбно, Веня. Ну хорошо, нарисую я Вам эту дурацкую задачку - а дальше что? Задания - они, знаете ли, имеют такое поганое свойство усложняться с течением времени, и как? Дальше будет "сделайте мне курсовую, а я пошел футбол смотреть"? Нет, на форумах далеко не уедете, уверяю Вас. Так что решайте, пока не поздно - браться ли за ум или поиметь перспективу отчисления. А задачка - да пожалуйста:

Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 01.12.2012, 13:52   #3 (permalink)
Wenia
Новичок
 
Регистрация: 15.11.2012
Сообщений: 6
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Vladimir_S, спасибки за задачку!))) =*)))
Ох, я не переживаю за отчисление ибо по всем предметам, кроме информатики у меня все прекрасно)) И курсовая уже написана))
Просто нам поставили на 1 семестр этот предмет, а я как гуманитарий ничегошеньки в этом не смыслю(никогда не понимала ни икт, ни физику, зато прекрасно знаю историю и обществознание)), мне осталось потерпеть всего месяц и этот кошмар закончиться))
И я уже не появлюсь на этом форуме, с просьбами о помощи)) ^.^
Wenia вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 04:31.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.