PDA

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



ShwilyIgor
08.01.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
09.01.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;

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

Игорь Акопян
09.01.2008, 12:17
читаем правила раздела, впоследствии тему с таким названием удалю не заходя