Информатика: Чим характерний цикл як фрагмент алгоритму?

Чим характерний цикл як фрагмент алгоритму?

👇

Увидеть ответ

Ответ:

Кей121

30.04.2021

условие – выражение логического типа.

Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.

Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.

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

Цикл с постусловием (иначе цикл до) имеет вид:

Объяснение:

условие – выражение логического типа.

Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.

Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.

Цикл с постусловием (иначе цикл до) имеет вид:

4,8(99 оценок)

Открыть все ответы

Ответ:

Kaldomova2014

30.04.2021

#include <iostream>
#include <locale>
using namespace std;
int main()
{
   setlocale(LC_ALL,"Rus");
   long long int A;
   cout << "Введите целое число: ", cin >> A;
   if (A < 0) A = -A;
   int i = 0;
   while (A > 0)
   {
       if (i++ % 2 != 0) cout << A % 10 << " ";
       A /= 10;
   }
   return 0;
}

Предполагается, что нумерация начинается права, с нулевой позиции.
Чтобы изменить номер начальной позиции, например, на единицу, нужно изменить десятую строку на int i = 1;

4,8(59 оценок)

Ответ:

konaser03

30.04.2021

Unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
N:byte;
A:array[1..256,1..256] of shortint;
implementation

{$R *.dfm}

Function S4(A:shortint):String;
Begin
result:=IntToStr(A);
For A:= 1 to 4-Length(result) do
    result:=' '+result;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var
   i,j:byte;
   S:string;
begin
Randomize;
N:=StrToInt(Edit1.Text);
ListBox1.Clear;
For i:= 1 to N do
    Begin
    S:='';
    For j:= 1 to N do
        Begin
        A[i,j]:=random(256)-128;
        S:=S+S4(A[i,j])+' '
        End;
    ListBox1.Items.Add(S)
    End;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var
   M,i,j,iMin,jMin:byte;
   B:boolean;
   S:string;
begin
M:=N div 2;
B:=true;
For i:= 1 to N do
    For j:= 1 to M do
        if A[i,j] <> A[i,N-j+1] then B:=false;
if Not B then
   Begin
   iMin:=1;
   jMin:=1;
   For i:= 1 to N do
       For j:= 1 to N do
           if A[i,j] < A[iMin,jMin] then
              Begin
              iMin:=i;
              jMin:=j;
              End;
   ListBox1.Clear;
   For i:= 1 to N do
       Begin
       S:='';
       For j:= 1 to N do
           Begin
           A[i,j]:=A[iMin,jMin];
           S:=S+S4(A[i,j])+' '
           End;
       ListBox1.Items.Add(S)
       End;
   End
end;

end.

Для красивого вывода матрицы на форме стоит моноширинный шрифт Courier New(Шрифт можно изменить так: выбрать объект(например, ListBox1), далее найти свойство Font → Name, и изменить шрифт на нужный). Размер шрифта на Label1 = 13(Label1.Size = 13).

[delphi - form] - 99 определить является ли целочисленная матрица симметричной относительно вертикал