Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2011, 18:43   #1
Deli
 
Регистрация: 20.11.2011
Сообщений: 2
По умолчанию Паскаль, очередность

Привет! Такая задачка в паскале
Из чисел 0, 1, 2, находящихся в различной последовательности, сделать строгую очередность из 0, 1 и 2. При этом сортировку не применять. Вывести результаты. Затем удалить по одному граничащему значению.


Необходимо переписать числовые данные из текстового файла в:
1. одномерный массив,
2. типизированный файл,
3. линейный динамический список.

выполнить в виде трех процедур, не связанных между собой.Так как исходные данные будут записаны в памяти тремя различными способами, то и подход к решению одной и той же задачи будет различен.


вот это вроде бы очередность:

Код:
uses crt;
const max=100;
var a:array[1..max] of byte;
    n,i,j,k,x:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',max,' n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(3);
  write(a[i],' ');
 end;
writeln;
writeln;
{0 вперед}
k:=0;
for i:=1 to n do
if a[i]=0 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i downto k+1 do
    a[j]:=a[j-1];
    a[k]:=x;
  end;
{2 в конец}
k:=0;
for i:=n downto 1 do
if a[i]=2 then
  begin
    k:=k+1;
    x:=a[i];
    for j:=i to n-k do
    a[j]:=a[j+1];
    a[n-k+1]:=x;
  end;
writeln('Перестановка:');
for i:=1 to n do
write(a[i],' ');
readln
end.
Как дальше написать программу по заданию?



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

Последний раз редактировалось Serge_Bliznykov; 21.11.2011 в 08:09.
Deli вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Очередность в C Хитман Помощь студентам 0 07.06.2011 11:21
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
Очередность загрузки программ из автозапуска. Chudo4258 Помощь студентам 15 03.02.2010 08:31
Очередность значений rafael27 Microsoft Office Excel 8 27.07.2009 18:18