Помогите с паскалем плиз! (разминка)

Ответить
Аватара пользователя
ShwilyIgor
Сообщения: 22
Зарегистрирован: 19 дек 2007, 22:22
Откуда: Украина

Помогите с паскалем плиз! (разминка)

Сообщение ShwilyIgor » 08 янв 2008, 22:51

:confused:
Помогите плиз кто чем может!

Тема: Функции.
задача1:
Даны строки символов a,b.
Определить max(f(a),5)*max(f(b),10),
где f(s) - количество пробелов в строке.

Тема: Рекурсивные подпрограммы.
задача2:
Рекурентное соотношение
x(i) = (x(i-1)/2)+(a/(2x(i-1))), x(1) = 1, a>0
можно использовать для быстрого вычисления квадратного корня из а, так как элементы последовательности при увеличении і очень быстро приближаються к корню из а. Для а=2 начало этой последовательности выглядит так
а(1) = 1
а(2) = 1.5
а(3) = 1.4166666667
а(4) = 1.4142156863
а(5) = 1.4142135624
Составьте программу вычисления квадратного корня.

Тема: Сложные типы данных, множества.
задача3:
Определить и вывести на экран множество символов входящих одновремено в имя, отчество и фамилию, введенные с клавиатуры.

Тема: Динамическая память.
задача4:
Напишите программу выбора наибольшего из четырех введенных с клавиатуры чисел.

задача5:
Напишите программу заполнения и сортировки по столбцам массива 4х5. Вывести содержимое массива до и после сортировки.

зарание спасибо :)

BBB
Сообщения: 1272
Зарегистрирован: 27 дек 2005, 13:37

Re: Помогите с паскалем плиз! (разминка)

Сообщение BBB » 09 янв 2008, 10:24

1.

Код: Выделить всё

function f (s: string) : integer;
var iLoop : integer;
      iRes : integer;
begin
  iRes := 0;
  for iLoop := 1 to Length (s) do
    if (s [iLoop] = ' ') then
       iRes := iRes + 1;
  f := iRes;
end;

function max (i1, i2 : integer) : integer;
begin
   if (i1 >= i2) then
     max := i1
   else
     max := i2;
end;

Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

Re: Помогите с паскалем плиз! (разминка)

Сообщение Хыиуду » 09 янв 2008, 10:49

#3. Взять любую из строк, пройти по ней, для каждого символа функцией pos проверить, есть ли такой в двух других строках, если да - вывести
№№ 4,5 - раздел "Алгоритмы"
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.

Аватара пользователя
Игорь Акопян
Сообщения: 1419
Зарегистрирован: 13 окт 2004, 16:11
Откуда: СПБ
Контактная информация:

Re: Помогите с паскалем плиз! (разминка)

Сообщение Игорь Акопян » 09 янв 2008, 12:17

читаем правила раздела, впоследствии тему с таким названием удалю не заходя
Изображение

Ответить