Вопросы по QBasic & Pascal

[Андрюха_ЕШКО]

1 Сколько шагов потребуется для преобразования из N элементов, при котором меняются местами первый элемент с последним, второй – с предпоследним и так далее:
А) один
Б) ни одного
В) N
Г) N пополам
Д) два N


2 Составьте программу на Бейсике для ввода двумерного массива, не забыв организовать подсказку индексов каждого из них.



3 Составьте программу на Паскале для поиска минимального и максимального элементов в трехмерном целочисленном массиве..

[Niro]

Составьте программу на Паскале для поиска минимального и максимального элементов в трехмерном целочисленном массиве..

Найдите на форуме или напишите программу для поиска max,min элементов одномерного массива, затем двумерного - сравните и по анологии напишите и для трёхмерного массива

[Qaliti]

1: ответ выбрать не могу, но могу сказать что для четного числа элементов будет N/2 а для нечетного N/2+1. В принципе среди всех я бы выбрал Г , но он подходит не полностью.

2:

cls

input "Введите длину двумерного массива:", x

dim A(2, x)

for i = 1 to 2
   for j = 1 to x
      input "Введите значение в A(" ;i; "," ;j; ":", A(i, j)
   next j
next i

end

[Vaigard]

Скажу честно, первую задачу не понял.
Третья задача делается так:

var
min,max,i,j,k,i1,j1,k1,i2,j2,k2:integer;
f:array[1..100,1..100,1..100] of integer;
begin
for i:=1 to n(требуемое значение) do
for j:=1 to n do
for k:=1 to n do
f[i,j,k]:=  //тут заполняешь массив
min:=f[1,1,1];
max:=f[1,1,1];
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
begin
if f[i,j,k]<min then min:=f[i,j,k]; //перебираешь элементы и находишь минимум
i1:=i; j1:=j; k1:=k; //если надо, находишь индексы
if f[i,j,k]>max then max:=f[i,j,k];
i2:=i; j2:=j; k2:=k;
end;
//дальше выводишь в нужной форме
writeln(min,' ',max); //если надо, то и коэффициенты выводишь
end.

А для второй задачи просто выводи окошко ввода через цикл

for i=1 to n
for j=1 to n

Вторую тебе уже сказали

[Niro]

f:array[1..100,1..100,1..100] of integer;

если у автора TP, то не покатит

[Андрюха_ЕШКО]

Очень вам благодарен, вы мне очень помогли.... У меня еще 13 подобных уроков, надеюсь что и в последствии вы мне не откажете в помощи... Я дома сам обучаюсь, одному трудно... что сам делаю, что мне помогают, потом решаю свои ошибки... Ещё раз всем спасибо!

________________
всем +

[Vaigard]

Обращайся А почему в TP не прокатит? У меня FreePascal, на нем идет. Если что, прошу прощения

[Serge_Bliznykov]

Сообщение от Vaigard

А почему в TP не прокатит? У меня FreePascal, на нем идет. Если что, прошу прощения

т.к. будет ошибка:
Error 22: Structure too large.

потому как в TurboPascal под все статические переменные выделялся один сегмент данных. (64 кб, точнее 65520 байт)
ну и, разумеется, ни одна из структур не может быть больше размера сегмента.

а 100*100*100*2 = 2 000 000 - явно больше 65520 байт!

[ярославбейсик]

ПОМОГИТЕ Я УЧУ ОПЕРАТОР IF НА QBASIC И МНЕ ЗАДАЛИ ЗАДАЧУ НАПИСАТЬ ЕЕ НА ЯЗЫКУ QBASIC КАК НАПИСАТЬ ее? вот задача - ДАНО ЛЮБЫЕ 3 ЧИСЛА A B C. найти сумму только положительных чисел!