Нужна помощь!

учи Visual Basic!!! ЧУВАК!!!

 

а + б <=вот так их надо складывать.

 

Гость
Object Pascal подойдет ?

Const
N=1;
M=5000;
var
s:integer;
i:integer;
begin
s:=0;
For i:=N to M do
begin
s:=s+i;
end;
ShowMessage(inttostr(s));
end;

 

мля... давно дело было... попытаюсь вспомнить

input a
input b
c=a+b
print c

коментарии вводи в "________"

должно работать

 

mOlh0k Кури алгебру

В Великом и могучем это звучит так:

s = 0
for i = N to M
s = s + i
next i
print s

 

firefly я так понял, человеку нужен ку-басик... и зачем стока мороки?

 

mOlh0k Я с тебя брык Разница в том, что человеку нужно посчитать не А+Б как у тебя, а сумму натуральных чисел в диапазоне АБ. Разницу чуствуеш? The Last Winged тоже людей в заблуждение вводит.

 

firefly то что написал я, разве можно считать программой? просили алгоритм

 

Верно. Но алгоритм в данном случае выглядит как Σ[m;n] а не m+n

 

Помогите пожалуйста. Я уже не знаю что делать.
3. Пусть даны натуральные числа K,L,M вещественное х1,х2…хK
Y1,y2…yL, z1,z2…zМ. Получите:
t= {min(y1…yL)+max(z1…zM) если max(x1…xK)>=2
{1+(max(x1…xK))², если max(x1…xK)<2

Кто нибудь..... :

 

Эля , на бейсике нужно, или на чем?

 

Object Pascal подойдет ?

//Длина всех трех массивов равна от фонаря 4
Const k=4;l=4;m=4;
var
//Объявляю 3 массива как вещественные переменные (дробные)
X:Array[1..k]of Real;
Y:Array[1..l]of Real;
Z:Array[1..m]of Real;
i:Integer;
MaxX:Real;
MinY:Real;
MaxZ:Real;
t:real;
begin
//Ввод элементов массива X
For i:=1 to k do
begin
X:=StrToFloat(Inputbox('Xi','Введите Xi',FloatToStr(X)));
end;
//Ввод элементов массива Y
For i:=1 to l do
begin
Y:=StrToFloat(Inputbox('Yi','Введите Yi',FloatToStr(Y)));
end;
//Ввод элементов массива Z
For i:=1 to m do
begin
Z:=StrToFloat(Inputbox('Yi','Введите Yi',FloatToStr(Z)));
end;

// нахождение максимума в массиве X
MaxX:=X[1];
For i:=2 to k do
begin
If MaxX<X then
begin
MaxX:=X;
end;

end;
// нахождение минимума в массиве Y
MinY:=Y[1];
For i:=2 to l do
begin
If MinY>Y then
begin
MinY:=Y;
end;

end;
// нахождение максимума в массиве Z
MaxZ:=Z[1];
For i:=2 to m do
begin
If MaxZ<Z then
begin
MaxZ:=Z;
end;

end;

Edit1.Text:=(floattostr(MaxX));
Edit2.Text:=(floattostr(MinY));
Edit3.Text:=(floattostr(MaxZ));

//выполнение условия задачи
If MaxX>=2 then
begin
t:=MinY+MaxZ
end
else
begin
t:=1+MaxX*MaxX;
end;
//Вывод t
Edit4.Text:=floattostr(t);
end;

P.S. Если есть ошибки, кто опытнее поправьте плиз.