Страница 1 из 3
Помогите решить задачу с массивом
Добавлено: 27 апр 2008, 09:24
acer891
Ребята мне в технаре задали задание:
переписать массив наоборот (массив одномерный);
помогите чем сможите, и просьба: присылайте ответы мне
titov18@mail.ru
Посоветуйте какую-нибудь толковую книгу по Паскалю
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 12:43
BHy4ok
А в чем собственно проблема ? (через "downto") И в цикле переписываешь массив "А" в массив "В" только в обратном порядке.
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 14:44
acer891
у меня така просьба. Programmer, не мог ли ты мне написать полный код программы, потому что я в программировании не слишком силен. Заранее спасибо!
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 14:45
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 в задачах и примерах.
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 14:57
acer891
uses crt;
const n=10;
clrscr;
randomize;
for i:=1 to n do a:=random(10);
dec(m);
readkey;
а здесь сам код нельзя проще написать, а томы такого и не проходили. Вот эти строки, что я прислал, мы ни разу еще не использовали! Может есть че по проще
Пожалуйста
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 15:08
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]
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 15:29
un4-funeral
можно без использования второго массива сделать...
Re: Помогите решить задачу с массивом и суммой
Добавлено: 27 апр 2008, 20:56
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]
Re: Помогите решить задачу с массивом и суммой
Добавлено: 28 апр 2008, 00:16
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 Определяет на экране текстовое окно.
Re: Помогите решить задачу с массивом и суммой
Добавлено: 29 апр 2008, 00:14
nba_87
привет всем народ!
Пожалуйста помогите паскаль ето:
Создаешь файл целых чисел путем ввода данных с клавиатуры.В процессе чтеныя файла четные числа записать в стек,а нечетные - в очередь. Распечатать содержимое файла,очереди и стека