Вложения

Таблицы.rar (70.2 Кб)

Изображения

Безымянный.jpg (118.5 Кб)

---

Set diap = Cells(rin, cin).CurrentRegion

---

---

(Если в качестве параметра функции указан массив, то передается указатель на его первый элемент.
Например:
int strlen(const char*);
void f()
{
char v[] = "массив";
strlen(v);
strlen("Николай");
}
Это означает, что фактический параметр типа T[] преобразуется к типу T*, и затем передается)

---

---

#include <iostream>
using namespace std;

int qsort(long line[], long left, long right){
        if (left >= right){return 0;}
        long left_const = left;
        long right_const = right;
        long sample = line[(left + right) / 2];
        while (left <= right){
                while (line[left] < sample){left++;}
                while (line[right] > sample){right--;}
                if (left <= right){
                        long temp = line[left];
                        line[left] = line[right];
                        line[right] = temp;
                }
        qsort(line, left_const, right);
        qsort(line, left, right_const);
        }
}

int main(){
        long N = 0; cin >> N; long i = 0;
        long array[N];
        while (i < N){cin >> array[i]; i++;}
        qsort(array, 0, N - 1);
        i = 0;
        while (i < N){cout << array[i];}
        cout << endl;
        return 0;
}

---

---

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text:='3.74*10^(-2)';
  Edit2.Text:='-0.825';
  Edit3.Text:='0.16*10^2';
  Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,v,x,y,z:Extended;
begin
  Memo1.Clear;
  //Çàïîëíåíèå Memo1
  Memo1.Lines.Add('Ââåäåííûå äàííûå');
  x:=StrToFloat(Edit1.Text);
  Memo1.Lines.Add('x='+FloatToStrF(x,ffFixed,8,4));
  y:=StrToFloat(Edit2.Text);
  Memo1.Lines.Add('y='+FloatToStrF(y,ffFixed,8,5));
  z:=StrToFloat(Edit3.Text);
  Memo1.Lines.Add('z='+FloatToStrF(z,ffFixed,8,5));
  // Âûïîëíåíèå ðàññ÷åòîâ
  a:=1+sqr(Sin(x+y));
  b:=abs(x-2*y/(1+sqr(x)*sqr(y)));
  d:=Abs(y)
  c:=(a/b)*(x^(d));
  v:=c+sqr(arctan(1/z));
  // Âûâîä äàííûõ
  Memo1.Lines.Add(' Ðåçóëüòàò v = '+FloatToStrF(v,fffixed,8,5));
end;
end.

---

---

  [Error] Unit1.dpr(59): Missing operator or semicolon
  [Error] Unit1.dpr(59): Pointer type required
  [Error] Unit1.dpr(22): Unsatisfied forward or external declaration: 'TForm1.Memo1Change'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.dpr'

---

---

  URL_Pay : string;
  Login : string;
  Pass : string;

procedure TForm2.But_Pay_Button2Click(Sender: TObject);
begin
  URL_Pay := '' + Listview1.Items[0].SubItems[0];
  Login := '' + Listview1.Items[0].SubItems[1];
  Pass := '' + Listview1.Items[0].SubItems[2];
  Pay:=PayThread1.Create(true);
  Pay.Resume;
end;

---