Оч нада! Пж! Помогите! :-

Ребят, оч нада! Воть задачки по Паскалю... Ну никак решить не могу! Пж, мне до послезавтра сдать надо! Воть! Заранее спасибо!

1. Дан одномерный целочисленный массив B(n) и натуральное число n. Для каждого из элементов массива B выяснить, сколько раз оно входит в эту последовательность. Результат представить в виде:
"a1 встречается k1 раз" При печати не должно быть повторяющихся строк.

2. Дана непустая последовательность слов из строчных русских букв; между соседними словами - запятая, за последним словом - точка. Напечатать в алфавитном порядке: все звонкие согласные буквы, которые входят более чем в одно слово; все гласные буквы, которые не входят более чем в одно слово.

3. Дана строка символов и число N. Произвести ротацию строки на N символов (например: если исходная строка равна '1x2y3z4a', а N=3, то результирующая строка будет равна ' z4a1x2y3').

...и самое главное:

4. Два натуральных числа называются "дружественными", если каждое из них равно сумме всех делителей другого, за исключением его самого (таковы, например, числа 220 и 284). Напечатать все пары "дружественных" чисел, не превосходящих заданного натурального числа.

5. Элемент двумерного массива называется локальным минимумом, если он строго меньше всех имеющихся у него соседей. Подсчитать количество локальных минимумов заданной матрицы размером NxN найти максимум среди всех локальных минимумов.

Я надеюсь на вашу помошь!

Могу на си....

Неть! Мне ток на Паскале нуна! И плиз, до четверга... Я завтра в инете будю, посмотрю... Оч-оч-оч нада! :-)

Посмотрю на выходных, если ещё надо...

Но точно не обещаю, могу уехать в любой момент...

Выручи плиз!!! Мне кранты, если не сдам!

Посмотри может поможет


program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;
type MASS1=array of Int64;

var
a,CH_M:Integer;
massiv:MASS1;
CHISEL_V_MASSIVE:Integer;
NATURALNOE_CHISLO:Integer;
CHISLO_VSTRECHAETSA:Integer;

begin
Writeln;
massiv:=CH_M;
end;


Writeln('NATURALNOE CHISLO');
Readln(NATURALNOE_CHISLO);
CHISLO_VSTRECHAETSA:=0;

for a:=0 to CHISEL_V_MASSIVE-1 do begin
if NATURALNOE_CHISLO=massiv then Inc(CHISLO_VSTRECHAETSA);
end;

if CHISLO_VSTRECHAETSA<>0 then begin
Writeln('CHISLO VSTRECHAETSA '+ Inttostr(CHISLO_VSTRECHAETSA)+' RAZA' );
end else begin
Writeln('CHISLO NEVSTRECHAETSA');
end;

SetLength(massiv,0);

Readln;

end

Мнда, поздновато зашел на эту тему...
Вообще задачи - ерунда...
Ну, 4 и 5 немного задают жару, но не сильно...
Во всяком случае, на Паскале...

Люди а мне поможите??? Если надо могу заплатить по "30 сексо" ... за задачку....

4.36 Пусть дана последовательность, содержащая от 1 до 30 слов, в каждом из ко­торых от 1 до 5 строчных латинских букв; между соседними словами — запя­тая, за последним словом — точка. Введите:
в) эту же последовательность слов, но удалив из нее повторные вхо­жде­ния слов


7.8 В массиве содержится информация о зимней сессии. Сведения о каждом студенте содержат следую­щие данные: фамилию (до 12 символов), номер группы (от 1 до 7), оценки по трем предметам (математика, физика и программирование). Напишите программу, которая вводит эту информацию и пе­чатает следующие данные:
г) номера групп в порядке убывания средней успеваемости их студентов.

9.2 Пусть в программе введено описание типа:
Type
Letters = file of char;
Описать процедуру:
ж) del(f), удаляющую из текста f предпоследний эле­мент, если такой есть;

Давно не был на этом подфоруме...

Задачи еще актуальны??? Если да, напиши в личку. помогу...

ребята знаю что сейчас ***ню спрошу,но кто поможет с такой вот задачкой:
Вводся начальный член и шаг арифметической прогрессии.Вводится также число.Определить,принадлежит ли введенное число арифметической прогрессии с введенными начальным членом и шагом.
Используя один из 3 циклов(while,repeat,for),короче задания для первокурсника!)))

надеюсь число целое :)?

в цикле считаешь N+1 член прогрессии проверяешь Полученное число с эталонным. Если оно меньше - продолжаем цикл, больше выходим из цикла с утверждением, что число не принадлежит, равно - выходим с утверждением, что все Ок

Следует использовать Repeat Until

Отнять от числа начальный член и рез-т разделить на шаг. Если получили целое - в последовательности. Только вот цикл не при делах... Зато программа оптимальнее по скорости выполнения :)

в том то и дело, что пример учебный...

да число целое,да я заочник,вот и туплю,один раз в месяц препода вижу:*(

как примерно будет исходник выглядить?Или где я могу найти подобные примеры?

Итак... объявлять переменные и читать в них данные с клавиатуры умеете? Тогда: a0 - начальный член, h - шаг. CurrentNumber - текущий член, CheckNumber - проверяемое число.

CurrentNumber := a0;
while ( CurrentNumber < CheckNumber ) do
CurrentNumber := CurrentNumber + h;
if ( CurrentNumber = CheckNumber )
writeln( 'Принадлежит' )
else
writeln( 'Не принадлежит' );

Как-то так.