amigo
Начинающий
|
    
Цитата: Guest написал 18 дек. 2006 16:45
что означает s:=s/n
Это сумма членов массива.
Но указанный мной алгоритм-неверен.
Его нужно доделать. Кроме того, что значит: исключить?
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 18 дек. 2006 17:57 | IP
|
|
amigo
Начинающий
|
Цитата: Guest написал 18 дек. 2006 17:26
дан массив целлых чиселюпоменять местами четные и нечетныебесли количество элементов четно по теме подпрограммы,полностью напечатать программу,
Ваши тексты невозможно читать. Потрудитесь перед
отправкой их проверять. И заходите как зарегестрированный
пользователь, что бы можно было Вас легко обнаружить.
Если я правильно понял, то суть задачи в следующем:
Дан массив содержащий чётное число элементов, требуется
поменять местами элементы расположенные на чётных и нечётных местах.
алгоритм:
......................
m:=V[1];
for j:=1 to n-1 do V[j]:=V[j+1];
V[n]:=m;
(Сообщение отредактировал amigo 18 дек. 2006 18:08)
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 18 дек. 2006 18:06 | IP
|
|
amigo
Начинающий
|
Цитата: Guest написал 18 дек. 2006 17:39
там if a>b then writeln m else a
if m>c then writeln m else c
if m>d then writeln m else d
if m>d then writeln m else d
Позвольте узнать -это алгоритм или блок схема?
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 18 дек. 2006 18:13 | IP
|
|
Guest
Новичок
|
дан массив целых чисел.создать новый массив,элементы которго равны элементам,большим данного числа.(на подпрограммы).
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 18:21 | IP
|
|
Guest
Новичок
|
напишите пожайлуста программу целиком
|
Всего сообщений: Нет | Присоединился: Never | Отправлено: 18 дек. 2006 18:56 | IP
|
|
amigo
Начинающий
|
Цитата: Guest написал 18 дек. 2006 18:56
напишите пожайлуста программу целиком
Этот форум-место где Вам могут помочь, а не работать за Вас.
И помогают только тем кто хоть что то делает сам.
Мне сидеть и набирать Вам задачу неохота. К чему бы
это мне было нужно? Подсказать, поправить, - я ещё могу,
но трудиться за бесплатно-уж увольте.
|
Всего сообщений: 54 | Присоединился: март 2006 | Отправлено: 18 дек. 2006 20:07 | IP
|
|
Kotenok 17
Удален
|
Ребята мне очень нужна ваша помощь....дело в том...что я написала задачу ,но она у меня не идет...я (знаю) предполагаю что там приличное количество ошибок...но плиииз посмотрите эту работу и если сможете исправьте и укажите мне на мои ошибки...очень вас прошу(мне необходимо позарез чтобы эта программа запускалась)...буду очень признательна!спасибо!
Заданы три матрицы A(2,2 ),B(2,2) и С(3,3).Решить уравнение:px(в квадрате)+dx+cl=1,где p - есть минимальный элемент матрицы А, d - минимальный элемент матрицы B, а cl - мин. элемент матрицы С.поиск минимального элемента оформить в виде FUNCTION.
uses crt;
var p,d,cl,x1,x2,F(дискриминант) :real;
var i,j,k : integer;
type MATR2=array[1..2,1..2]of real;
type MATR3=array[1..3,1..3]of real;
var A , B :MATR2;
var C :MATR3;
FUNСTION MIN( mi:array of real; ml: of integer) of real;
var mm:real;
var ii,jj: integer;
begin
mm:=mi[1,1];
for ii:=1 to ml do
for jj:=1 to ml do
if mm>mi[ii,jj] then
mm:=mi[ii,jj];
min:=mm;
end;
writeln ('matrica A');
for i:=1 to2 do
for j:=1 to 2 do
readln (A[i,j]);
writeln ('matrica B');
for i:=1 to2 do
for j:=1 to 2 do
readln (B[i,j]);
writeln ('matrica C');
for i:=1 to 3 do
for j:=1 to 3 do
readln (C[i,j]);
p:=min(A,2);
d:=min(B,2);
cl:=min(C,3);
cl:= cl-1;
if p:=p then
begin
x1:=-cl/d;
writeln('koren edinstvenniy',x1:6:2);
readln;
exit;
end;
FF:=sqr(F) - r*p*cl
if FF FF<0 then
begin
writeln('net korney');
readln;
end;
FF:=sqrt(FF);
if F:=0 then
begin
x1:=-d/(2*p);
x2:=x1;
end;
if F<> 0 then
begin
x1:=(-d -FF)/(2*p);
x2:=(-d +FF)/(2*p);
end;
writeln('x1=',x1:6:2);
writeln('x2=',x2:6:2);
end;
end.
(Сообщение отредактировал Kotenok 17 18 дек. 2006 22:51)
(Сообщение отредактировал Kotenok 17 18 дек. 2006 22:53)
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 22:49 | IP
|
|
Kotenok 17
Удален
|
и еще вопрос связанный с этой же программой,возможно сделать ее более компактной?спасибо!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 22:50 | IP
|
|
Kotenok 17
Удален
|
ну пожалуйста помогите!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 23:36 | IP
|
|
Kotenok 17
Удален
|
amigo или кто-нить поподскажите плииз!оч надо до завтра!
|
Всего сообщений: N/A | Присоединился: N/A | Отправлено: 18 дек. 2006 23:54 | IP
|
|
|
Форум
Турбо Паскаль. Программирование на Pascal
