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

[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 Mas:

Код

Program Mass;
uses crt;
const m=30;
var
  a:array[1..m] of integer;
  i,j:integer;
  n:integer;

function Faiv(a1:integer):boolean;
var bool:boolean;
   b   :integer;
begin
  bool:=false;
  a1:=abs(a1);
  while a1>1 do
  begin
     b:=a1 mod 10;
     a1:=a1 div 10;
     if b=5 then begin bool:=True;break;end;
  end;
  if bool then Faiv:=True else Faiv:=False;
end;

begin
  ClrScr;
  n:=15;
  for i:=1 to n do
  begin
     a[i]:=random(70)-19;
     write(a[i]:4);
  end;
  for i:=n downto 1 do
     if Faiv(a[i]) then
     begin
      for j:=i to n do a[j]:=a[j+1];
      n:=n-1;
     end;
  writeln;
  for i:=1 to n do write(a[i]:4);
  readln;
end.

N2:

Код

Program Clane_2;
uses crt;
const m=30;
var
  a:array[1..m] of integer;
  i,j:integer;
  n,k,l:integer;

begin
  ClrScr;
  Randomize;
  n:=15;
  for i:=1 to n do
  begin
     a[i]:=random(50)-19;
     write(a[i]:4);
  end;
  writeln;
  write('Input k -> ');readln(k);
  i:=1;l:=1;
  while i<=n do
  begin
     if a[i] mod l=0 then
     begin
      for j:=n+1 downto i+2 do a[j]:=a[j-1];
      a[i+1]:=k;
      n:=n+1;
      i:=i+1;
     end;
     i:=i+1;
     l:=l+1;
  end;
  for i:=1 to n do write(a[i]:4);
  readln;
end.

N3:

Код

Program Clane_3;
uses crt;
const n=15;
type massiv = array[1..n] of integer;
var
  a:massiv;
  i:integer;
  m:integer;

procedure Max_to_Min(a1:massiv);
var
  k,l,x:integer;
begin
  k:=1;l:=n;
  while a1[k]<=0 do k:=k+1;
  while a1[l]>=0 do l:=l-1;
  x:=a[k];
  a[k]:=a[l];
  a[l]:=x;
end;
begin
  ClrScr;
  Randomize;
  for i:=1 to n do
  begin
     a[i]:=random(50)-19;
     write(a[i]:4);
  end;
  Max_to_Min(a);
  writeln;
  for i:=1 to n do write(a[i]:4);
  readln;
end.