IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Посмотрите ПЛИЗЗЗ!!
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 17

Репутация: -  0  +


1)
Текст задан последовательностью литер, за которыми идет '.' .
Написать программу, которая определяет выполнено ли следующее условие:

Сумма числовых значений цифр, входящих в текст, равна длине текста

2)Напишите логическую функцию TEST(A,k), принимающую значение True, если
Минимальный элемент k-й строки равен максимальному элементу k-го столбца.
Выручайте!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 156
Пол: Мужской

Репутация: -  0  +


2. Напишешь функцию которая возвращает минимальное значение массива а дальше всё просто...


--------------------
With the best regards Vit

Все всегда уезжают навсегда. Вернуться невозможно-вместо нас всегда возвращается кто-то другой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Бывалый
***

Группа: Пользователи
Сообщений: 209

Репутация: -  0  +


N1:
Код

Program to_jackal;
Uses Crt;
Var
  str : string;
  S   :integer;
  code:integer;
  k   :integer;
  i   :integer;
begin
  ClrScr;
  Write('Input string -> '); Readln(str);
  i:=1;S:=0;
  while (str[i]<>'.') do
  begin
     if (str[i]>='1') and (str[i]<='9') then
     begin
      Val(str[i],k,code);
      S:=S+k;
     end;
     i:=i+1;
  end;
  if S=length(str) then Writeln('YES!') else Writeln('NO!');
  Readln;
end.

N2:
Код

Program to_jackal_2;

Uses Crt;

Const N=3;

Type  Matrix = Array [1..N,1..N] of Integer;

Var   A   : Matrix;
   ii,jj : Integer;
     k : Integer;

Function Test(A1:Matrix; kk:integer):boolean;
Var
  Min:Integer;
  Max:Integer;
  i,j:Integer;
   ki:Integer;
  t,z:Integer;
begin
     Min:=A1[k,1];
     For i:=1 to n do
     if A1[kk,i] < Min then Min:=A1[kk,i];

     Max:=A[1,k];
     For i:=1 to n do
      if A1[i,k] > Max then Max:=A1[i,k];

     if (Min=Max) then Test:=True else Test:=False;
end;

Begin
  ClrScr;
  Randomize;
  For ii:=1 to N do
     For jj:=1 to N do
      Readln(a[ii,jj]);
  Write('Input k: ');Readln(k);
  Writeln(Test(a,k));
  Readln;
end.


--------------------
Если вы хотите чаще встречаться с понравившейся девушкой установите ей Windows'95
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 20.11.2017 23:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"