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

>Ф А Й Л Ы

>С Т А Т Ь И

>Р Е Ф Е Р А Т Ы

>Ф О Р У М

>О Т З Ы В Ы

>Т Е С Т Ы

>F l a s h И Г Р Ы

>Ф О Т О Ш О П


Советуем...
Программа для создания шпор
Программа для автоматического создания шпор. Закладываете текст, рисунки и прочее, печатаете нужное количество копий - получаете всей группой зачет.

работа со списками Паскаль
Задание:
Дан текстовый файл с целыми числами, которые необходимо переписать в список. Удалить из списка все числа–палиндромы, вставив вместо них минимальное число всего списка.­

Пример:
исходный список:'127 12321 67897 45654 10001 17 9856 93456 767 984'
преобразованный в список: '127 17 67897 17 17 9856 93456 17 984'.

ИЗУЧЕНИЕ ЗАКОНОВ РАВНОУСКОРЕННОГО ДВИЖЕНИЯ (Машина Атвуда )
ИЗУЧЕНИЕ ЗАКОНОВ РАВНОУСКОРЕННОГО ДВИЖЕНИЯ
1. Цель работы: изучение динамики поступательного движения связанной системы тел с учетом силы трения; оценка роли трения как источника систематической погрешности при определении ускорения свободного падения на лабораторной установке.
2. Перечень приборов и принадлежностей: для выполнения данной лабораторной работы нам потребуется: установка «машина Атвуда», электронный секундомер, набор грузов массой М=0,186 кг, m=0,072 кг.
3. Материал для изучения: Уравнения динамики поступательного движения; сила трения; определение погрешностей измерений.

NVU 1.0 PR ruRU win32 installer full

NVU это Open Source проект Linspire по созданию визуального (WYSIWYG) HTML редактора. Как и для Firefox и Thunderbird основой для создания NVU послужила часть кода выделенного из Mozilla - код Mozilla Composer. К созданию NVU был привлечен главный архитектор Mozilla Composer - Дэниел Глазман. На сегодняшний день NVU имеет уже достаточно много возможностей отсутствующих в оригинальном Mozilla Composer. Это Менеджер сайтов, позволяющий редактировать страницы на удаленном сервере, встроенный Редактор CSS c предварительным просмотром стилей, цветная подсветка синтаксиса в режиме редактирования кода, проверка орфографии и многое другое. Разработчики обещают поднять его функциональность до уровня FrontPage и Dreamweaver.



Опрос
Вы учитесь в ...
Всего ответов: 657

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


код кнопки:


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


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

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

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

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