Вопросы от Ромарио! Опции

[Romario]

Ясно, значит если знаешь Паскаль - значит знаешь C++ Delphi Assembler и так дал... :D

[Romario]

У меня вот ещё какой вопрос:

Дана последовательность из n вещественных чисел. Вычислить сумму тех элементов последовательности, номера которых совпадают со значениями элементов последовательности.

Так вот как тут?
Как задать: номера которых совпадают со значениями элементов последова-тельности

Как это задаётся? Я сначала думал pos(x), а нет. Помогите! :-[

[Ivs]

Ну тут все просто.....

for i:=1 to n do
  if i=a[i] then S:=S+a[i];
усе.........  ;)

[Alex]

Каждый язык надо учить в отдельности.
Например между Пасом и с++ достаточно большие различия.Я его как-то начинал учить!!!

[AlaRic]

С++ посложнее будет.....у меня книга валяется да руки никак не дойдут..

[mj]

Вот когда изучете все языки программирования, когда они смашаются в башке в кашу, вот тогда будете судить что сложнее

[Romario]

Вот когда изучете все языки программирования, когда они смашаются в башке в кашу, вот тогда будете судить что сложнее

Мне бы хоть один выучить  ;)

[mj]

Если долго мучиться, что нибудь получится...

Pascal не такой и сложный, самое главное понять алгоритмы...

Например такой вопрос:
Как проще всего нарисовать окошко из текстовых чёрточек? (высота и ширина передаются в переменных)

[Romario]

Если долго мучиться, что нибудь получится...

Pascal не такой и сложный, самое главное понять алгоритмы...

Например такой вопрос:
Как проще всего нарисовать окошко из текстовых чёрточек? (высота и ширина передаются в переменных)

Я пас... и как же?

[mj]

Я пас... и как же?

Ну напиши как бы ты рисовал, в какой последовательности и какие элементы окна (тапи подсказка)?

[Romario]

Если честно, понятия не имею... говори

[mj]

1) простой способ
Ну сначала рисуем цыклом границы, потом цыклом поле.

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

Спросите: как можно было иначе?
Ответ: обычные студенты техникумов как угодно рисуют, но только не так

Неужели так сложно?
Или я так непонятно спросил?

Кстати на сайти открыт раздел задачек, он будет быстро пополнятся...

[Romario]

Вот ещё задачки, 6 лабораторная

1.Дана символьная строка. Заменить все символы '!' точками, кроме первого и вывести полученную строку.

2.Дана символьная строка. Определить, есть ли в данной строке два любых одинаковых символа, и вывести соответствующее сообщение.

3.Дана символьная строка и слово, состоящее из четырех символов. Определить, есть ли в данной строке все буквы данного слова.

4.Дана символьная строка. Получить новую строку, взяв из данной все символы до первого двоеточия и после последнего. Если двоеточие отсутствует или встречается в строке только один раз, то вывести соответствующее сообщение.

5.Дана символьная строка. Получить новую строку, взяв из данной все символы, находящиеся между первой открывающейся скобкой и последней закрывающейся (если какие-либо скобки отсутствует, то вывести соответствующее сообщение).

6.Дана символьная строка. Заменить все последовательности символов 'on' на 'online' и вывести новую строку (если искомой последовательности в строке нет, то вывести соответствующее сообщение).

7.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов в данной строке.

8.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить длину самого короткого слова.

9.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить длину самого короткого слова.

10.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов заданной длины.

11.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество и вывести все самые длинные слова.

12.Дана символьная строка и натуральное число N. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить длину слова, стоящего на N-ом месте и вывести все слова, состоящие из такого же количества символов, что и найденное слово. Если N больше количества слов в предложении, то вывести соответствующее сообщение.

13.Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов в строке, оканчивающихся на заданный символ.

14.Дана строка символов. Определить количество букв 'о' между самой левой открывающейся скобкой и самой правой закрывающейся скобкой (если какие-либо скобки отсутствует, то вывести соответствующее сообщение).

15.Дана символьная строка. Подсчитать наибольшее количество букв 'а', идущих в ней подряд.

16.Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести все слова, в которых есть заданный символ.

17.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Заменить окончания слов 'ing' на 'ed' и вывести полученную строку.

18.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Отредактировать заданное предложение, удаляя из него слова, которые уже встречались в предложении.

19.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Найти самое длинное симметричное слово.

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

21.Даны две символьные строки. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести слова, которые встречаются в обеих строках.

22.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Отредактировать заданное предложение, удаляя из него слова с нечетными номерами и переворачивая слова с четными (пример, нow do you do --> od od).

23.Даны две символьные строки. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Каждая строка состоит из попарно различных слов. Проверить, можно ли получить вторую строку из первой, удалением некоторых её символов.

24.Даны две символьные строки. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Найти самое длинное общее слово двух заданных предложений.

[Clane]

Хех, немало задачек то.... Что у тебя за препод такой, что за раз столько задает, а ??

[Ivs]

Сколько смог.....

Код

