В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
yakovleva03ow836v
yakovleva03ow836v
01.10.2020 20:29 •  Информатика

Какие арифметические и алгебраические действия можно выполнить с математических функций? Какие расчеты проводятся с функций СУММ(), ОСТАТ(), ОКРУГЛ(), КОРЕНЬ(), СТЕПЕНЬ(), ЦЕЛОЕ()?

Показать ответ
Ответ:
Lacky12game
Lacky12game
24.03.2020 07:18
Unit Main;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;
type  TForm1 = class(TForm)    Memo1: TMemo;    Edit1: TEdit;    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);var  i, j, n: integer;  min, max, var_bl: real;  a: array of array of real;beginMemo1.Clear;if TryStrToInt(Edit1.Text,n) thenbegin  n:=StrToInt(Edit1.Text);  if n<1 then    begin      Application.MessageBox('Ошибка!','',0);      Exit;    end;    SetLength(a,n);      for i:= 0 to n-1 do          SetLength(a[i],n);              Randomize;      for i:= 0 to n-1 do    for j:=0 to n-1 do      a[i,j]:=Random(100)-30;    min:= a[0,0];    max:= a[0,0];    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;
  for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]<min) then          min:=a[i,j];        if(a[i,j]>max) then          max:=a[i,j];      end;          Memo1.Lines.Add('Min='+FloatToStr(min)+', Max='+FloatToStr(max));    for i:= 0 to n-1 do    for j:=0 to n-1 do      begin        if(a[i,j]=min) then        begin          a[i,j]:= max;          Continue;        end;        if(a[i,j]=max) then          a[i,j]:=min;      end;      Memo1.Lines.Add('');    Memo1.Lines.Add('');      Memo1.Lines.Add('Были поменяны наименьший и наибольший элемент массива');      Memo1.Lines.Add('');    for i:= 0 to n-1 do      begin        for j:=0 to n-1 do          begin            //Memo1.Text:=Memo1.Text+FloatToStrF(a[i,j],ffFixed,5,3)+' ';//Форматированный вывод            Memo1.Text:=Memo1.Text+FloatToStr(a[i,j])+' ';  //обычный вывод          end;        Memo1.Lines.Add('');      end;    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');    Memo1.Lines.Add('');end  else    Application.MessageBox('Ошибка!','',0);end;
end.
0,0(0 оценок)
Ответ:
karakatitsa1
karakatitsa1
21.11.2022 14:57
Тип Integer - Целое. Диапазон: от -32 768 до 32 767.
Допустимые значения - например, -18 или 367.
Тип Real - Вещественное. Диапазон: от ±2.9e(-39) до ±1.7e38.
Допустимые значения - например, -0.318, -4.579e(-20) или 3.67e5.
Здесь запись, например, 3.67e5 означает 3.67*10^5, остальные аналогично.
Тип Char - Символьный. Диапазон - от #00 до #255.
Допустимые значения - например, #57, 'A', 'g', '+'.
Каждая переменная этого типа - это один знак из таблицы ASCII.
Может обозначаться собственно знаком (в апострофах) или кодом (# и число).
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота