парни, помогите, пожалуйста!

[Дашенька]

Всем приветик! В общем примерно две недели назад я (не по своей воле) начала изучать этот Pascal... будь он не ладен... причем пришлось изучать по ускоренной программе А сейчас я нахожусь прям в тупике, по-другому не скажешь прям... не могу решить несколько простых (но не для меня) задач! и к сожалению, мне не к кому обратиться... а очень срочно надо... я была бы очень-очень благодарна, если бы мне кто-нибудь помог! заранее спасибо большое

Вот эти задачи:

1. Найти наибольший общий делитель n заданных произвольных натуральных чисел. (т.е. сначала надо ввести кол-во чисел, потом сами числа, а потом должно выйти НОД..., вроде бы как массив надо использовать...)

2. Задана матрица, содержащая n строк и m столбцов. Сформировать одномерный массив, элементы которого содержат наиболее часто встречающийся элемент соответствующей строки. Для решения задачи оформить подпрограмму, которая бы определяла наиболее часто встречающийся элемент в заданной строке. (т.е. надо пользователю вести число строк, столбцов, элементы и т.д...)

3. Задается строка символов. Написать программу, которая определяет, является ли заданная строка правильной записью действительного числа в плавающем формате, и показывает место и причину первой ошибки (Val не использовать).

P.S. Желательно, чтоб программки, были написаны попроще и понятно! и если можно, чтоб было немного комментарий... всмысле в фигурных скобках которые...
P.P.S. Надеюсь, вы мне поможете... спасибки!

[zetrix]

всем приветик!

приятно видеть на форуме свежие лица: привет

будь он не ладен...

ну не надо так о старом дядюшке...

всмысле в фигурных скобках которые...

у кого есть время помогите человеку, у меня завал в 24 программы (1 курс активно сдаёт долги , и от этих задач меня уже мутит... видеть не могу...)

[Трофимов Александр]

помочь то можно, только если честно не помню даже что такое натуральные числа.

[Дашенька]

zetrix, у тебя аж 24 задачи!!! а три штучки как раз плюнуть!!!

Трофимов Александр, ну помогите тогда plz! а нат. числа - это те числа, которыми считают предметы (1, 2, 3, 4, 5 и тд) воть...

P.S. plz, ну кто-нибудь помогите! а то моя участь закончится очень плохо.....

[Virtson]

НОД(n,m)=
1) НОД(n,m), если m<n
2) n, если m=0
3) НОД(m-n,n), если m>n

пищем рекурсивную функцию.

[zetrix]

а то моя участь закончится очень плохо.....

главное что не кирзовыми сапогами закончится

Ну вот задачка.. вторая:

uses crt;
const
 n=10;
 m=6;
Var a:array[1..n,1..m]of integer;
    b:array[1..m]of integer;
    i,j:integer;

function otbor(x:integer):integer;
var y,h,m,b,c,mMax:integer;
begin
mMax:=0;
for y:=1 to n do
 begin
 m:=0;
 b:=a[y,x];
 for h:=1 to n do if a[h,x]=b then m:=m+1;
 if m>mMax then
            begin
            mMax:=m;
            c:=a[y,x];
            end;
 end;
otbor:=c;
end;

begin
randomize;
clrscr;
for j:=1 to m do
 begin
  for i:=1 to n do
  begin
  a[i,j]:=random(10);
  write(a[i,j],' ');
  end;
  writeln;
 end;
for j:=1 to m do
 begin
 b[j]:=otbor(j);
 writeln(b[j]);
 end;
readln;
end.

1) Если в какой-нибудь строке числа, например, 2 и 3 встречаются с одинаковой вероятностью (ну допустим так 2 5 8 3 9 2 3), то ответ по идеи числа 2 и 3, но программа выведет только 2!

2) Матрица начальная задаётся рандомом (произвольно), если надо чтоб юзер вводил, то переделай немного

[Дашенька]

zetrix, спасибо за задачу!
а сапоги мне точно не гразят! )))

такс.... рандом в задаче я уже исправила!
а вот изменяю то, что юзер должен сам вводить число строк и столбцов - у меня это почему-то не получается, хотя вроде все правильно делаю.... странно... zetrix, а ты можешь исправить это в своей задаче?

[Трофимов Александр]

вряд-ли получится, размерность массива задаётся заранее. единственное сразу указать индексы большой величины, а вместе с массивом передавать его размерность. другими способами преподаватель (судя по заданию) поймёт, что делали не вы.

размерность в смысле передавать в процедуру или функцию, где будет продолжаться работа с массивом. главное не переборщить с размером, сделать его в предела возможного запроса пользователь, не более.