{Program N_1;
uses crt;
var
  s:string;
  i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=pos('!',s);
  i:=i+1;
  while i<=length(s) do
  begin
     if s[i]='!' then s[i]:='.';
     i:=i+1;
  end;
  writeln('OutPut -> ',s);
  readln;
end. }

{Program N_2;
uses crt;
var
  s:string;
  i,j:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  for i:=1 to length(s)-1 do
     for j:=i+1 to length(s) do
      if s[i]=s[j] then
      begin
         b:=true;
         write('Yes! This is ',s[i],'!');
         readln;
         halt;
      end;
  write('No!');
  readln;
end.}

{Program N_3;
uses crt;
var
  M:set of char;
  s,sl:string;
  i:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input word -> ');readln(sl);
  for i:=1 to length(s) do M:=M+[s[i]];
  b:=true;
  for i:=1 to length(sl) do
     if not(sl[i] in M) then begin b:=false;break;end;
  if b then write('All symbols of word are in string')
     else write('NOoooo!');
  readln;
end.}

{Program N_4;
uses crt;
var
  s,s1,s2,res:string;
  i,j,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  for i:=1 to length(s) do
     if s[i]=':' then k:=k+1;
  if k>=2 then
  begin
     i:=pos(':',s);
     s1:=Copy(s,1,i-1);
     for j:=length(s) downto i+1 do
      if s[j]=':' then
      begin
         s2:=Copy(s,j+1,length(s));
         break;
      end;
  write('OutPut: ',s1+s2);
  end else write('No correct data!');
  readln;
end.}

{Program N_5;
uses crt;
var
  s,str:string;
  i1,i2,j,i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i1:=0;i2:=0;
  for i:=length(s) downto 1 do
     if s[i]='(' then begin i1:=i;break end;
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;break end;

  if (i1=0) or (i2=0) then begin write('No correct data!');readln;exit end
  else str:=copy(s,i1+1,(i2-i1)-1);

  write('OutPut -> ',str);
  readln;
end.}

{Program N_6;
uses crt;
var
  s,s2:string;
  i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     if (s[i]='o') and (s[i+1]='n') then begin s2:=s2+'online';i:=i+1;end
                            else s2:=s2+s[i];
     i:=i+1;
  end;
  if s=s2 then write('No correct data')
        else write('OutPut -> ',s2);
  readln;
end.}

{Program N_7;
uses crt;
var
  s,t:string;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     k:=k+1;
     i:=i+1;
  end;
  write('Word: ',k);
  readln;
end. }

{Program N_8;
uses crt;
var
  s,t:string;
  i,min:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  min:=length(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)<min then min:=length(t);
     i:=i+1;
  end;
  write('Very small word this is ',min,' symbols');
  readln;
end.}

{Program N_9;’®¦Ґ б ¬®Ґ зв® N_8}

{Program N_10;
uses crt;
var
  s,t:string;
  i,long,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input long -> ');readln(long);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)=long then k:=k+1;
     i:=i+1;
  end;
  write('OutPut -> ',k);
  readln;
end.}

{Program N_11;
uses crt;
var
  s,t:string;
  i,max,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;max:=0;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)>=max then begin max:=length(t);k:=k+1 end;
     i:=i+1;
  end;
  writeln('Very long word: ',k);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)=max then writeln(t);
     i:=i+1;
  end;
  readln;
end. }

[Ivs]

Далее.........

Код

{Program N_12;
uses crt;
var
  s,t,s2:string;
  i,N,k,m:integer;
  b:boolean;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input Number -> ');readln(N);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     k:=k+1;
     if k=N then begin writeln('OutPut -> ',t);m:=length(t);s2:=t;b:=true;break end;
     i:=i+1;
  end;
  if not(b) then write('Number > word')
  else begin
     i:=1;
     while i<=length(s) do
     begin
      t:='';
      while (s[i]<>' ') and (i<=length(s)) do
      begin
         t:=t+s[i];
         i:=i+1;
      end;
      if t<>s2 then
         if length(t)=m then writeln(t);
      i:=i+1;
     end;
  end;
  readln;
end. }

{Program N_13;
uses crt;
var
  s,t:string;
  ch:char;
  i,k:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');readln(ch);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if t[length(t)]=ch then k:=k+1;
     i:=i+1;
  end;
  write('OutPut -> ',k);
  readln;
end.}

{Program N_14;
uses crt;
var
  s,str:string;
  i1,i2,j,i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i1:=0;i2:=0;
  i1:=pos('(',s);
  for j:=length(s) downto i1+1 do
     if s[j]=')' then begin i2:=j;break end;
  if (i1=0) or (i2=0) then write('Not correct data!')
  else begin
     str:=Copy(s,i1+1,(i2-i1)-1);
     write('OutPut -> ',str);
  end;
  readln;
end.}

{Program N_15;
uses crt;
var
  s:string;
  i,k,max:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;max:=0;
  while i<=length(s) do
  begin
     k:=0;
     while (s[i]='a') and (i<=length(s)) do
     begin
      k:=k+1;
      i:=i+1;
     end;
     if k>max then max:=k;
     i:=i+1;
  end;
  write('Max ''a'' -> ',max);
  readln;
end.}

