olegbat

помогите ответить на вопрос, в паскале

Что будет если х будет отрицательным? Как можно это исправить?

1.program prim9

2.var: x,s:real;

3.i:integer;

4.a:array[1...5]of real;

5.function ct(y,z,t:real):real;

6.begin

7.ct:=z*exp(t*ln(y));

8.end

9.begin

10.readln(x);

11.for i:=0 to 4 do begin

12.write("a=");

13.readln(a);

14.end

15.for i:=0 to 4 do

16.s:=s+ct(x:a);

17.writeln("s=",s:10:2);

18.end

Ошибки:

В строке 4: массив задан от 1 до 5, а в инициализации массива (строка 11) от 0 до 4

В строке 5: Функция ct имеет 3 аргумента, а вызов (строка 16) идет с одним.

"solo7777"

1)В массиве целых чисел с количеством элементов n найти наиболее часто встречающееся число. Если таких чисел несколько, то определить наименьшее из них.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

const n = 10;

type

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

a: array [0..n-1] of integer;

b: array [0..1,0..n-1] of integer;

c: array [0..1] of integer;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var i,j: integer;

begin

a[0]:=7;

a[1]:=1;

a[2]:=4;

a[3]:=7;

a[4]:=7;

a[5]:=4;

a[6]:=3;

a[7]:=4;

a[8]:=3;

a[9]:=1;

for i:=0 to 1 do

for j:=0 to n-1 do

b[i,j]:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i,j1,j,k,l:integer;

bool: boolean;

begin

i:=0;

j:=-1;

for k:=0 to n-1 do begin

bool:=false;

for j1:=0 to j do begin

if b[0,j1]=a[k] then begin

bool:=true;

break;

end;

end;

if bool then

inc(b[1,j1])

else begin

inc(j);

b[0,j]:=a[k];

b[1,j]:=1;

end;

end;

bool:=true;

while bool do begin

for j1:=0 to j-1 do begin

bool:=false;

if b[1,j1]

c[0]:=b[0,j1];

c[1]:=b[1,j1];

b[0,j1]:=b[0,j1+1];

b[1,j1]:=b[1,j1+1];

b[0,j1+1]:=c[0];

b[1,j1+1]:=c[1];

bool:=true;

end;

end;

end;

bool:=true;

l:=b[1,0];

while bool do begin

for j1:=0 to j-1 do begin

bool:=false;

if b[1,j1+1]<>l then

break

else begin

if b[0,j1]>b[0,j1+1] then begin

bool:=true;

c[0]:=b[0,j1];

c[1]:=b[1,j1];

b[0,j1]:=b[0,j1+1];

b[1,j1]:=b[1,j1+1];

b[0,j1+1]:=c[0];

b[1,j1+1]:=c[1];

end;

end;

end;

end;

//Искомый результат = b[0,0]

end;

end.

2)Дана квадратная матрица A(N,N). Записать на место отрицательных элементов матрицы - нули,а на место положительных - единицы. Вывести на печать треугольную матрицу в общепринятом виде.

for i:=1 to N do begin

for j:=1 to N do begin

if A[i,j]>0 then

A[i,j]:=1

else

A[i,j]:=0;

end;

end;

Предлагаю фотографировать нарушения ПДД все машины членовозов, гаишников и выкладывать здесь. Пусть страна знает своих "героев"!