Const n = 20; var a: array[1..n] of integer; i,j,k,m,li,ri,mi,s,x: integer; begin Write('Введите ключ поиска (0-49): '); Read(x); { заполнить массив значениями } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(50); Write(a[i]:3); end; Writeln; { сортировка } for i := 1 to n-1 do for j := 1 to n-i do if a[j] > a[j+1] then begin s := a[j]; a[j] := a[j+1]; a[j+1] := s end; Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:3); Writeln; { бинарный поиск } li:=1; ri:=n; k:=0; while li<ri do begin mi:=(li+ri) div 2; if a[mi]<x then li:=mi+1 else ri:=mi; Inc(k) end; if a[ri]=x then m:=ri else m:=0; { вывод результатов } if m>0 then Writeln('Найден элемент № ',m,'; число шагов равно ',k) else Writeln('Такого элемента в массиве нет'); end.
Вариант с процедурами const n = 20; type V=array[1..n] of integer;
procedure SortBySelect(var a:V); {Сортировка выбором} var i, j, k: integer; x: integer; begin for i := 1 to n do begin k := i; x := a[i]; for j := i+1 to n do if a[j]<x then begin k := j; x := a[j] end; a[k] := a[i]; a[i] := x end end;
procedure BinSearch(var a:V;key:integer;var k,m:integer); var li,ri,mi:integer; begin li:=1; ri:=n; k:=0; while li<ri do begin mi:=(li+ri) div 2; if a[mi]<key then li:=mi+1 else ri:=mi; Inc(k) end; if a[ri]=key then m:=ri else m:=-1 end;
var a:V; i,k,m,x: integer; begin Write('Введите ключ поиска (0-49): '); Read(x); { заполнить массив значениями } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(50); Write(a[i]:3); end; Writeln; SortBySelect(a); { сортировка выбором } Writeln('Отсортированный по возрастанию массив'); for i := 1 to n do Write(a[i]:3); Writeln; BinSearch(a,x,k,m); { бинарный поиск } if m>0 then Writeln('Найден элемент № ',m,'; число шагов равно ',k) else Writeln('Такого элемента в массиве нет'); end.
uses Crt; const n=10; type Mas=array [1..n] of integer; var A: Mas; i, temp, MinInd, MaxInd, Max, Min: integer; begin ClrScr; Randomize; for i:=1 to n do begin A[i]:=10+random(90); Write (A[i]:5); end; WriteLn; Max:=A[1]; MaxInd:=1; Min:=A[1]; MinInd:=1; for i:=2 to n do begin if A[i]<Min then begin Min:=A[i]; MinInd:=i; end else if A[i]>Max then begin Max:=A[i]; MaxInd:=i; end; end; temp:=A[MaxInd]; A[MaxInd]:=A[MinInd]; A[MinInd]:=temp; WriteLn;WriteLn; for i:=1 to n do Write (A[i]:5); WriteLn; ReadLn; end.
Объяснение:
#include <iostream>
using namespace std;
int main()
{
double x,y;
cin >> x >> y;
cout <<x*x*x-2.5*x*y+1.78*x*x-12.5*y+1;
}