скажи пожалуйста в чем ошибка?
массив одномерный
3. Определить наименьший по модулю элемент среди нечетных по номеру элементов третьей четверти массива.
Writeln ('min=',min:4);
For i:=N div 3 to N-1 Doтут препод докапался
For k:=i+1 to N -1 do
If(F[i]<0) AND (F[k]<0) Thenи вот тут непойму в чем ошибка
if 1/F[i]<1/F[k] then begin
Buf:=F[i];
F[k]:=F[k];
F[k]:=buf;
30 марта 2010 в 20:03
function c(x:real):real;
const p= 2;
var del:real;
begin
del:=x*x*x-1.5;
if del<0 then
c:=0
else
c:=p*x-del-sin(x);
end;
function c(x:real):real;
const p=2;
var del:real;
begin
del:=x*x+1.5;
if del=0 then
c:=0
else begin
del:=ln(abs(x*x-p/del)+0.2);
if del<0 then
c:=0
else
c:=sqrt(del);
end;
end;
30 марта 2010 в 20:02
program p1;
var i,s:integer;
begin
s:=0;
for i:=1 to 100 do s:=s+i;
writeln('summ:',s);
end.
program p2;
var i,s:integer;
begin
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+i;
until i=100;
s:=s+i;
writeln('summ:',s);
end.
program p3;
var i,s:integer;
begin
s:=0;
i:=0;
while i<=100 do
begin
i:=i+1;
s:=s+i;
end;
writeln('summ:',s);
end.
29 марта 2010 в 23:05
помогите пожалуйста=) сам вообще не понимаю….
1) Написать программы суммирования чисел от 1 до 100 используя все циклические конструкции(Repeat…..until, While…..Do, For….To) Найти среднее арифметическое этих чисел.
2) Написать программу расчёта значения функции С. Использовать условный оператор
{px-sqrt (x^3 – 1,5) – sin(x) }
{c=—————————————–}
{sqrt (ln(lx^2-p/(x^2+1,5)| +0,2))}
29 марта 2010 в 16:04
Роман ♪|DJ NiceTM|♪ Викторович
Судя по всему ты просишь не помочь тебе, а решить за тебя. В этом случае, в любом городе, как мне кажется, есть люди, которые решают такие задачи за деньги. Обратись к ним. Если же просишь помощи, то соизволь сам сделать хоть что-нибудь
28 марта 2010 в 23:03
Roman ♪|DJ NiceTM|♪ Viktorovich, ещё раз напишешь такое сообщение – уйдёшь в баню сразу!
Заебал со своими заданиями спамить.
28 марта 2010 в 19:00
помогите решить лабу плз
Тема: Обработка массивов в программе на TurboPascal 7.0
Цель работы: Изучение возможностей обработки одномерных массивов
1)N=18 Все элементы с нечетными номерами заменить их квадратами.
2)Определить содержит ли массив элементы, равные максимальному элементу.
3)Найти номер первого и последнего положительного элемента.
14 марта 2010 в 15:02
#25
2)
program sss;
Var
x,y:Integer;
Begin
Writeln('Vvedite korni');
Read(x,y);
If (Abs(y) and Abs(x))=1 then Writeln('Korni') else Writeln('Ne korni');
End.
13 марта 2010 в 23:00
#25 1)
program kill;
uses crt;
var
y,a,b,c,x,x0,y0:real;
begin
clrscr;
write('Введите a,b,c:');
readln(a,b,c);
y:=a*sqr(x)+b*x+c;
x0:=-b/2*a;
y0:=a*sqr(x0)+b*x0+c;
write('Координаты вершины параболы:(',x0,';',y0,')');
end.
5 марта 2010 в 16:00
#23
2)Последовательно вводятся числа, найти их произведение. Ввод остановить после ввода второго отрицательного значения.
program new1;
var
b : boolean;
p,n: Integer;
begin
b:=false;
p:=1;
writeln('Vvodite chisla');
while true do
begin
readln(n);
p:=p*n;
if n<0 then
if not b then
b:=true
else
break;
end;
writeln('Proizvedenie= ',p);
readln;
end.
4 марта 2010 в 23:03
#23
1)Ввести число. Определить является ли оно степенью 2
(число 16 является, а 22 нет).
Program aaa;
Var
x:Integer;
Begin
Writeln('Vvedite');
Read(x);
While x mod 2=0 do
x:=x div 2;
If x=1 then Writeln('Ctepen') else Writeln('No');
End.
Обязательно проверь
4 марта 2010 в 9:02
если есть какие-то вопросы можете писать 479358653. постараюсь помочь.
1 марта 2010 в 20:02
парни помогите пожалуйста еще с одной задачей на паскале про ветвления алгоритмов…
напишите в ICQ 401-633-288, жду
или оставьте свою асю или другие координаты
11 февраля 2010 в 18:05
ой блин ошибся, спасибо больше Алекс;)
не забуду)
11 февраля 2010 в 18:04
Turbo и Power – это два разных слова) Кстати, Power Pascal тоже существует (по крайней мере, в гугле нашел ссылку для скачивания:)).
Ну тогда прога выглядит примерно так:
Program Speed;
Uses Crt;
var S,t1,t2,V1,V2:real;
BEGIN
clrscr;
write('Please, enter the first time: ');
readln(t1);
write('Please, enter the second time: ');
readln(t2);
write('Please, enter the length of the way: ');
readln(S);
V1:=s*(t1-t2+1)/(t1+t2+1);
V2:=S*(t2-t1+1)/(t1+t2+1);
writeln('Speed of walker is: ',V1:11:5);
writeln('Speed of bicyclist is: ',V2:11:5);
readln()
END.
Вроде так.
З.Ы. Синтаксис помню плохо, могут быть ошибки.
11 февраля 2010 в 18:03
В общем, алгоритм линейный, как ты правильно заметил. Сводится к решению системы уравнений
1. V2*(t1+1)+V1*t1=S;
2.V2*(t2)+V1*(t1+1)=S;
Решая эту систему, я пришел к следующим соотношениям:
V1=s*(t1-t2+1)/(t1+t2+1);- скорость пешехода
V2=S*(t2-t1+1)/(t1+t2+1);-скорость велосипедиста
Следовательно – осталось организовать ввод данных, далее просто расчет этих двух формул и дальше вывод результата.
11 февраля 2010 в 18:02
А, вот оно что, ну тогда все просто как грибы. Через пол часа где-то кину тебе алгоритм. Только сразу говорю – я работал с Turbo Pascal и по-этому синтаксис может отличатся. Так что уже переделаешь то что кину под себя.
11 февраля 2010 в 18:02
ну так, мы сейчас тоже проходим турбо паскаль 7.0
11 февраля 2010 в 18:02
кинь номер аси или здесь?
11 февраля 2010 в 18:01
решать надо, используя линейный алгоритм
думаю…
рез-т:
V1- скорость велосипедиста
V2- скорость пешехода
вх.данные:
S-расстояние
T1-…
T2-…
=\\\
11 февраля 2010 в 18:01
пешеход из одного пункта
велосипедист из другого
противоположно, т.е. друг к другу и должны встретится
11 февраля 2010 в 18:00
да нет, вот именно такая задача, что было написано на листе, то и выписал
11 февраля 2010 в 18:00
Т1 и Т2 это вроде вх.данные, задаваемые пользователем
возможно, не знаю
11 февраля 2010 в 18:00
Ну так я еще раз повторяю – мне кажется, что она не корректна – и имеет два решения. Это раз. А во-вторых – как можно решить задачу программно, не зная, что нужно вводить, а что выводить. Лично я в таких случая не стесняюсь обратится к преподавателю и уточнить условия задачи.
11 февраля 2010 в 18:00
Тогда остается один вопрос – кто в чью сторону все же идет) Вообще сама по себе задача школьного уровня. Вот только к ней обычно прилагалась иллюстрация.
11 февраля 2010 в 17:05
Из двух пунктов, расстояние между которыми X км, отправляются велосипедист и пешеход. Если велосипедист отправится в путь на 1ч раньше пешехода, то они встретятся через T1 ч, после выхода пешехода. Если пешеход выйдет на 1ч раньше велосипедиста, то они встретятся через T2 ч после выезда велосипедиста. Составить алгоритм и написать программу вычисления скоростей пешехода и велосипедиста.
как бы это вся задача…
11 февраля 2010 в 17:05
Объясняю – если тебе известно все кроме скорости – то есть два варианта либо велосипедист движется в сторону пешехода, либо пешеход в сторону велосипедиста. Это раз. Далее, если не известно время – то это еще хуже. Так что советую переспросить преподавателя на предмет условия задачи, так как ИМХО она не корректна.
11 февраля 2010 в 17:04
Что тебе в этой задаче известно, а что не известно?
11 февраля 2010 в 17:00
помогите пожалуйста с задачей по Power Pascal 7.0
Из двух пунктов, расстояние между которыми X км, отправляются велосипедист и пешеход. Если велосипедист отправится в путь на 1ч раньше пешехода, то они встретятся через T1 ч, после выхода пешехода. Если пешеход выйдет на 1ч раньше велосипедиста, то они встретятся через T2 ч после выезда велосипедиста. Составить алгоритм и написать программу вычисления скоростей пешехода и велосипедиста.
31 января 2010 в 13:05
неувязочка вышла))
31 января 2010 в 13:04
к #3
Девушка, вы точно хотите, что бы вас отчислили. Просите написать в личку, к которой ограничен доступ)
31 января 2010 в 0:01
кто-нибудь помогите пожалуйста решить задачи по паскалю..кому не в падлу(а то дело уже идет на отчисление((кому не сложно напишите в личку плз(
26 января 2010 в 9:00
Что-то я мало могу связать условие задачи с ее текстом.
Вот так бы я написал:
Определить наименьший по модулю элемент среди нечетных по номеру элементов третьей четверти массива.
const kol=12; //количество элементов
var
i:integer;//счетчик
elem:integer; //сравниваемый элемент
minnom:integer;//номер минимального в массиве
min:integer; //минимальное по модулю
a:array[1 to kol] of integer; //массив элементов
begin
//Задание элементов массива пропущу
min:=maxint; //первоначальная устанока минимального в максимально возможное значение
for i:= ((kol div 4)*2) to ((kol div 4)*3) do //счетчик по номерам элементов от 2/4 до 3/4
begin
if a[i] > 0 then elem:=a[i] else elem:=-1*a[i];//определяем модуль элемента
if elem < min then// если текущее меньше минимального
begin
min:=elem; //запоминаем модуль минимального
minnom:=i;//запоминаем номер минимального по модулю элемента
end;
end;
writeln (i); //вывод номера минимального по модулю элемента на экран
end.