{Program N_16;
uses crt;
var
  s,t:string;
  ch:char;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');readln(ch);
  writeln('OutPut: ');
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     j:=1;
     while j<=length(t) do
     begin
      if t[j]=ch then begin writeln(t);break end;
      j:=j+1;
     end;
     i:=i+1;
  end;
  readln;
end. }

{Program N_17;
uses crt;
var
  s,t,s2:string;
  i:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t)>3 then
      if (t[length(t)-2]+t[length(t)-1]+t[length(t)])='ing' then
      begin
         delete(t,length(t)-2,3);
         insert('ed',t,length(t)+1);
      end;
     s2:=s2+t+' ';
     i:=i+1;
  end;
  write('OutPut -> ',s2);
  readln;
end. }

{Program N_18;
uses crt;
var
  s,t,s2:string;
  i,j,k:integer;
  a:array[1..100] of string;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;j:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  k:=j-1;
  for i:=2 to k do
     for j:=i-1 downto 1 do
      if a[i]=a[j] then a[j]:='';
  for i:=1 to k do write(a[i],' ');

  readln;
end.}

{Program N_19;
uses crt;
var
  s,t,s2,m,s1:string;
  i,k,max:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     if length(t) mod 2=0 then
     begin
      k:=length(t) div 2;
      s1:=copy(t,1,k);
      s2:=copy(t,k+1,k);
      if s1=s2 then
         if length(t)>max then begin max:=length(t);m:=t;end;
     end;
     i:=i+1;
  end;
  write('Very long simmetric word: ',m);
  readln;
end.}

[Ivs]

Код

{Program N_20;
uses crt;
var
  s,t,s1:string;
  i,k,h,j:integer;
  a:array[1..100] of string;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;j:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  for i:=1 to h-1 do
  begin
     k:=1;
     if a[i]<>'' then
     begin
       for j:=i+1 to h do
          if a[i]=a[j] then
          begin
           k:=k+1;
           a[j]:='';
          end;
       writeln(a[i],' -> ',k);
     end;
  end;
  readln;
end.}

{Program N_21;
uses crt;
var
  s1,t,s2:string;
  i,j,k,h:integer;
  a,b:array[1..100] of string;
begin
  ClrScr;
  write('Input string 1 -> ');readln(s1);
  i:=1;j:=1;
  while i<=length(s1) do
  begin
     t:='';
     while (s1[i]<>' ') and (i<=length(s1)) do
     begin
      t:=t+s1[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  k:=j-1;
  write('Input string 2 -> ');readln(s2);
  i:=1;j:=1;
  while i<=length(s2) do
  begin
     t:='';
     while (s2[i]<>' ') and (i<=length(s2)) do
     begin
      t:=t+s2[i];
      i:=i+1;
     end;
     b[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  for i:=1 to k do
     for j:=1 to h do
      if a[i]=b[j] then begin writeln(a[i]);break;end;
  readln;
end.}

{Program N_22;
uses crt;
var
  s,t,s1,str:string;
  i,k,j:integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  i:=1;
  while i<=length(s) do
  begin
     t:='';
     while (s[i]<>' ') and (i<=length(s)) do
     begin
      t:=t+s[i];
      i:=i+1;
     end;
     k:=k+1;
     if k mod 2=0 then str:=str+' '
     else
     begin
      s1:='';
      for j:=length(t) downto 1 do s1:=s1+t[j];
      str:=str+s1;
     end;
     i:=i+1;
  end;
  write('OutPut -> ',str);
  readln;
end. }

{Program N_23}
{Poka Net!}

{Program N_24;
uses crt;
var
  s1,t,s2:string;
  i,j,k,h,max:integer;
  a,b:array[1..100] of string;
begin
  ClrScr;
  write('Input string 1 -> ');readln(s1);
  i:=1;j:=1;
  while i<=length(s1) do
  begin
     t:='';
     while (s1[i]<>' ') and (i<=length(s1)) do
     begin
      t:=t+s1[i];
      i:=i+1;
     end;
     a[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  k:=j-1;
  write('Input string 2 -> ');readln(s2);
  i:=1;j:=1;
  while i<=length(s2) do
  begin
     t:='';
     while (s2[i]<>' ') and (i<=length(s2)) do
     begin
      t:=t+s2[i];
      i:=i+1;
     end;
     b[j]:=t;
     j:=j+1;
     i:=i+1;
  end;
  h:=j-1;
  max:=0;
  for i:=1 to k do
     for j:=1 to h do
      if a[i]=b[j] then
         if length(a[i])>max then begin max:=length(a[i]);t:=a[i] end;
  if max<>0 then write('OutPut -> ',t) else write('No correct data!!!');
  readln;
end.}

[Romario]

Привет всем

Где можно нарыть информации по динамическим типа? Спасибо, а ещё задачек пару с обяснением :

[AlaRic]

Хотелось бы чаще тебя видеть!
http://pascal.dax.ru/?books  

[Romario]

Пошли новые темы, задачи так что теперь чаще буду заходить ;)