Помогите с паскалем плиз! (разминка)
- ShwilyIgor
- Сообщения: 22
- Зарегистрирован: 19 дек 2007, 22:22
- Откуда: Украина
Помогите плиз кто чем может!
Тема: Функции.
задача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. Вывести содержимое массива до и после сортировки.
зарание спасибо
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;
#3. Взять любую из строк, пройти по ней, для каждого символа функцией pos проверить, есть ли такой в двух других строках, если да - вывести
№№ 4,5 - раздел "Алгоритмы"
№№ 4,5 - раздел "Алгоритмы"
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
- Игорь Акопян
- Сообщения: 1419
- Зарегистрирован: 13 окт 2004, 17:11
- Откуда: СПБ
- Контактная информация:
читаем правила раздела, впоследствии тему с таким названием удалю не заходя