Помогите решить задачу с массивом и суммой

[acer891]

Ребята мне в технаре задали задание:
переписать массив наоборот (массив одномерный);
помогите чем сможите, и просьба: присылайте ответы мне titov18@mail.ru
Посоветуйте какую-нибудь толковую книгу по Паскалю

[BHy4ok]

А в чем собственно проблема ? (через "downto") И в цикле переписываешь массив "А" в массив "В" только в обратном порядке.

Код: Выделить всё

for i := i-1 downto 0 do
      begin
....
      end;

[acer891]

у меня така просьба. Programmer, не мог ли ты мне написать полный код программы, потому что я в программировании не слишком силен. Заранее спасибо!

[Alex_Burn]

Можно и без downto.

[Syntax="Pascal"]

program mas;
uses crt;
const n=10;
var a,b : array [1..n] of integer;
i,m : integer;
begin
clrscr;
randomize;
for i:=1 to n do a:=random(10);
write('Исходный массив: ');
for i:=1 to n do write(a,' ');
m:=n;
for i:=1 to m do
begin
b:=a[m];
dec(m);
end;
writeln;
write('Измененный массив: ');
for i:=1 to n do write(b,' ');
readkey;
end.

[/Syntax]

Что касается книжек, то могу посоветовать:

1. Фаронов В. В. Turbo Pascal 7.0. Начальный курс: учебное пособие.
2. Сухарев М. Turbo Pascal 7.0. Теория и практика программирования.
3. Культин Н. Б. Turbo Pascal в задачах и примерах.

[acer891]

uses crt;
const n=10;
clrscr;
randomize;
for i:=1 to n do a:=random(10);
dec(m);
readkey;
а здесь сам код нельзя проще написать, а томы такого и не проходили. Вот эти строки, что я прислал, мы ни разу еще не использовали! Может есть че по проще
Пожалуйста

[Alex_Burn]

Ну, вот по-проще

[Syntax="Pascal"]

program mas;
var a,b : array [1..10] of integer;
i,m,n : integer;
begin
n:=10;
writeln('Введите 10 элементов массива');
for i:=1 to n do read(a);
write('Исходный массив: ');
for i:=1 to n do write(a,' ');
m:=n;
for i:=1 to m do
begin
b:=a[m];
m:=m-1;
end;
writeln;
write('Измененный массив: ');
for i:=1 to n do write(b,' ');
readln;
readln;
end.

[/Syntax]

[un4-funeral]

можно без использования второго массива сделать...

[C_O_D_E]

acer891
а собственно, что непонятного. Объясняю, потом перед преподом умом блистать будете.
[syntax=Delphi]
uses crt; // подключение библиотек модулей
const n=10; // раздел констант. это проходят вместе с VAR'ом
clrscr; // очищение экрана, без CRT работать не будет
randomize; // стандартная проедура, исключает повторение при свободном заполнении
for i:=1 to n do a:=random(10);// собственно, само свободное заполнение
dec(m);//уменьшение на 1. стандартная процедура
readkey; // считывание любой клавиши.
[/syntax]

[Alex_Burn]

От себя могу лишь добавить

Модуль Crt
▀▀▀▀▀▀▀▀▀▀▀
В модуле Crt (Crt.TPU или Crt.TPP) находятся
мощные подпрограммы, которые дают вам
возможность полного управления возможностями
вашего PC.

Подпрограммы модуля Crt обеспечивают контроль
над текстовыми режимами экрана, расширенными
кодами клавиатуры, цветами, окнами и звуком.

Crt может использоваться только в программах,
предназначенных для IBM PC, AT, PS/2 и
полностью совместимых.

Процедуры и функции модуля Crt
▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
AssignCrt Proc Связывает текстовый файл с окном CRT.
ClrEol Proc Очищает все символы с позиции курсора до
конца строки без перемещения курсора.
ClrScr Proc Очищает экран и устанавливает курсор в
верхний левый угол.
Delay Proc Процедура задержки по таймеру.
DelLine Proc Удаляет строку, содержащую курсор.
GotoXY Proc Перемещает курсор в заданную позицию экрана.
HighVideo Proc Устанавливает высокую интенсивность символов.
InsLine Proc Вставляет пустую строку в позиции курсора.
KeyPressed Func Определяет, была ли нажата клавиша на клавиатуре.
LowVideo Proc Включает низкую интенсивность символов.
NormVideo Proc Выбирает первоначальное значение атрибута текста.
NoSound Proc Выключает внутренний динамик компьютера.
ReadKey Func Читает символ из буфера клавиатуры.
Sound Proc Включает внутренний динамик.
TextBackground Proc Устанавливает цвет фона.
TextColor Proc Выбирает цвет символов.
TextMode Proc Устанавливает определенный текстовый режим.
WhereX Func Возвращает X-координату текущего положения курсора.
WhereY Func Возвращает Y-координату текущего положения курсора.
Window Proc Определяет на экране текстовое окно.

[nba_87]

привет всем народ!
Пожалуйста помогите паскаль ето:
Создаешь файл целых чисел путем ввода данных с клавиатуры.В процессе чтеныя файла четные числа записать в стек,а нечетные - в очередь. Распечатать содержимое файла,очереди и стека