merx80
?>

умоляю чем отличается While от Repeat ??​

Информатика

Ответы

Владимирович_Роман

While это цикл с предусловием.

А repeat until это цикл с постусловием.

smook0695

Отличие оператора цикла repeat от while состоит в том, что в нем условие проверяется на выходе из цикла: если оно не выполняется, то цикл продолжается, если выполнится – сразу выход из цикла. Таким образом, пока условие истинно, программа идет на следующую итерацию, условие нарушается – выходим.

Объяснение:

chermen40
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
type
  Matrix=array[,] of integer;

procedure MatPrint(a:Matrix);
begin
  var m:=Length(a,1)-1;
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to m do Write(a[i,j]:4);
    Writeln
    end
end;

function IsEqual(a:Matrix; col:integer):boolean;
begin
  var s:=sign(a[0,col]);
  for var i:=1 to Length(a,0)-1 do s+=sign(a[i,col]);
  if (s=0) then Result:=(a[0,col]<>0)
  else Result:=false
end;

procedure DeleteCol(var a:Matrix; col:integer);
begin
  var n:=Length(a,0)-1;
  var m:=Length(a,1)-1;
  for var j:=col+1 to Length(a,1)-1 do
    for var i:=0 to n do a[i,j-1]:=a[i,j];
  SetLength(a,n+1,m)
end;

begin
  var n:=ReadInteger('Строк:');
  var m:=ReadInteger('Столбцов:');
  var a:=MatrixRandom(n,m,-99,99);
  Writeln('Исходная матрица');
  MatPrint(a);
  for var j:=Length(a,1)-1 downto 0 do
    if IsEqual(a,j) then DeleteCol(a,j);
  Writeln('Результирующая матрица');
  MatPrint(a);  
end.

Тестовое решение
Строк: 8
Столбцов: 10
Исходная матрица
  -3 -82 -25 -22  65   1  79 -67 -64 -82
  17  36  48 -32  51  11  43   9 -35   4
 -10  -5  80  82 -24  66 -12 -58  50 -94
  52  70  53  85 -32 -59  46  57 -84 -44
  81  71 -55  37  46 -15 -61  25  22  -7
 -49  98 -42 -18 -44 -97 -63  -7 -98  99
 -86  37 -17 -69 -35  46  82  62  99  11
  65  85  -7 -90  23  19 -50 -56 -64  91
Результирующая матрица
 -82 -25 -22   1 -64
  36  48 -32  11 -35
  -5  80  82  66  50
  70  53  85 -59 -84
  71 -55  37 -15  22
  98 -42 -18 -97 -98
  37 -17 -69  46  99
  85  -7 -90  19 -64
rinata542

ответ: 14) 12Кбайт = 12000 Байт

15) 896

16) Под блокнотом подразумевается стандартный Windows Notepad. Он как дважды два, и таким и задумывался. Предназначен для и возможно редактирования текстовых файлов(не документов, форматирование не изменяется), например .txt, .xml, .html и тд.

MSO Word предназначен для создания редактирования текстовых документов (не текстовых файлов) предназначеных в первую очередь для людьми. Потому очень много уделяется внимания форматированию текста, можно добавлять всякие рисунки, таблички и прочее.

Можно редактировать и текстовые файлы, но это не удобно.

Объяснение: 14) 1Кбайт = 1000 Байт

15) На каждый символ отводится по 2 байта а там 56 символов. 2*56= 112 байт. 1 Байт = 8 Бит

16) Тут объяснять то даже нечего.

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

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

умоляю чем отличается While от Repeat ??​
Ваше имя (никнейм)*
Email*
Комментарий*

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

Ольга Сергей1822
mamaevmvv3
Валерия Воробьева396
sergeevna
озерская_Мария1234
Рожнов
ridyana504
westgti77105
Корягина
KosarinPotemkina1888
Александрович Владимирович
Viktoriya
asvavdeeva
myrisik2490
dbakun