Типичные экзаменационные задачи, строки, массивы + теория Опции

[Clane]

1.Дана символьная строка и натуральное число N. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить длину слова, стоящего на N-ом месте и вывести все слова, состоящие из такого же количества символов, что и найденное слово. Если N больше количества слов в предложении, то вывести соответствующее сообщение.
2.Дана символьная строка. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Найти самое длинное симметричное слово.
3.Дана символьная строка и символ. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Определить количество слов в строке, оканчивающихся на заданный символ.
4.Даны две символьные строки. Слово - последовательность символов между пробелами, не содержащая пробелы внутри себя. Вывести слова, которые встречаются в обеих строках.
5.При решении задач применять процедуры и функции.
Дан массив целых чисел (п=15), заполненный случайным образом числами из промежутка (-20,50).
1.Удалить из него все элементы, в которых есть цифра 5.
2.Вставить число К после всех элементов, кратных своему номеру (К вводить с клавиатуры).
3.Поменять местами первый положительный и последний отрицательный элементы.
6.При решении задач применять процедуры и функции.
Дан массив целых чисел (п=20), заполненный случайным образом числами из промежутка (-45,95).
1.Удалить из него все элементы, кратные 7 и принадлежащие промежутку [a, b] (a и b вводить с клавиатуры).
2.Вставить число К между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (К вводить с клавиатуры).
3.Переставить в обратном порядке часть массива между элементами с номерами К1 и К2, включая их. Сделать проверку корректности ввода К1 и К2, если ввод неправильный, то ничего не делать..

Сообщение отредактировано: мисс_граффити - 13.06.2007 9:57

[Ivs]

To Clane:
N1:

Код

program Clane_N_1;
uses crt;
var
  t,s:string;
  n:byte;
  i:integer;
  k:integer;
  d:integer;
  b:boolean;
begin
  ClrScr;
  Write('Input string -> '); Readln(s);
  Write('Input N -> ');Readln(n);
  i:=1;b:=False;
  k:=0;
  while i<=length(s) do
  begin
     d:=0;
     while (i<=length(s)) and (s[i]<>' ') do begin inc(d); inc(i); end;
     while s[i]=' ' do i:=i+1;
     k:=k+1;
     if k=n then begin b:=True; break; end;
  end;
  if b then writeln('Symbols: ',d)
     else writeln('No correct data!');
  writeln('Word: ');
  i:=1;
  k:=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 d=length(t) then writeln(t);
     i:=i+1;
  end;
  readln;
end.

N2:

Код

program Clane_N_2;
uses crt;
var
  t,s,longSim :string;
  max         :integer;
  i           :integer;

function Simmetric(ss:string):boolean;
var  k,j:integer;
begin
     Simmetric:=True;
     k:=length(ss) div 2;
     for j:=1 to k do
      if ss[j]<>ss[length(ss)-j+1] then begin Simmetric:=false;break;end;
end;

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 Simmetric(t) then
      if length(t)>max then
      begin
         max:=length(t);
         longSim:=t;
      end;
     while s[i]=' ' do i:=i+1;
  end;
  writeln('Very long simmetric word: ',longSim);
  readln;
end.

N3:

Код

program Clane_N_3;
uses crt;
var
  t,s :string;
  ch  :char;
  i,k :integer;
begin
  ClrScr;
  write('Input string -> ');readln(s);
  write('Input char -> ');  readln(ch);
  i:=1;k:=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 t[length(t)]=ch then k:=k+1;
     while s[i]=' ' do i:=i+1;
  end;
  writeln('OutPut: ',k);
  readln;
end.