16:53
ОбновитьСмайлыУправление мини-чатом
МИНИ-ЧАТ
Главная страница!

 



 
        
Подвиcание SA-MP (2)
Max 20.02.2017 21:57
MYSQL Донат (2)
JasonGordon 08.02.2017 10:39
Зацените (12)
JasonGordon 26.01.2017 18:36
 





Рекомендуем:
Добавить IP: 95.172.59.51:7777





Последние Файлы GTA 4 Последние Файлы GTA-MP Реклама
Скрипт GTA 4 элементы Watch... 07.09.2014
Ferrari 360 Spider [EPM con... 13.12.2013
Porsche Cayenne Turbo 2012 ... 13.12.2013
Shelby Terlingua Mustang v1... 13.12.2013
Hamann Lamborghini Gallardo... 27.10.2013
Dgun (AvnanceRP,SampRP,Dimo... 19.03.2016
SAMP скрипт SX Events (MySQ... 03.03.2016
Карта ASL мэрия для SAMP се... 03.03.2016
AIM для SA-MP 0.3.7 22.02.2016
Скачать GTA SAMP 0.3.7 - Кл... 20.07.2015
Страница 1 из 11
Модератор форума: _Z_ 
Форум SAMP о мультиплеерах для GTA. » Обсуждения других тем » Учёба и работа » Pascal ABC
Pascal ABC
-=Spektr=-Дата: Воскресенье, 29.01.2012, 14:00 | Сообщение # 1
Уверенный в себе
Группа: I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус:
Доброго времени суток.
Я бы хотел попросить вашей помощи в решении некоторых заданий.
1. В институте N факультетов. О каждом факультете известно количество человек, которые должны быть набраны на факультет, а также число поданных заявлений на поступление. Выдать список факультетов такой, чтобы сначала шли факультеты с самым большим конкурсом, и так далее по убыванию. (используется несколько массивов)
2. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива.
3. Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить циклический сдвиг ВПРАВО на 4 элемента.

Сам решать я их, конечно же, пробовал. Вот набросок для 1-й задачи, но сравнение у меня там как-то не очень получается, можно даже сказать вообще не получилось:
Code

const N = 999999;
var a:array[1..N] of integer;
     b:array[1..N] of integer;
     z,max,max1,i,k:integer;
begin
      repeat
            write('Введите кол-во факультетов в институте: ');
            readln(z);
      until z >= 1;
      for i:= 1 to z do
      begin
            write('Введите кол-во человек, которые должны быть набраны на ',i,' факультет: ');
            readln(a[i]);
            write('Введите число поданых заявлений на поступление: ');
            readln(b[i]);
            a[i]:= b[i] div a[i];//определения конкурса человек на место
      end;
      max:= a[1];
      for i:= 2 to z do
          if a[i] > max then max:= i;//Находим самый большой конкурс
      while k <> z do
      begin
            k:= k+1;
            max1:= a[1];
            for i:= 2 to z do
                if (a[i] > max1) and (a[i] < max) then max1:=a[i];
            max:= max1;
            writeln(max);
      end;
end.

Ну а в остальных задачах код вышел убогий и не работоспособный, так что не вижу смысла показывать его вам)
Заранее благодарен и +дарителен

RockmanДата: Воскресенье, 29.01.2012, 15:25 | Сообщение # 2
Постоялец
Группа: Продвинутые
Сообщений: 430
Награды: 4
Город: Нижний Новгород
Репутация: 474
Замечания: 0%
Статус:
-=Spektr=-, могу написать на Си, если сможешь перепишешь на Паскале
-=Spektr=-Дата: Воскресенье, 29.01.2012, 15:37 | Сообщение # 3
Уверенный в себе
Группа: I'm V.I.P.
Сообщений: 232
Награды: 3
Город: MDK
Репутация: 166
Замечания: 0%
Статус:
Эм, ну можно попробовать. Я не знаю Си, но он ведь не сильно отличается от паскаля?
3-я задача решена, спасибо Google за это (решение смотрел там вчера, но как-то не особо понимал его, сегодня же получилось). :)



Сообщение отредактировал -=Spektr=- - Воскресенье, 29.01.2012, 16:37
Форум SAMP о мультиплеерах для GTA. » Обсуждения других тем » Учёба и работа » Pascal ABC
Страница 1 из 11
Поиск:





 


 


 
Хостинг от uCoz SAMP-RUS.COM