Люди добрые! Помогите исправить ошибки С уважение. Заранее благодарен!

1. Отсутствует описание алгоритма с расшифровкой смысла и назначения всех переменных, используемых в программе.

2. Значения некоторых переменных целесообразно вычислять в одном цикле.

3. Нужна проверка на М4=0.

4. Отсутствуют результаты контрольного просчета в той форме, в которой они выводятся на экран.

5. Приложенный исходный код содержит синтаксические ошибки.


Program A1;
Uses crt;

Const N=15;

Var I,Max,Min,Sum: Integer;
M1,M4: Integer;
K,A5,Y: Real;
X: Array [1..N] of integer;

Begin
-----------------------------------------------------------------------------
{Очистка экрана ввода/вывода}
clrscr;
-----------------------------------------------------------------------------
{Заполняем массив числами, с помощью функции Random}
randomize;

For I:=1 to N do
begin
X[I]:=random (50);
Write (X[I], ' ' );
End;
---------------------{Поиск максимального элемента массива}
Max:=X[1];
For I:=2 to n do
If X[I]>Max
then Max:=X[I];
-------------------------------------------------------------------------------

{Вывод максимального значения массива}
Writeln;
Write (Максимальный элемент массива :', Max);
-------------------------------------------------------------------------------

---------------------{Поиск минимального элемента массива}
Min:=X[1];
For I:=2 to N do
If X[I]<Min
then Min:=X[I];
------------------------------------------------------------------------------

{Вывод минимального значения массива}
Writeln;
Write (Минимальный элемент массива:', Min);
------------------------------------------------------------------------------

{Нахождение A5}
A5:=Cos(Max)+Sin(Min);
-----------------------------------------------------------------------------

M1:=0;
Sum:=0;
For I:=1 to N do
Sum:=Sum+X[I];
For I:=1 to N do

begin
If X[I]<Sum then M1:=M1+1;
End;

M4:=0;
K:=Sum/N;
For I:=1 to N do
begin
If X[i]<K then M4:=M4+1;
End;



If A5>8 then Y:=sqrt(A5+2.8*M1)
else Y:=abs(A5/M4-0.72*exp(ln(10)*(-2)));
-----------------------------------------------------------------------------
{Перенос строки}
Writeln;
-----------------------------------------------------------------------------
----------------------------------------------------------------------------
{Вывод}
Writeln ('A5----->',A5:3:3);
----------------------------------------------------------------------------
----------------------------------------------------------------------------
{Задержка программы}
Readkey;
----------------------------------------------------------------------------

End.

__________________
Все что создал человек, можно взломать - Идеальной защиты не существует...

Младой чек выложи задание, просто так легче будет разобраться в этой белеберде!!!
Ну и pas тоже скинь...

__________________
МЫЛО > Redline9954@yandex.ru

Задание 1

- Задан массив чисел [1..15],
- Определить значение переменной “y”,
- Исходные данные и результат напечатать с пояснительным текстом.


_________SQRT (A5+ 2.8 * M1)__________если A5>8,
Y =
,,,,,,,,,,,,,,,ABC (A5/M4 - 0.72 * 10^-2)______если A5<8.



A5 – Сумма косинусов максимального и синуса минимального элементов массива “X”

M4 – Количество элементов массива “X”, значение которых меньше средне арифметическое значение элементов массива “X”

M1 – Количество элементов массива “X”, значение которых меньше cуммы элементов массива “X”.

__________________
Все что создал человек, можно взломать - Идеальной защиты не существует...

Вот файлы!

Вложения

	КР №1.doc (55.5 Кб, 20 просмотров)
	pas.rar (1.1 Кб, 3 просмотров)

__________________
Все что создал человек, можно взломать - Идеальной защиты не существует...

Вот пример оформления отчета, который устраивает Сафьянову (скорее всего она проверяет работы по программированию).

Вложения

пяву кр1.doc (40.5 Кб, 47 просмотров)

задание: 1. Образовать массив x, упорядоченный по неубыванию, и массив y, упорядоченный по невозрастанию, используя фрагмент программы:
CONST
k = 50;
m = 20;
n = k + m;
VAR
x: array [1..k] of real;
y: array [1..m] of real;
z: array [1..n] of real;
Объединить элементы этих двух массивов в один массив z так, чтобы они оказались упорядоченными по неубыванию.
программа:
Program Ex1;
uses crt;
const
k = 50;
m = 20;
n = k + m;
var
x : array[1..k] of real;
y : array[1..m] of real;
z : array[1..n] of real;
i,j: integer;
d: real;
maxi, mini : integer;

begin
d:=1.2;

for i:=1 to k do
begin
x[i]:=i+d;
end;

//Вывод первого массива X.
writeln('Массив X: ');
for i:=1 to k do
begin
write(x[i], ' ');
end;


for i:=m downto 1 do
begin
y[i]:=i-d;
end;

//Вывод второго массива Y.
writeln;
writeln('Массив Y: ');
for i:=m downto 1 do
begin
write(y[i], ' ');
end;


//Заполнение третьего массива Z. Сначала элементами X.
for i:=1 to k do
begin
z[i]:=x[i];
end;

//Заполнение третьего массива Z. Теперь элементами Y.
for i:=n downto k+1 do
begin
z[i]:=y[i-50];
end;

//Сортировка массива по неубыванию.
mini := 1;
for i:=1 to n-1 do
begin
for j:= i+1 to n do if (z[j] < z[mini]) then
mini := j;
d := z[i];
z[i] := z[mini];
z[mini]:= d;
end;

writeln;
writeln('Массив Z: ');
for i:=1 to k+m do
begin
write(z[i], ' ');
end;
end.
задание2:. Определить симметричность элементов каждой строки образованной случайной вещественной матрицы А (20х40) посредством функции, проверяющей симметричность числа.
программа:
Program CheckForSimmetry;
uses crt;

const
w = 20;
h = 40;
var
a: array[1..w,1..h] of real;
i,j: integer;
totalSimm: boolean;

function checkSimmetry(x: real): boolean;
var
temp,str: string;
len: integer;
dk,k,n: integer;
isSimmetryc: boolean;
begin
isSimmetryc := true;
str:=FloatToStr(x);
if (pos('.',str) <> 0) then
begin
temp:=copy(str,1,(pos('.',str)-1));
temp:=temp+copy(str,(pos('.',str)+1),length(str));
end
else temp:=str;
if (StrToInt(temp[1]) = 0) then temp := copy(temp,2,length(temp));
n:=length(temp);
for k:=1 to n do
begin
dk := StrToInt(temp[k]);
if not (dk = StrToInt(temp[n - k + 1])) then isSimmetryc := false;
end;
result:=isSimmetryc;
end;
begin
randomize;
totalSimm := false;
for i:=1 to h do
begin
for j:=1 to w do a[j,i]:= (random(99900)*1.12345);
end;
//раскоментировать нижню строчку для проверки на симметричность.
//a[1,3]:=54345;


for i:=1 to h do
begin
for j:=1 to w do if (checkSimmetry(a[j,i])) then
begin
writeln('Симметрично: ',a[j,i]);
totalSimm := true;
end;
end;
if not(totalSimm) then writeln('Ни одно число не симметрично!');
end.
пожалуйста помогите очень срочно надо..

Помогите пожалуйста решить, ничего не понимаю я в этом

Вложения

контрольная.doc (25.5 Кб, 16 просмотров)

можно на почту gaidarenko_tatyana@mail.ru

Всем привет!
Народ подскажите, где взять 8 вариант 4-ех Контрольных работ по Основы алгоритмизации и программирование. Кто знает где скачать киньте пожалуйста в личку ссылочку.
А то чёт совсем не понимаю, да и нет времени разбираться над этим. Заранее спасибо!

могу помочь в выполнении

__________________
Angel