работа с двумерными массивами Паскаль - лабы на Паскале - Файлы - Помощь студенту
Помощь студентуФайлылабы на Паскалеработа с двумерными массивами Паскаль
21 Января 2017, Суббота
07:13
>>> Качественная веб-разработка <<<
07:13
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
CDhack cs 1.6 - Самый мощный чит для CS ( Counter Strike )
Очень мощный чит для CS1.6 Возможность видеть противника сквозь стены, самонаведение в голову и другие части тела, автоматическая стрельба по своим или по противнику, подсветка оружия и других боеприпасов, отключение отдачи, все становиться светлым, даже на плохо или не освещенных участках карты, луч, показывающий, куда направлен прицел, маленькая точка в центре прицела и многое другое. Скачать чит для Counter Strike Контры бесплатно без регистрации CDhack

Выдвигается контент при нажатии на кнопку
Выезжает определенная информация при нажатии на кнопку. БЕЗ ява скриптов.

Пример смотрите, нажав справа в блоке Пользователь "Доп. инф-а"



Последовательности Паскаль
Найти число последовательности, у которого количество одинаковых цифр максимально.

XVI32 2.51
Шестнадцатеричный редактор для программистов. Помимо стандартных для такого рода программ возможностей редактирования, предлагает подсчет контрольных сумм CRC16 и CRC32, поиск, замену и подсчет числа вхождений байтов в файл.


Опрос
Вы учитесь в СУЗе/ВУЗе
Всего ответов: 240

Сотрудничество
Поставьте себе на сайт и сообщите мне


код кнопки:


Связь с админом
395799449
Написать админу
Оставить отзыв


Файлы
Главная » Файлы » Учебные материалы » лабы на Паскале

работа с двумерными массивами Паскаль

Название: работа с двумерными массивами Паскаль
Категория: лабы на Паскале
Формат файла: *.pas
Размер: 1.9Kb
Просмотров: 5415
Загрузок: 1112

Дата добавления: 26 Марта 2009, 15:04
Теги:готовые лабы, ссылка, ФУНКЦИИ, Паскаль, процедуры, двумерный массив, массив, программирование, информатика, индексы
Поделиться:
Скачать:

Скачать работа с двумерными массивами Паскаль бесплатно и без регистрации


Внимание! Если ссылка не работает, файл не найден или просто возникают какие-либо вопросы, напишите об этом, пожалуйста, мне на почту: xdypx@yandex.ru. В письме достаточно указать ссылку на эту страницу и описание проблемы или свой вопрос.


Описание:
Задание:
В числовом квадратном массиве постройте “спираль Улама” следующим образом: начиная с центрального элемента по спирали против часовой стрелки, массив заполняется натуральными числами от 1 до N^2. Определить количество простых чисел в массиве.

Исходный код:
Program name;
uses crt;
var
 a:array[1..50,1..50] of integer;
 i,j,m,n:integer;
 u,v,k,kol,t,x,y,add,dir,f,h:integer;
 b:array[1..2500] of integer;
 p:array[1..2500] of integer;
 g,r,q:integer;

 {fun-ya poiska prostogo 4isla}
function Prostoe(d:longint):boolean;
var e:integer;
 begin
  Prostoe:=true;
  for e:=2 to d div 2 do
  if D mod 2=0 then
   begin
    Prostoe:=false;
    Break;
   end;
 end;

begin
clrScr;

writeln('input razmer matrici: ');
readln(n);
m:=n*n;

g:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=g;
    g:=g+1;
    writeln;
   end;
 end;

for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j]:3,' ');
  writeln;
 end;


k:=1;
kol:=1;
for i:=1 to n do
 begin
  {writeln;}
   for j:=1 to n do
    begin
     b[k]:=a[i,j];
     k:=k+1;
     kol:=kol+1;
    end;
 end;

writeln;
for i:=1 to kol-1 do
  begin
    for j:=1 to kol-2 do
     begin
      if b[j]<b[j+1] then
       begin
        t:=b[j];
        b[j]:=b[j+1];
        b[j+1]:=t;
       end;
     end;
  end;
  {for j:=1 to m do write (b[j],' ');
  writeln;}

x:=0;
y:=1;
add:=n;
dir:=1;
f:=1;
while add<>0 do
 begin
  i:=0;
  while i<>add do
   begin
     x:=x+dir;
     a[y,x]:=b[f];
     f:=f+1;
     i:=i+1;
   end;
  i:=0;
  add:=add-1;
  while i<>add do
    begin
      y:=y+dir;
      a[y,x]:=b[f];
      f:=f+1;
      i:=i+1;
    end;
  dir:=dir*(-1);
end;

writeln;
{vivod vsego massiva}
for i:=1 to n do
 begin
  for j:=1 to n do
   write(a[i,j]:3,' '); {vivod vsego massiva}
  writeln;
 end;
 {poisk prostogo 4isla}
 q:=1;
 for i:=1 to n do
 begin
  for J:=1 to n do
   begin
    if Prostoe(a[i,j]) then
     q:=q+1;
   end;
 end;
 writeln;
 writeln('kol-wo prostih 4isel= ',q); {vivod kol-va prosogo 4isla}

readln;
end.

Комментарии:
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Разделы новостей
Образование [4]
лабы на Паскале [11]
Шпоры [10]
Учебники [19]
Лабы по физике [3]
Лабы по С++ [7]

Статистика

Яндекс.Метрика


Онлайн всего: 1
Гостей: 1
Пользователей: 0

Все пользователи

Яндекс цитирования Rambler's Top100 Каталог сайтов OpenLinks.RU Каталог сайтов iLinks.RU Каталог сайтов :: Развлекательный портал iTotal.RU Каталог сайтов Bi0 Каталог сайтов Всего.RU