|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.04.2009, 14:28 | #1 |
Форумчанин
Регистрация: 05.01.2009
Сообщений: 242
|
помогите с вопросами - горю! Массывы!!!
1.Определить, какой минимальный объем оперативной памяти требуется для хранения каждой из объявленных переменных. Указать, какую из переменных не удастся разместить в памяти из за превышение допустимого объема для статистических переменных(возникнет ошибка structure too large ).
варианты ответа: а) var a: array[1000..9999] of longint б) var b: array[longint] of integer в) var c: array[10000..10009] of double г) type d = 202..1001 var d1: array[d] of string[99] д) var e: array[10..99, 0..9] of longint 2.Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. program ex_4; type linmass = array[1..120] of integer; var i, n: byte; k: integer; a: linmass; begin randomize; write('сколько элементов в массиве?'); readln(n); write('введите заданное число k: '); readln(k); for i := 1 to n do begin a[i] := -100 + random(201); write(a[i] : 6) end; writeln; for i := n downto 1 do begin a[2*i] := k; a[2*i-1] := a[i] end; writeln('ответ:'); for i := 1 to 2 * n do write(a[i]:6); writeln end. 3.Решить задачу: в линейном массиве есть одинаковые элементы. Найти произведение индексов наибольшего элемента массива. 4.Решить задачу: заполнить квадратную матрицу порядка N по следующему правилу: на главной диагонали и выше нее - последовательные натуральные числа, начиная с 1, остальные элементы равны 0. заполнение начинается с верхнего левого угла. 5. Решить задачу: в данном прямоугольном массиве любым способом отсортировать в порядке возрастания элементы каждого из столбцов. 6. Точно и однозначно сформулировать условие задачи, решение которой приведено ниже. program n_4; var s: string; i, n: byte; begin write('введите строку: '); readln(s); n := length(s); for i := 1 to n do insert(s[i], s, length(s) - i + 2); writeln('ответ: ', s) end. 7. Решить задачу: рассматривая символы строки тройками, поменять местами в каждой группе первый и третий символы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите, plese, с общими вопросами и с паскалем | zverushka | Помощь студентам | 6 | 05.04.2009 01:16 |
Помогите с вопросами о файлах | Дима82 | Помощь студентам | 5 | 26.05.2008 19:49 |
Помогите посчитать ряд..горю | xlr8 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 18.01.2007 07:51 |