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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Шпора по матану Интегралы, Ряды
Очень хорошая шпора по Математическому анализу. Удобно сделана: скачал, распечатал, разрезал. Почти все темы по интегралам и рядам. Делал для себя, поэтому сделана хорошо. формат .doc

TurboPascal_7.1 (рус)
TurboPascal_7.1 поддерживающий русский язык и с русской справкой.

MathCad 14
MathCad 14 + crack + русификатор.

Система PTC Mathcad 14 предоставляет собой мощное, удобное и наглядное средство описания алгоритмов решения математических задач. Система MathCAD настолько гибка и универсальна, что может оказать неоценимую помощь в решении математических задач как школьнику, постигающему азы математики, так и академику, работающему со сложнейшими научными проблемами.


Работа с Турбо Паскалем #1/2
Хороший учебник по языку Паскаль. Очень много полезной информации, все описывается без лишних слов.

Вторая часть.


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

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


код кнопки:


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


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

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

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

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