Студентам с лабораторными сюда (архивная - 2015)

omg - наибольший элемент проблемма найти?
x:=a[1];
for i:=2 to n do
begin
if x<a[2] then x:=a;
end;
for i:=1 to n do
begin
if x=a then a:=s;
end;

собственно и всё

 

А можно полный код пожалуйста?

 

извиняй,может как то и попроще можно было,но башка болит,поэтому сделал так:

PS. не лезь в делфи пока основ программирования не выучишь!ИМХО

 

Ребята, вот меня озадачили...помогите, пожалуйста...

Сложить схему алгоритма и проект программы алгоритмическим языком Паскаль в среде Delphi вычисления функции y = f (x) в соответствии с вариантами, отмеченными в таблице. Первое из значений, приведенных в таблице, задать как константу, второе - ввести с помощью компонента Edit.
Вариант 7, вот сама функция


http://upload.com.ua/get/901356404/

 

heeeelp

 

Люди! Мне срочно нужно написать программу которая шифрует текст методом перестановки символов с использованием ключа (password) на Делфи 7 (не выше!). Расшифровка тоже обязательна.

 

есть кто живой???

 

как я понял изменяется только значение переменной b:
добавь на форму компоненты Tlistbox,TEdit,TButton,ну и такую процедуру:

Code:

procedure TForm1.Button1Click(Sender: TObject);
const x=-11;
var b,a,c,y:real;
begin
listbox1.Clear;
b:=strtofloat(edit1.text);
if b<0 then
  begin
    MessageDlg('Значение b должно быть >=0',mtError,[mbOK],0);
    exit;
  end;
a:=sqrt(abs(x))+exp(sqrt(b));
c:=sqr(a)+sqr(b);
y:=sqr(c)*c/cos(c);
listbox1.Items.Add(floattostrf(y,ffgeneral,5,5));
end;

 

хуух....СПАСИБИЩЕ, ты спас мою грешную душу...=))

 

Привет всем!!!
В общем такое задание вот есть , нужно сделать в MATLAB:
Написать формулы методов прогонки и пристрелки для решения краевой задачи:
u"(x) - p(x)u'(x) + q(x)u(x) = f(x),
α0u(a) + α1u'(a) = A,
β0u(b) + β1u'(b) = B.

Диф. Ур-е : y"(x) - lgx y(x)=2x

Начальное условие: y(1)=1, y(3)=3

[a,b] : [1,3]

N: 30
Кто знает MATLAB помогите плиииз!!!!

 

Помогите написать программу:
- Составить программу, в которой функция определяет сумму модулей елементов.расположенных после первого отрицательного елемента в одномерном массиве, состоящем из n целых элементов. (язык C++)

 

с++ не люблю. Вот тебе на Си (алгоритм простой, перепишешь, если что)

Code:

#include <stdio.h>
#include <math.h>

#define n 10

int summ(int a[])
{
    int result = 0;

    for (int i=0; i<=n; i++)
    {
        if(a[i] < 0)
        {
            result = abs(a[i+1]) + abs(a[i+2]);
            break;
        }
    }
    
    return result;
}

void main()
{
    int a[n] = {1,5,11,-5,2,-1,3,2,9,-2};
    printf("Summa = %d", summ(a));
}

//EOF

примерно так.

 

Тоже плюсы не люблю, но покороче получилось:

#include <iostream.h>

int main()
{
int a[] = {1,2,3,4,5,-6,7,8,9,-10};
int i;
int s;
for(i = 0;a > 0;i++);
i++;
s = 0;
for(;&a <= &a[(sizeof(a)/sizeof(int)) - 1]; i++)
s+=abs(a);
cout << "sum=" << s <<endl;
return 0;
}

 

он просил функцию.

 

ну да, проглядел(.

 

Не понял твой код, а если отрицательное число стоит в конце массива? То ты своим условием

Code:

abs(a[i+1]) + abs(a[i+2]); 

выйдешь за границы массива. Попробуй на этом контр примере запустить программу

Code:

int a[n] = {1,5,11,5,2,1,3,2,9,-2};

И зачем определять n, если можно так

Code:

int n = sizeof(a)/sizeof(int);

 

я нигде не писал, что мой код - это истина в последней инстанции. Выражение "примерно так." это подтверждает.

сделать #define проще и экономичнее.

 

Код, который привел becensed выдает
Summa = 3

По моей проге я получаю

sum = 34

Или я не прав?

 

KaE, больше похоже на правду)

 

так стоп. Я понял из-за чего вы на меня все набросились.
Автор изменил условие. Когда я его читал, было примерно так: определить сумму двух последующих элементов, после отрицательного.