Функция Prost (проверка простоты числа), нужны комментарии

@Барыга · Регистрация: 27.05.2009

Author24 — интернет-сервис помощи студентам

Pascal

function Prost(x:integer):boolean;
    begin
      prost:=false;
      if x=1 then Prost:=true
        else if x>=2 then Prost:=((a mod x)>0)and Prost(x-1);
    end;

объясните построчно плиз что делает каждая строка

@Иван_007 · 27.05.2009, 17:49

1 Описание функции(X- переменная передающаяся в функцию;boolean-тип возвращаемого результата);
2 Начало программы;
3 Присаиваем функции значение false;
4 Если x равно 1 тогда функции присваиваем значение true
5 в противном случае если x>= 2 функции присваиваем ((a mod x)>0) and prost (x-1)
6 Конец

@Барыга · 27.05.2009, 17:52 **[ТС]**

непонятно про 5-ую строку...мну нуна объяснить ((a mod x)>0) and prost(x-1)

@EnzoMatrix · 27.05.2009, 17:56

если по-русски то: проверяется делится ли число на то что в скобках(т.е. Х) и на все те которые меньше его

@Барыга · 27.05.2009, 17:56 **[ТС]**

пасиба большое....гы

@Иван_007 · 27.05.2009, 18:00

какоето число а делиться на x (a mod x) и результат этой операции(остаток от деления) сравнивается с 0 ; Если значение меньше 0 то выражение принимает значение false ;
prost(x-1) - рекурсивный вызов функции prost;
and - логическое и(Если слева и справо от and значения true то функция принимает значение true в остальных случаях -false).

@Барыга · 27.05.2009, 18:06 **[ТС]**

пасб пацаны помогли...буду жить

Добавлено через 2 минуты 44 секунды
Г58. Дан двумерный массив А, каждый элемент которого равен 0, 1, 5 или 11. Подсчитать в нем количество четверок (Аj,k, Аj,k+1, Аj+1,k, Аj+1,k+1) в каждой из которых все элементы различные.
помогите плиз еще...

@Иван_007 27 / 27 / 14 Регистрация: 20.05.2009 Сообщений: 80
	27.05.2009, 17:49	2
	1 Описание функции(X- переменная передающаяся в функцию;boolean-тип возвращаемого результата); 2 Начало программы; 3 Присаиваем функции значение false; 4 Если x равно 1 тогда функции присваиваем значение true 5 в противном случае если x>= 2 функции присваиваем ((a mod x)>0) and prost (x-1) 6 Конец 0

@Барыга 0 / 0 / 0 Регистрация: 27.05.2009 Сообщений: 7
	27.05.2009, 17:52 [ТС]	3
	непонятно про 5-ую строку...мну нуна объяснить ((a mod x)>0) and prost(x-1) 0

@EnzoMatrix 121 / 121 / 14 Регистрация: 14.03.2009 Сообщений: 462
	27.05.2009, 17:56	4
	если по-русски то: проверяется делится ли число на то что в скобках(т.е. Х) и на все те которые меньше его 0

@Барыга 0 / 0 / 0 Регистрация: 27.05.2009 Сообщений: 7
	27.05.2009, 17:56 [ТС]	5
	пасиба большое....гы 0

@Иван_007 27 / 27 / 14 Регистрация: 20.05.2009 Сообщений: 80
	27.05.2009, 18:00	6
	какоето число а делиться на x (a mod x) и результат этой операции(остаток от деления) сравнивается с 0 ; Если значение меньше 0 то выражение принимает значение false ; prost(x-1) - рекурсивный вызов функции prost; and - логическое и(Если слева и справо от and значения true то функция принимает значение true в остальных случаях -false). 0

@Барыга 0 / 0 / 0 Регистрация: 27.05.2009 Сообщений: 7
	27.05.2009, 18:06 [ТС]	7
	пасб пацаны помогли...буду жить Добавлено через 2 минуты 44 секунды Г58. Дан двумерный массив А, каждый элемент которого равен 0, 1, 5 или 11. Подсчитать в нем количество четверок (Аj,k, Аj,k+1, Аj+1,k, Аj+1,k+1) в каждой из которых все элементы различные. помогите плиз еще... 0