Помощь студентуФайлылабы на Паскалеработа с двумерными массивами Паскаль
22 Июня 2017, Четверг
17:15
>>> Качественная веб-разработка <<<
17:15
Меню сайта
>Г Л А В Н А Я

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Шпора Все формулы по физике
На одном листе А4 размещены почти все основные формулы по физике. Если лень самому делать шпоры, то качайте этот файл.

Шпоры по Теории Информации (ТИ)
Шпоры по Теории Информации. Смагин А. А. , Ульяновск, Ульяновский Государственный Университет (УлГУ),  Факультет Математики и Информационных Технологий (ФМиИТ)
Нужно распечатать каждую страницу с обеих сторон листка!

Windows 7 Toolkit 1.8 (полная активация Windows 7)
В связи с большим количеством обращений в поисковик по запросу "активация Windows 7" выкладываю рабочий активатор для Семерки.
Оптимизатор системы Windows 7. Главная функция его - полная активация системы
. Теперь версия системы не будет работать как RC, до определённого времени, а как полноценная многофункциональная система.

работа со списками Паскаль
Задание:
Создать и заполнить список целыми числами. Найти минимальный и максимальный элементы списка; подсчитать количество мин. и макс. элементов в списке; вывести на экран индексы мин. и макс. элементов;вывести на экран индексы первого и последнего вхождений мин. и макс.


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

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


код кнопки:


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


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

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

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

Дата добавления: 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