galinasemyan689
?>

Составить процедуру, вычисляющую значение true, если все элементы одномерного массива имеют значения, большие заданной величины, и false в противном случае.используя эту процедуру, изменить значение каждого элемента тех двух заданных массивов a(n) и b(m) на обратное, в которых все исходные значения больше величины t.в противном случае вывести сообщение “условие не выполнено”кст.определить сколько раз встречается заданное слово.паскаль

Информатика

Ответы

nkochladze
Const
  n=100;
type
  V=array[1..n] of integer;
 
procedure IsGreater(var p:V; m,T:integer; var r:boolean);
var
  i:integer;
begin
  i:=1; r:=True;
  while (i<=n) and r do
  begin r:=(p[i]>T); Inc(i) end
end;

procedure Init(var p:V; m:integer);
{ инициализация и вывод массива }
var
  i:integer;
begin
  for i := 1 to m do
  begin p[i]:=Random(51)-25; Write(p[i]:4) end;
  Writeln
end;

procedure Invert(var p:V; m:integer);
{ инвертирование элементов и вывод массива }
var
  i:integer;
begin
  Writeln('Текущие значения элементов массива');
  for i := 1 to m do
  begin p[i]:=-p[i]; Write(p[i]:4) end;
  Writeln
end;

var
  a,b:V;
  i,m1,m2,t:integer;
  res:boolean;
begin
  Randomize;
  Write('Введите размеры массивов a и b: '); Read(m1,m2);
  Writeln('Введите пороговое значение T: '); Read(t);
  Writeln('Элементы массива A');
  Init(a,m1);
  IsGreater(a,m1,t,res);
  if res then Invert(a,m1)
  else Writeln('Условие не выполнено');
  Writeln('Элементы массива B');
  Init(b,m2);
  IsGreater(b,m2,t,res);
  if res then Invert(b,m2)
  else Writeln('Условие не выполнено')
end.

Тестовое решение:
Введите размеры массивов a и b: 15 9
Введите пороговое значение T:
-24
Элементы массива A
  23  -9 -23 -25 -25  -4 -16  -2  -3   6  -8 -19  19  21  12
Условие не выполнено
Элементы массива B
  -6  -9  -3 -23  14   4 -11  24  11
Текущие значения элементов массива
   6   9   3  23 -14  -4  11 -24 -11
atenza3736
Самая крупная змея на нашей планете обитает в тропиках Южной Америки и в Тринидаде. Ее любимые места — это реки, заводи, озера, встречается в заболоченных низинах рек Амазонки и Ориноко.

Основная окраска туловища анаконды серовато-зеленая с крупными темно-бурыми пятнами округлой формы, чередующимися в шахматном порядке. По бокам располагаются светлые пятна, окруженные черными полосами. Радужная оболочка глаз темная и малозаметная. Благодаря такой окраске, анаконду, даже несмотря на ее огромные размеры, можно просто не заметить в тихой заводи, в окружении водорослей и опавших листьев. В водоемах анаконда, притаившись, поджидает свою добычу. Чаще охотится на рыбу, различных млекопитающих, приходящих на водопой, водоплавающих птиц, иногда черепах и молодых кайманов. Однажды пятиметровая анаконда задушила и съела 2,5-метрового питона, на что ей понадобилось всего 45 минут.

Охотница анаконда медлительная. Чаще лежит на дне, только изредка поднимает голову над водой, чтобы посмотреть, не подошел ли кто к берегу. Может просто плыть по течению в поисках стаек рыб.

Иногда анаконды начинают охотиться на домашних птиц и животных. Особенно любит кур, уток и свиней.

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

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

Анаконды живут недолго, всего 5-7 лет, в неволе могут жить больше — до 20 лет.

Местные аборигены почти не боятся анаконд, но все равно относятся ним с осторожностью, стараются лишний раз не беспокоить громадных рептилий. Все же единичные случаи нападений этих змей случались.

В Южной Америке зафиксирован случай, когда анаконда проглотила 13-летнего мальчика. Отец и сын отправились в лес, чтобы набрать диких плодов. Высадились на песчаный берег. Мальчик остался стеречь лодку, а отец пошел в лес. В это время, вокруг мальчика обвилась большая анаконда. Отец, прибежавший на крик сына, его уже не нашел. Через день в кустах нашли останки мальчика, которые змея не стала переваривать и выплюнула.

В Марокко в 1983 году все были ошеломлены нападение анаконды на жителей деревни. Один индеец из миссии поехал с женой по реке на охоту за птицами. Он выстрелил в утку, и та упала на берег. Спеша к добыче, охотник был внезапно схвачен большой анакондой. Не имея с собой никакого оружия, охотник крикнул жене, чтобы она принесла ему большой нож. Едва жена приблизилась к нему, как змея е схватила и ее. Индейцу, к счастью, удалось в этот момент высвободить руку и нанести змее несколько ран. Ослабленная ими, анаконда, наконец, оставила людей и уползла.

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

Не стоит панически бояться этих больших змей, но, подобно аборигенам, стоит относиться к ним уважительно и с большой осторожностью.
julia3594265843
1.var s,s1,s2:string;i,a,sum:integer;beginreadln(s);s1:=' ';s2:='*';sum:=0;for i:=1 to length(s) doif pos(s1,s) mod 2=1 then beginsum:=sum+1;insert(s2,s,pos(s1,s));delete(s,pos(s1,s),1);end;writeln(sum);writeln(s);end.var  s, s1, s2: string;  i, a, sum: integer;
begin  readln(s);  s1 := ' ';  s2 := '*';  sum := 0;  for i := 1 to length(s) do    if pos(s1, s) mod 2 = 1 then     begin      sum := sum + 1;      insert(s2, s, pos(s1, s));      delete(s, pos(s1, s), 1);    end;  writeln(sum);  writeln(s);end.
2.var  s, s1, s2: string;  i, a: integer;
begin  readln(s);  if length(s) mod 4 = 0 then  begin    for i := 1 to length(s) do    begin      if (i mod 4) = 1 then       begin        s1 := copy(s, i, 1);        s2 := copy(s, i + 3, 1);        Delete(s, i, 1);        Delete(s, i + 2, 1);        insert(s2, s, i);        insert(s1, s, i + 3);      end;      if (i mod 4) = 2 then      begin        s1 := copy(s, i, 1);        s2 := copy(s, i + 1, 1);        Delete(s, i, 1);        Delete(s, i, 1);        insert(s2, s, i);        insert(s1, s, i+1);      end;    end;  end;  writeln(s);end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить процедуру, вычисляющую значение true, если все элементы одномерного массива имеют значения, большие заданной величины, и false в противном случае.используя эту процедуру, изменить значение каждого элемента тех двух заданных массивов a(n) и b(m) на обратное, в которых все исходные значения больше величины t.в противном случае вывести сообщение “условие не выполнено”кст.определить сколько раз встречается заданное слово.паскаль
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

avtalux527
Petrushin482
ismailovi670771
Александровна1973
fursov-da
eutenkova805
info6
Aleksandrovich-Mayatskikh
kazanoop
klimovala2
mnkrasnova
aleksey7800
masum-2011687
chetverikovalex3738
abuzik