Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот.

@meter · Регистрация: 02.10.2009

Плиз прошу помочь с задачами:
1)Из введенного текста распечатать только те слова, которые симметричны (RADAR, ANNA), либо в которых буквы упорядочены в порядке, обратном алфавитному (TOK, ZONE).

2)Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот. Использовать третий вспомогательный файл

3)Два натуральных числа называют дружественными, если каждое из них равно сумме всех делителей другого, кроме самого этого числа. Найти все пары дружественных чисел, лежащих в диапазоне от 200 до 300

4)Для заданного множества целых чисел построить дерево двоичного поиска (бинарное дерево) и занумеровать его вершины в соответствии с порядком прямого обхода, т.е. обхода слева направо, этого дерева.

Заранее спасибо

@кот Бегемот · 01.12.2009, 12:19

Задание 3

Pascal

var
i,j,k,l,s1,s2:integer;
begin
for i:= 200 to 220 do
  begin
    s1:=0;
    for j:=1 to i-1 do
    if i mod j=0 then s1:=s1+j;
       for k:=i+1 to 300 do
         begin
         s2:=0;
         for  l:=1 to k-1 do
           if k mod l=0 then s2:=s2+l;
           if (i=s2)and(k=s1)then writeln(i,' ',k);
           end;
  end;
end.

Добавлено через 11 минут
зад 1

Pascal

var
a,t:string;
b:array[1..100]of string;
i,j,k,f:integer;
begin
writeln('vvedite text');
readln(a);
a:=' '+a;
for i:=1 to length(a) do
if a[i]=' 'then inc(k)else b[k]:=b[k]+a[i];
for i:=1 to k do
 begin
 t:=b[i];
 f:=0;
 for j:=1 to length(t)div 2 do
 if t[j]<>t[length(t)-j+1] then f:=1;
 if f=0 then write(b[i],' ');
 end;
 for i:=1 to k do
  begin
  f:=0;
  t:=b[i];
  for j:=1 to length(t)-1 do
   if t[j]<=t[j+1] then f:=1;
   if f=0 then write(t,' ');
   end;
 end.

@meter · 01.12.2009, 14:11 **[ТС]**

Спасибо огромное, прошу еще помогите с бинарным деревом

@кот Бегемот · 01.12.2009, 14:35

Это уже не ко мне, с бинарными деревьями у нас напряженка

@meter СтудентЪ из Кызылорды 25 / 23 / 9 Регистрация: 02.10.2009 Сообщений: 144
		1
	Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот. 01.12.2009, 06:27. Показов 1538. Ответов 3 Метки нет (Все метки) Плиз прошу помочь с задачами: 1)Из введенного текста распечатать только те слова, которые симметричны (RADAR, ANNA), либо в которых буквы упорядочены в порядке, обратном алфавитному (TOK, ZONE). 2)Даны два символьных файла. Переписать с сохранением порядка следования компоненты первого файла во второй файл и наоборот. Использовать третий вспомогательный файл 3)Два натуральных числа называют дружественными, если каждое из них равно сумме всех делителей другого, кроме самого этого числа. Найти все пары дружественных чисел, лежащих в диапазоне от 200 до 300 4)Для заданного множества целых чисел построить дерево двоичного поиска (бинарное дерево) и занумеровать его вершины в соответствии с порядком прямого обхода, т.е. обхода слева направо, этого дерева. Заранее спасибо 0

@meter СтудентЪ из Кызылорды 25 / 23 / 9 Регистрация: 02.10.2009 Сообщений: 144
	01.12.2009, 14:11 [ТС]	3
	Спасибо огромное, прошу еще помогите с бинарным деревом 0

@кот Бегемот Платежеспособный зверь 8816 / 4243 / 1617 Регистрация: 28.10.2009 Сообщений: 11,381
	01.12.2009, 14:35	4
	Это уже не ко мне, с бинарными деревьями у нас напряженка 1

Опции темы