Карта сайта

Это автоматически сохраненная страница от 19.03.2014. Оригинал был здесь: http://2ch.hk/b/res/64606940.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Срд 19 Мар 2014 08:06:46
Сап, двач. Напиши мне программу на паскале. Я вообше не ебу, как решать хоть что-то на паскале.



Срд 19 Мар 2014 08:08:01
Бамп.

Срд 19 Мар 2014 08:08:57
Школьник.

Срд 19 Мар 2014 08:09:17
>>64606980
Да.

Срд 19 Мар 2014 08:10:02
Какой класс?

Срд 19 Мар 2014 08:10:23
#include <iostream>
#include <string>
#include <vector>

const char ANY_SYMBOOL = '?';

std::vector<int> prefixFunction(const std::string & str) {
std::vector<int> borders(str.length());
for (size_t index = 1; index < str.length(); ++index) {
int maxPrefix = index;
do {
maxPrefix = borders[maxPrefix - 1];
if (str[maxPrefix] == str[index]) {
borders[index] = maxPrefix + 1;
break;
}
} while (maxPrefix != 0);
}
return borders;
}

std::vector<int> search(const std::string & text, const std::string & pattern) {
std::vector<int> positions;
std::vector<int> borders = prefixFunction(pattern);
size_t mathed = 0;
for (size_t index = 0; index < text.length(); ++index) {
if (mathed == pattern.length() text[index] != pattern[mathed]) {
while (mathed != 0) {
mathed = borders[mathed - 1];
if (pattern[mathed] == text[index]) {
break;
}
}
}
if (text[index] == pattern[mathed]) {
++mathed;
if (mathed == pattern.length()) {
positions.push_back(index - pattern.length() + 1);
}
}
// std::cout << mathed << "\n";
}
return positions;
}

std::vector<bool> updateMask(const std::vector<bool> & oldMask,
const std::string & text,
const std::string & exactPattern,
int patternIndex)
{
if (exactPattern.empty()) {
return oldMask;
}
std::vector<bool> newMask(text.length());
std::vector<int> indexes = search(text, exactPattern);
for (std::vector<int>::iterator it = indexes.begin(); it != indexes.end(); ++it) {
int index = *it;
int startIndex = index - patternIndex + exactPattern.length();
if (startIndex >= 0 && oldMask[startIndex]) {
newMask[startIndex] = 1;
}
}
return newMask;
}

std::vector<int> fuzzySearch(const std::string & text, const std::string & pattern) {
if (text.length() < pattern.length()) {
return std::vector<int>();
}
std::vector<bool> mathedMask(text.length());
for (std::vector<bool>::iterator it = mathedMask.begin();
it + pattern.length() - 1 < mathedMask.end();
++it)
{
*it = true;
}
std::string exactPattern = "";
for (size_t patternIndex = 0; patternIndex < pattern.length(); ++patternIndex) {
char symbool = pattern[patternIndex];
if (symbool == ANY_SYMBOOL) {
mathedMask = updateMask(mathedMask, text, exactPattern, patternIndex);
exactPattern = "";
} else {
exactPattern += symbool;
}
}
mathedMask = updateMask(mathedMask, text, exactPattern, pattern.length());
std::vector<int> result;
for (size_t i = 0; i < mathedMask.size(); ++i) {
if (mathedMask) {
result.push_back(i);
}
}
return result;
}

int main() {
std::ios_base::sync_with_stdio(false);

std::string text;
std::string pattern;
std::cin >> pattern;
std::cin >> text;

std::vector<int> positions = fuzzySearch(text, pattern);
std::cout << positions.size() << std::endl;

for (std::vector<int>::iterator it = positions.begin(); it != positions.end(); ++it) {
std::cout << *it << ' ';
}
return 0;
}

не благодари

Срд 19 Мар 2014 08:10:41
>>64606996
Девятый.

Срд 19 Мар 2014 08:11:27
>>64607007
> на паскале

Срд 19 Мар 2014 08:15:17
>>64607026 ну ок

from collections import defaultdict
import sys
import pickle


def bigram_frequencies(text):
total = 0
bigram_freqs = defaultdict(float)
prev = ' '
for c in text:
if not c.isalpha():
c = ' '
if prev.isalpha() or c.isalpha():
bigram_freqs[prev + c] += 1
total += 1
prev = c

for b in bigram_freqs:
bigram_freqs /= total

return bigram_freqs


class Decryptor():
def init(self, etalon_bigrams):
self._decrypt_key = None
self._etalon_bigrams = etalon_bigrams
self._etalon_unigrams = None
self._all_etalon_unigrams = self._unigram_frequencies(etalon_bigrams)
self._bigrams = None
self._unigrams = None

def decrypt(self, text):
self._decrypt_key = {' ': ' '}
self._etalon_unigrams = self._all_etalon_unigrams
self._bigrams = bigram_frequencies(text)
self._unigrams = self._unigram_frequencies(self._bigrams)

while self._unigrams:
candidate_key, candidate_values = self._find_candidates()
best_value = sorted(candidate_values, key=lambda v: self._estimate(candidate_key, v))[0]
self._decrypt_key[candidate_key] = best_value
del self._etalon_unigrams[best_value]
del self._unigrams[candidate_key]
# print candidate_key, '_', best_value

return ''.join([c.isalpha() and self._decrypt_key[c] or c for c in text])

def _find_candidates(self, n=5):
etalon_unigrams = sorted(self._etalon_unigrams.iterkeys(), key=lambda k: self._etalon_unigrams[k], reverse=True)
best_unigram = max(self._unigrams.iterkeys(), key=lambda k: self._unigrams[k])
return best_unigram, etalon_unigrams[:n]

def _estimate(self, candidate_key, candidate_value):
bigram_diff = 0.
for second in self._decrypt_key:
key_bigram = candidate_key + second
bigram = candidate_value + self._decrypt_key[second]
diff = self._bigrams[key_bigram] - self._etalon_bigrams[bigram]
bigram_diff += diff * diff

for first in self._decrypt_key:
key_bigram = first + candidate_key
bigram = self._decrypt_key[first] + candidate_value
diff = self._bigrams[key_bigram] - self._etalon_bigrams[bigram]
bigram_diff += diff * diff

max_frequency = max(self._unigrams[candidate_key], max(self._etalon_unigrams.values()))
unigram_diff = (max_frequency - self._etalon_unigrams[candidate_value]) ** 2
# unigram_diff /= (max_frequency + self._etalon_unigrams[candidate_value] + 0.000001)
# print '__t', candidate_value, unigram_diff, unigram_diff, self._unigrams[candidate_key], self._etalon_unigrams[candidate_value]
return (unigram_diff + bigram_diff) * bigram_diff

@staticmethod
def _unigram_frequencies(bigrams):
unigrams = defaultdict(float)
for bigram in bigrams:
first, second = bigram
if first.isalpha():
unigrams[first] += bigrams[bigram]
return unigrams


if len(sys.argv) != 4 or sys.argv[1] not in ['f', 'd']:
print 'Usage: decode \n\t f sample_file output_file \n\t d file frequencies_file'
elif sys.argv[1] == 'f':
with open(sys.argv[2]) as sample:
sample_text = sample.read()
bigram_freqs = bigram_frequencies(sample_text)
with open(sys.argv[3], 'wb') as output:
pickle.dump(bigram_freqs, output)
else:
with open(sys.argv[2], 'rb') as freqs_file:
bigram_freqs = pickle.load(freqs_file)
with open(sys.argv[3]) as test_file:
file_text = test_file.read()
print Decryptor(bigram_freqs).decrypt(file_text)

Срд 19 Мар 2014 08:17:16
Ну же, анон, оставь свою мелкую гордость.

Срд 19 Мар 2014 08:19:32
>>64606940
Ленивое хуйло, школьные олимпиады не для того были сделаны чтобы на сосаче все за тебя решили!

Срд 19 Мар 2014 08:19:46
>>64607112
Почему ты такой.


Срд 19 Мар 2014 08:20:42
>>64607200
>олимпиады
Это олимпиадное задание?!!

Срд 19 Мар 2014 08:21:04
>>64607200
Я не ленивый. Я не знаю.

Срд 19 Мар 2014 08:24:00
>>64607224
нет.

>>64606940
Очень простая программа, сучонок! Марш решать самостоятельно.

Срд 19 Мар 2014 08:26:00
>>64606940
Сначало в промежуточный массив записываешь все числа, mod 9 которых = 4, потом тем же самым пузырьком сортировка, уебок тупой находишь минимальный. Все просто.

Срд 19 Мар 2014 08:26:07
>>64607236
>Я не ленивый.
>Я не знаю.
Тогда открой книгу и прочитай как делается.

Срд 19 Мар 2014 08:27:18
>>64607351
mod 10
быстрофикс

Срд 19 Мар 2014 08:27:38
>>64607351
>Сначало
>mod 9 которых = 4
>пузырьком
Typical russian student.

Срд 19 Мар 2014 08:27:46
>>64607308
ок а реши мне эту раз любишь поинтересней


Срд 19 Мар 2014 08:28:42
>>64607375
хахах :D

Срд 19 Мар 2014 08:29:10
>>64607380
Это кнут?

Срд 19 Мар 2014 08:30:49
>>64607380
Здесь хотя бы задача нормально поставлена. Мы (и я лично) такое же блядство программили на 3-ем курсе, только задача была поставлена расплывчато, а преподша с трудом умела связывать между собой элементарные понятия.

Срд 19 Мар 2014 08:31:06
program ophyi;
uses crt;
const
lens= 1000; //* Количество элементов массива */

var
A:array[1 ..lens] of integer; //* Целочисленный массив A */
mit:integer; //* Переменная для перестановки */
j,i:integer;
min:integer; //* Минимальный элемент */
ek:integer; //* Номер минимального элемента */
BEGIN
clrscr; //* Очистка экрана */
randomize; //* Инициализация случайного выбора */
for i:=1 to lens do A:=random(diap); //* Заполнение массива */
min:=30000;
for i:=1 to lens-1 do //* Цикл замены по всему массиву */
begin
if(a mod 10=4) then
if(a<min) then min:=a;
end;
writeln(min);
end.

как-то так, не тестил. Писал на паскале последний раз лет 10 назад

Срд 19 Мар 2014 08:31:08
>>64607375
Что блять? так как количество чисел в исходном массиве не превышает 1000, то почему бы и не пузырек, уебок? Тут не нужно строить бинарные деревья, уебок. И что тебе не понравилось в mod 10? Это наиболее быстрый способ отсеить все числа оканчивающиеся на 4.

Срд 19 Мар 2014 08:31:48
>>64607224
Если так, то это пиздец.

readln(a);
x:=30000;
for i:=1 to n do begin;
if (a mod 10 = 4) and (a<x) then x:=a;
if a=4 then break;
end;
writeln(x);
end.

n - кол-во переменных

Срд 19 Мар 2014 08:32:13
>>64607380
неа, вообще скорее всего это решается какими-нибудь самобалансирующимися деревьями или деревьями отрезков но что-то я ничего придумать не могу

Срд 19 Мар 2014 08:33:08
>>64607455
Надо через readln принимать на вход данные. Просто придумать массив нельзя. У студентишек сейчас так.

Срд 19 Мар 2014 08:33:44
>>64607472
Проебался, нужно запихать чтение переменной тоже в цикл.

Срд 19 Мар 2014 08:33:47
>>64607472
>минимальное
Ищет первое. Ой уебок.

Срд 19 Мар 2014 08:34:36
>>64607455
> for i:=1 to lens-1 do
> for i:=1 to lens-1 do
> for i:=1 to lens-1 do
> lens-1
> lens-1
> lens-1
> lens-1

TI CHO OHUEL. А как же последний элемент?

Срд 19 Мар 2014 08:34:37
>>64607455
вакаба проебывает разметку
program ophyi;
uses crt;
const
lens= 1000; //* Количество элементов массива */

var
A:array[1 ..lens] of integer; //* Целочисленный массив A */
mit:integer; //* Переменная для перестановки */
j,i:integer;
min:integer; //* Минимальный элемент */
ek:integer; //* Номер минимального элемента */
BEGIN
clrscr; //* Очистка экрана */
randomize; //* Инициализация случайного выбора */
for i:=1 to lens do A:=random(diap); //* Заполнение массива */
min:=30000;
for i:=1 to lens-1 do //* Цикл замены по всему массиву */
begin
if(a mod 10=4) then
if(a<min) then min:=a;
end;
writeln(min);
end.

как-то так, не тестил. Писал на паскале последний раз лет 10 назад



Срд 19 Мар 2014 08:35:12
>>64607455
Может я что то не понимаю, но зачем там юзать монитор? Чтобы его почистить?

Срд 19 Мар 2014 08:35:12
Задача содним ифом -пербор всех входных данных, перевод в строку, проверка последнего символа на 4

Срд 19 Мар 2014 08:35:22
>>64607457
Далбаёб, минимальное значение массива можно найти без сортировки вообще.

Срд 19 Мар 2014 08:36:13
>>64607537
http://helpw.ru/SortPerP.php
я отсюда взял код и модифицировал, ибо нихуя синтаксис не помню

Срд 19 Мар 2014 08:36:37
>>64607537
Чтобы затирать результаты предыдущих выполнений. На turbo pascal так. На Delphi/rad studio нет.

Срд 19 Мар 2014 08:37:07
>>64607503
лол хахах :D

Срд 19 Мар 2014 08:37:23
>>64607537
Лолда.

>>64607526
Содомит, тебе даны входные данные, а ты напрягаешь компьютер рандомайзом. И изменение кол-ва чисел тоже нужно учесть.

Срд 19 Мар 2014 08:38:12
>>64607457
>почему бы и не пузырек
Сортировка не нужна
>что тебе не понравилось в mod 10? Это наиболее быстрый способ отсеить все числа оканчивающиеся на 4
Побитовые операции быстрее.

Срд 19 Мар 2014 08:39:36
>>64607541
Если нет ограничений на время выполнения и память, то почему бы и не сделать ее, пригодится для дальнейшего расширения функционала. Если есть возможность сделать все правильно, но при этом затратить чуть больше ресурсов, но с заделом на будущее - то нужно делать так.

Срд 19 Мар 2014 08:40:10
>>64607603
>Побитовые операции быстрее.

i lol'd.

Нет. Скоро, на следующем курсе, ты узнаешь архитектуру процессора и поймешь почему.

Срд 19 Мар 2014 08:40:41
>>64607541
Недостаток пузырька в данном случае что он требует O(n^2) времени. Однако задачу поиска к-й статистики можно решить за линейное время. Для этого нужно рекурсивно разбивать массив на 2 части по опорному элементу как при quick sort, но каждый раз рассматривать только ту часть в которой может находится искомый элемент (это можно понять из их размера)

Срд 19 Мар 2014 08:41:04
>>64607635
>Если нет ограничений

Если нет ограничений, то почему-бы вместо решения задачи не написать компьютерную игру?

Срд 19 Мар 2014 08:41:15
>>64607603
Прозреваю, что оп-хуй и это просто задача из с4 информатики, а там иногда проверяющие попадаются, которые не знают даже о возможности подключения инишников системных. Так что лучше не рисковать с излишними изъебами.

>>64607635
С тебя обычно требуют максимальное быстродействие и минимальный отжор памяти.

Срд 19 Мар 2014 08:41:36
>>64607644
>архитектуру процессора
Дай угадаю, i8086 из 80-х, да? Поссал на уебка с его АРХИТЕКТУРОЙ.

Срд 19 Мар 2014 08:42:06
>>64607380
ОПхуй, я не знаю ответа, но, думаю, это поможет тебе в решении данной задачи.


Срд 19 Мар 2014 08:43:09
>>64607668
Реализовав при этом основное задание - то да, почему бы и не написать. Ссу на уебков, мыслящих категориями задания в лр.

Срд 19 Мар 2014 08:44:21
>>64607715
Если творческое без ограничений - можно повеселиться, но задание не одно, вот в чем проблема. Энжой ер кодинг, вместо программирования.

Срд 19 Мар 2014 08:44:38
>>64607673
>инишников системных
В анус засунь свои инишники, мразь.
мимолинуксобог

Срд 19 Мар 2014 08:46:20
>>64607673
Вангую, что данная задача на практике будет выполняться менее чем за 3-4 мс. Какое нахуй быстродействие, что ты несешь. 2014 год быстродействие ссаной консольной хуйни с 2 циклами. Просто пиздец.

Срд 19 Мар 2014 08:47:43
>>64607687
Типа такого чтоли?

> if ((X and $F)=4) then ...

Ну вообще да, ты прав.

Срд 19 Мар 2014 08:48:16
>>64607741
Я так и не понял твоего бугурта. Пузырек здесь хоть и не обязателен, но ошибкой не является. И с этим глупо спорить. Свою позицию касательно расширения функциональности я уже изложил.

Срд 19 Мар 2014 08:49:38
>>64607783
На gpu вообще за 2-3 мкс

Срд 19 Мар 2014 08:49:59
>>64607783
Точно, давай сортировать всё что видишь! Это лучший путь к успеху!

Срд 19 Мар 2014 08:52:18
>>64607828
>Пузырек здесь хоть и не обязателен, но ошибкой не является

Это плохая практика. Привыкать к ней - копать самому себе ямы на будущее и когда-нибудь, привыкнув делать хуиту, не смочь в крупные проекты.

Срд 19 Мар 2014 08:52:27
>>64607868
Почему ты такой глупый? Препод без труда может сказать, чтобы ты вывел 4, 6, 10 число, оканчивающееся на 4, или 4, 6, 10 по возрастанию/убыванию - я изначально предложил универсальный метод для всех случаев - промежуточный массив и конечный отсортированный.

Срд 19 Мар 2014 08:54:39
>>64607917
Если речь идет о крупном проекте и коллективе, работающем параллельно, то да, безусловно, реализация только того, что требуется исходя из актуальной задачи.
Если же речь идет о том, что я один пилю проект, и не важно лр или что-то другое, то я предусмотрю как можно больший функционал исходя из поставленной задачи.

Срд 19 Мар 2014 08:54:55
>>64607924
>Препод без труда может сказать, чтобы ты вывел 4, 6, 10 число, оканчивающееся на 4, или 4, 6, 10 по возрастанию/убыванию

чё?

Срд 19 Мар 2014 08:54:59
var i,t,g,x,otvet:integer;
begin
otvet:= 32000;
writeln("vvedite kolichestvo chisel");
readln(t);
writeln("vvodite chisla cherez enter");
for i:=0 to t do begin
readln(x);
g:= x mod 10;
if (g=4) and (x<otvet) then otvet:=x;
end;
if otvet = 32000 then writeln("chislo ne naydeno");
if otvet <> 32000 then writeln(otvet);
end.

Не спал уже более 16 часов и не кодил на паскале более года. Но решил. Вроде, лол. Пойду спать теперь.

Срд 19 Мар 2014 08:56:00
>>64607967
Это не функционал. Это внутренняя бессмысленная нагрузка.

Срд 19 Мар 2014 08:56:13
>>64607977
>vvedite kolichestvo chisel
Всегда проигрывал с транслита. Пишите по-английски, блядь!

Срд 19 Мар 2014 08:57:16
>>64607977 -- вот он правильно решил.

ОП, готово))

Срд 19 Мар 2014 08:57:32
>>64607975
Так, Сеня, а что это у тебя как у всех, if (a mod 10 = 4) and (a<x) then x:=a; , а выведика мне 5-ое число по порядку и 8 по возрастанию, оканчивающиеся на 4. И это довольно распространенная практика.

Срд 19 Мар 2014 08:58:15
>>64608001
Enter num of digits или что?

Срд 19 Мар 2014 08:58:28
>>64608001
Препод обосранный не понимает по-английски.

Срд 19 Мар 2014 08:58:32
Словил багет с ОПа. Сам школьник, у нас такого в помине нет. А еще хочу стать погромистом, как же.

Срд 19 Мар 2014 08:58:50
>>64607977
>Не спал уже более 16 часов
И что?

Срд 19 Мар 2014 08:59:26
>>64608039
Enter amount of digits скорее. Последний пост автора того решения.

Срд 19 Мар 2014 09:00:05
>>64608028
Вот как он тебе это скажет, вот тогда и сделаешь. А сюда хуйню совать не надо, в задаче этого не было.

Ты пытаешься предугадать требования препода заранее, а они могут быть какие угодно.

Срд 19 Мар 2014 09:02:00
> Please enter the number count:


Срд 19 Мар 2014 09:02:53
Аноны, нужно написать прогу вычисления 1024 чисел Фибоначчи, но блять, в Си там же long long int только до 4-х миллиардов, а в 1024 числе Фибоначчи цифр будет с несколько десятков. Ваши предложения?

Срд 19 Мар 2014 09:03:27
>>64608039 >>64608072
Вы отличаете цифры от чисел?

Срд 19 Мар 2014 09:04:05
>>64608082
>вот тогда и сделаешь
>А сюда хуйню совать не надо, в задаче этого не было
Да ты же типичный пидораха, дружок.

Срд 19 Мар 2014 09:04:33
>>64608147
Мутишь агрегат (класс) для оперирования числами неограниченной длины. Используешь его чтобы выполнить задачу. А лучше взять готовый класс.

Срд 19 Мар 2014 09:05:27
>>64608185
Это понятно. Но во-первых, Си, а не Сипп, во-вторых как его замутить с нуля.

Срд 19 Мар 2014 09:06:20
>>64608174
Нет, это называется грамотное расходование сил. Узнаю в тебе себя на первом курсе.

закончил универ 4 года назад

Срд 19 Мар 2014 09:07:16
>>64608212
Смотришь такой же класс на C++, копируешь кусками кода в C, либо переписываешь где надо.

Срд 19 Мар 2014 09:08:12
>>64608241
>Дописать два цикла, повысив функционал на 200% - израсходовать дохуя сил.
Если для тебя это расходование сил, то ты просто конченный уебок.

Срд 19 Мар 2014 09:08:45
>>64608257
Но я хочу сам написать.

Срд 19 Мар 2014 09:09:46
>>64608241
Сейчас часом не пхпобезьяна?

Срд 19 Мар 2014 09:10:13
>>64608298
>хочу сам написать
>Ваши предложения?

Срд 19 Мар 2014 09:10:30
>>64608174
А желание предугадать требования препода/начальника/хозяина заранее, это ли не рабский менталитет пидорахи?

Срд 19 Мар 2014 09:10:56
А я забил на школу и не ебу эти проблемы.
Все чмо.

Срд 19 Мар 2014 09:11:02
>>64607977
аноны, так это правильно?

Срд 19 Мар 2014 09:11:38
Когда я создавал такой тред, мне написали какую то еботу написали, но тоже нерравильно. В итоге сам сделал, хотя нихуя не понимаю.

Срд 19 Мар 2014 09:11:50
>>64608337
Я хочу узнать идею, а писать буду сам, с нуля. Только направление бы.

Срд 19 Мар 2014 09:12:49
>>64608298
Тогда реализуешь функции для побитового сложения, вычитания, деления, умножения. Каждый бит хранится как ячейка массива, её тип - например word. Потом используешь его чтобы посчитать числа фибоначчи.

Срд 19 Мар 2014 09:12:52
>>64608343
Это менталитет успешного человека. Ибо предугадывать требования потребителя есть профит, в данном случае потребитель есть препод.

Срд 19 Мар 2014 09:13:30
>>64608281 >>64608326
Эх. Вы просто дети еще.

Срд 19 Мар 2014 09:13:42
>>64606940

min4=0;
for a:=1 to kolvo do
begin
b:=(massiv[a]/10-int(massiv[a]/10))*10; {число делится на 10, то что остаётся после запятой и есть последнее число}
if b=4 then if (massiv[a]<min4) or (min4=0) then min4:=massiv[a]; {сравнение с минимальным числом (если 0, значит такое ещё не находилось и текущее забивается как пока что единственное)}
end;

запилил тебе сам алгоритм поиска, адаптируй под синтаксис паскаля и добей описания переменных и ввод вывод в массив

Срд 19 Мар 2014 09:13:58
>>64608356
Да, но это решение быдла и для быдла. 95 из 100 выбрали бы именно этот путь. Поэтому готовься к сгущенке от препода, мудак.

Срд 19 Мар 2014 09:14:11
>>64608394
>Каждый бит хранится как ячейка массива
>её тип - например word
На всю контору проиграл!

Срд 19 Мар 2014 09:14:59
Хаскель это паскаль.

Срд 19 Мар 2014 09:16:19
>>64608396
Нет, ты ошибся и посему неудачник.

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

Срд 19 Мар 2014 09:16:54
>>64608415
тебя забыли спросить иди нахуй маня. решение правильное - пойдет

Срд 19 Мар 2014 09:17:09
>>64608420
От чего это?

Срд 19 Мар 2014 09:17:10
>>64608394
Хвалю, анон. Молодец. Только не побитового, а так сказать столбиком. И массив из short int вполне подойдет.

Срд 19 Мар 2014 09:17:28
>>64606940
Прочитал, что это вообще за гавно? Нахуй это кому нужно? Где в том же виндовосе или крузисе есть блоки с подобной хуетой? Я на первом курсе тоже гавно изучал, но все таки биохимя и анатомия, а этот бред в хуй ни кому не уперся. Ущербные вы, а еще КО КО КО праграммирование. А следом треды, я нихачу жить, в институ ни хажу. Я бы тоже хуй ходил бы если бы мне подобную чушь с давали.


Срд 19 Мар 2014 09:17:35
Блядь, задача же элементарная. Через четверку как символ. Решил бы, но я такое же ленивое хуйло, как ОП.
Мимо-11-класс

Срд 19 Мар 2014 09:18:08
>>64608356
Не уверен, в паскале никогда не работал, но учитывая то что переменная otvet не меняется ответ скорее всего всегда будет if otvet = 32000 then writeln("chislo ne naydeno");

Срд 19 Мар 2014 09:18:45
>>64608463
Если начальник = заказчик, то да. А так ты уебок полный, налажавший уже два раза. Если ты не мимохуй, разумеется.

Срд 19 Мар 2014 09:19:03
>>64608490
Ну это уже детали, основная мысль понятна. Есть масса готовых классов по этой теме, а самому ебаться я бы не стал и не советую.

Срд 19 Мар 2014 09:19:49
>>64606940
А где пожалуйста, пидор?

Срд 19 Мар 2014 09:19:51
>>64608481
Таки да, если задание окончательно выполнено - можно забить хуй. Но если необходимо оптимизировать или придется в обозримом будущем что-то дописывать - лучше писать не через три пизды колена, а наиболее оптимально и, желательно, с коментариями.

Срд 19 Мар 2014 09:20:12
>>64608542
Почему? Там ничего сложного не должно быть, по крайней мере для сложение/вычетания. Да и для умножения тоже. А вот с делением сложнее.

Срд 19 Мар 2014 09:21:04
>>64608500
Гуманитарий порвался. Несите нового.


Срд 19 Мар 2014 09:21:18
>>64608505
>Через четверку как символ
Что блять?

Срд 19 Мар 2014 09:22:10
>>64608522
Это верное решение. Нужно только еще модули стандартные подключить. И все будет работать.

Срд 19 Мар 2014 09:23:23
>>64608537
Я смотрю тебе важно во что бы то ни стало знать, что ты лучше собеседника. Ничего, это пройдёт с возрастом ;)


Срд 19 Мар 2014 09:24:10
>>64608592
Я вот так и думал. Пусть гуманитарий. Расскажи какой наслаждение можно получить, если суть работы ЭТО ? Я вот человеков чиню, бывает даже получается. А тут что? Написать какое то гавно, которое числа складывает. Я когда на УПК ходил, там хоть бейсик был, там можно было какие то картинки движущиеся сделать, хоть какое то творчество.


Срд 19 Мар 2014 09:24:44
>>64608592
>Написал какое-то говно, нахуй никому не нужное - считает себя ниебаца технобогом
Я бы такого рода говнозадачки, необходимые лишь для усвоения синтаксиса языка, давал бы классе в 5-6. На первом курсе - это только в пидорахии, по-моему, возможно.

Срд 19 Мар 2014 09:25:13
>>64608574
> Там ничего сложного не должно быть
> ...
> вычетания




Срд 19 Мар 2014 09:26:16
Решил, блядь! Спасибо, доброаноны, которые помогли.

Срд 19 Мар 2014 09:27:20
>>64608660
Это азы. Из них складываются такие вещи, как операционная система, без которой ты бы не сидел на своём дваче и не хвалился как кого-то там зашиваешь. Давай, АЛИБИДЕРЧИ)))

Срд 19 Мар 2014 09:27:34
>>64608600
Допустим число 14. Int'ом это число, char'ом - символ "1" и идущий сразу после него символ "4".

Срд 19 Мар 2014 09:27:50
>>64608687
Да, ничего сложного. Логика умножения/сложения/вычетания реализуется столбиком. Делить же столбиком нельзя, поэтому сложнее. Хотя тоже говно, но блять много промежуточных данных будет, как и в умножении.

Срд 19 Мар 2014 09:28:54
>>64608660 >>64608675
Скорее, огнетушитель!!!


Срд 19 Мар 2014 09:29:20
>>64607977
А где ты нашёл минимальное значение?

Срд 19 Мар 2014 09:30:04
>>64608733
Во-первых есть в turbo pascal функция inttostr, во-вторых это очень и очень тупое решение. Какие нахуй символы, ты что, долбаеб вообще?

Срд 19 Мар 2014 09:31:07
>>64608771
>and (x<otvet) then otvet:=x

Срд 19 Мар 2014 09:31:15
>>64608733
Занимательное программирование: Ребята, а вы знаете что у символов есть КОДЫ? Так вот, каждый символ в компьютере кодируется определенными значениями - кодами в таблице ASCII символов.

Срд 19 Мар 2014 09:32:31
C#
>>64606940
Пацаны, раз уж тут такой парад щедрости, может кто напишет на C#?

Срд 19 Мар 2014 09:33:06
C#
C# >>64608846
Пик отклеился.


Срд 19 Мар 2014 09:33:14
>>64607478
>>64607695
Лол, школьников унизили.
Задача то решается элементарно если знаешь основы теории графов.

Срд 19 Мар 2014 09:33:42
>>64608846
>сисярп джава хуесосы


Срд 19 Мар 2014 09:34:40
>>64608860
>основы теории графов
В анус себе запихай это говно.

Срд 19 Мар 2014 09:35:35
>>64608771
otvet же
он его сразу сделал максимально возможным, а потом все числа оканчивающиеся на 4 сравнивал с ним (с 32000).
Если ни одного числа не нашлось, otvet так и останется равным 32000, и при проверке этого условия выведется сообщение что ничего не нашлось
если хоть одно число было, то оно запишется в otvet в строчке сравнения:
if (g=4) and (x<otvet) then otvet:=x;

Срд 19 Мар 2014 09:36:08
>>64608846
Сишарп же для рабов Майкрософта. Лучше уходи из вуза пока не поздно.

Срд 19 Мар 2014 09:37:36
>>64608500
Круизис как раз из подобной хуеты и состоит.

Срд 19 Мар 2014 09:37:41
>>64608890

> В анус себе запихай это говно




Срд 19 Мар 2014 09:38:32
>>64608914
Красноглазик закукарекал. На нём очень удобно под виндой писать, альтернативы даже представить не могу.

Срд 19 Мар 2014 09:39:57
>>64608906
А что если хитрый препод-наркоман введёт во входном массиве число 32000?

Всё тогда, пиздец, двоечка в журнал обеспечена.


Срд 19 Мар 2014 09:40:00
>>64608890
>В анус себе запихай это говно.
Твой препод по инфе тебе в анус запихает свой член когда узнает что ты прогать не умеешь.

Срд 19 Мар 2014 09:41:55
>>64608971
> Работать на дядю всю жизнь за копейки без будущего очень удобно, ничего лучше себе и представить не могу


Срд 19 Мар 2014 09:42:32
>>64609001
>а что если преподаватель скажет, что программа должна выводить "Ты хуй"?

Условие читай, епта.

Срд 19 Мар 2014 09:44:55
>>64609045
В жизни не работал на дядю. Ну разве что две недели. Потом заебало и ушёл обратно во фриланс. Работаю немного, денег хватает, времени на сосаче посидеть\гулять\читать\изучать что-либо новое хватает.

Срд 19 Мар 2014 09:44:59
>>64609001
Лол, и что? Это число не соотносится никак с условиями задачи. Оно на 4 не заканчивается.
Вот если бы число было, например, 32004, тогда да - но в условиях то сказано что числа не превышают 30000.

Срд 19 Мар 2014 09:45:25
>>64609061
Ерохин, ваша программа не работает!


Срд 19 Мар 2014 09:46:29
>>64608947
Где там поиск чисел с 4 на конце, юродивый?
Поиск среднего цвета между соседними 4 пикселами для сглаживания, пожалуй да.

Срд 19 Мар 2014 09:46:40
>>64609125
Работаю раз в два месяца. Получаю как ты примерно.

Linux wins. Fatality.

Срд 19 Мар 2014 09:47:47
>>64607977
>otvet:= 32000;
Плохо зделал.
Надо так:
...
writeln("vvedite kolichestvo chisel");
readln(t);
writeln("vvodite chisla cherez enter");
otvet:= readln(x);
for i:=1 to t do begin
readln(x);
g:= x mod 10;
...

Срд 19 Мар 2014 09:48:15
>>64608857
<stdio.h>
<time.h>
<stdlib.h>
<conio.h>
<math.h>

int main ()
{
double X, Prev_X, RES;

Prev_X = 7;
//на всякий случай занулим, мало ли какой компилятор попадется
RES = 0;
srand(time(NULL));
X = rand() % 8 - 1;
while (X != Prev_X)
{
Prev_X = X;
if (X > 0) RES = sqrt(X)
else RES = sqr(X);
printf("X = %f; RES = %f\n", X, RES);
X = rand() % 8 - 1;
}
printf("\nEnter any key...");
_geth();
return 0;
}

Срд 19 Мар 2014 09:48:59
>>64608906
А если найдётся больше одного числа, оканчивающегося на 4, причём последнее не будет наименьшим из массива? Получится неверный ответ, ОП соснёт.

Срд 19 Мар 2014 09:49:02
>>64609136
Вводишь сучке extended



Срд 19 Мар 2014 09:49:57
>>64609218
Тут оказывается, что все числа не подходят к условию
@
Обсираешься

Срд 19 Мар 2014 09:50:50
Кароче гавно это ваше программирование, нихуя для души, работа должна вызывать интерес.


Срд 19 Мар 2014 09:50:53
>>64609278
Двачую

Срд 19 Мар 2014 09:52:33
>>64609307
Добавьте проверку на правильность ввода

>>64609278 - кун


Срд 19 Мар 2014 09:52:47
>>64609304
О, смотрите-ка, у хирурга опять возгорание!


Срд 19 Мар 2014 09:53:29
>>64609229
>X = rand() % 8 - 1;
X = 7*rand()/RAND_MAX - 1;

Срд 19 Мар 2014 09:54:08
>>64609304
Но блять, у меня это вызывает интерес. А такой скам вроде тебя не должен жить. Слава роботам и ии!

Когда-нибудь запрограммирую ии с целью уничтожения всех людей и выпилюсь

Срд 19 Мар 2014 09:54:19
>>64609251
проверка проводится после каждого введённого числа - строчки ввода и проверки идут друг за другом, спаянные одним циклом.


Срд 19 Мар 2014 09:55:18
>>64609004
А потом такие еще и на погромистов идут.

Срд 19 Мар 2014 09:55:30
>>64609356
Та ну ты брось, да и не хирург я как бэ. Бомбит же у тебя, ты же так яростно защищаешь свое монитороморательство.


Срд 19 Мар 2014 09:56:19
>>64609406
Максим?

Срд 19 Мар 2014 09:56:42
>>64609406
>Когда-нибудь запрограммирую ии с целью уничтожения всех гуманитариев


Срд 19 Мар 2014 09:57:01
>>64606940

Подсказка:

array A[n]
mod 10 (x) == 4

Срд 19 Мар 2014 09:57:21
>>64609462
ЛСИ.

Срд 19 Мар 2014 09:57:35
Проиграл с треда


Срд 19 Мар 2014 09:58:00
>>64609445
Работа и не должна быть для души. Работа должна приносить хороший доход и чтобы потом ты мог поплакаться, как тебе тяжко работать.

Срд 19 Мар 2014 09:58:05
>>64609436
Кому в хуй уперлась твоя ссаная теория ссаных графов в 2014 году, уебок?

Срд 19 Мар 2014 09:59:28
>>64609445
Снобяра, проваливай


Срд 19 Мар 2014 09:59:33
Вы суки тупые, я для кого писал, ну-ка зацените чтоле
>>64609229

Срд 19 Мар 2014 09:59:45
>>64609530
На каком то этапе тебя жестоко наебали.


Срд 19 Мар 2014 10:00:05
>>64609251
Ты путаешь с упорядочиванием по велечине.
тут просто ищется минимальное число, каждый раз проверяется не меньше ли очередное введёное чем минимальное. Сзади, среди уже проверенных никак не пожет образоваться ещё более меньшее, лол.

Срд 19 Мар 2014 10:00:35
>>64609568
НИРАБОТАЕТ


Срд 19 Мар 2014 10:00:51
>>64606940
В /PR/ РАЗБИРАЕШЬ ПО ЧАСТЯМ СЛОЖНЕЙШИЕ ЗАДАЧИ
@
НО НЕ МОЖЕШЬ НАПИСАТЬ ПРОСТУЮ ПРОГУ НА ПАСКАЛЕ

Срд 19 Мар 2014 10:01:53
>>64609610
Выходит, ты даун и тебе нехуй делать в программировании.
Решил задачу в ОП пике, не зная паскаль, пользуясь только справочником.

Срд 19 Мар 2014 10:02:24
>>64609582
>более меньшее
Чуть менее большее, чем то что менее


Срд 19 Мар 2014 10:02:26
>>64609535
Ровно как и математика.

вот ты дуб средневековый


Срд 19 Мар 2014 10:03:32
>>64609176 Но соседних пикселей 8 сука тупая.?,?,?

Срд 19 Мар 2014 10:04:19
>>64609634
>пользуясь только справочником
Приспустил немного.

Срд 19 Мар 2014 10:04:54
>>64609654

> более меньшее

> мы стали более лучше одеваться

Срд 19 Мар 2014 10:05:52
>>64609568
Он на шарпе просил, сука тупая

Срд 19 Мар 2014 10:06:27
>>64609695
Как ты будешь программировать на языке, не зная синтаксиса языка?

Приспустил сильно


Срд 19 Мар 2014 10:07:16
>>64609229
>_geth()

Срд 19 Мар 2014 10:07:39
>>64609674
У одноклеточных 4 измерения


Срд 19 Мар 2014 10:11:56
>>64609229
>>64609603
>>64609744
Отладил.

#include <stdio.h>
#include <time.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>

int main()
{
double X, Prev_X, RES;

Prev_X = 7;
//на всякий случай занулим, мало ли какой компилятор попадется
RES = 0;
srand(time(NULL));
X = 7 * rand() / RAND_MAX - 1;
while (X != Prev_X)
{
Prev_X = X;
if (X > 0) RES = sqrt(X);
else RES = X*X;
printf("X = %5.2f; RES = %5.2f\n", X, RES);
X = (double)7 * rand() / RAND_MAX - 1;
}
if (X > 0) RES = sqrt(X);
else RES = X*X;
printf("X = %5.2f; RES = %5.2f\n", X, RES);

printf("\nEnter any key...");
_getch();
return 0;
}


Срд 19 Мар 2014 10:13:36
>>64606940
держи
uses sysutils;

var
a, s, i, n, ii: longint;
mas : array[1..1000] of integer;
begin
Assign(input, 'input.in');
Assign(output, 'output.out');
Rewrite(output);
Reset(input);
s:=30000;
ii:=0;
ReadLn(n);
for i:=1 to n do
begin
readln(a);
if a mod 10 = 4 then
begin
ii:=ii+1;
mas[ii]:=a;
end;
end;
for i:=1 to ii do
begin
if mas <= s then s:=mas;
end;
write(output, s);
close(input);
close(output);
end.

Срд 19 Мар 2014 10:14:30
>>64610007
тут даже не longint а обычный integer пойдет

Срд 19 Мар 2014 10:16:21
>>64610007
часть символов сожрало, где массив

Срд 19 Мар 2014 10:17:00
>>64610007
>for i:=1 to ii do
Блять, нахуй так пердолиться? Нельзя было в мас записывать с нуля, блять?

Срд 19 Мар 2014 10:18:18
>>64610141
Нет. Это как в Си было бы. А паскалеблядки СИбогов не любят.

Срд 19 Мар 2014 10:20:41
>>64606940 >>64610007
подправил чтоб разметка не съела
uses sysutils;

var
a, s, i1, n, i2: longint;
mas : array[1..1000] of integer;
begin
Assign(input, 'input.in');
Assign(output, 'output.out');
Rewrite(output);
Reset(input);
s:=32000;
i2:=0;
ReadLn(n);
for i1:=1 to n do
begin
readln(a);
if a mod 10 = 4 then
begin
i2:=i2+1;
mas[i2]:=a;
end;
end;
for i1:=1 to i2 do
begin
if mas[i1] <= s then s:=mas[i1];
end;
write(output, s);
close(input);
close(output);
end.

Срд 19 Мар 2014 10:22:01
>>64608489
Не обращай на него внимниая. Просто он гуманитарий краем уха слышавший про йазики програмерованея)))

Срд 19 Мар 2014 10:22:52
>>64610182
Ллол
>>64610260
>for i1:=1 to i2 do
Какой смысл оставлять первый элемент неинициализированным?
ТЫ можешь дать внятный ответ?

Срд 19 Мар 2014 10:24:27
>>64610342
Ай блять в паскале наверное нет нулевого индекса ))

Срд 19 Мар 2014 10:25:58
>>64606940
Вали на хуй, выродок

Срд 19 Мар 2014 10:26:50
>>64610342
Могу. Изначально и по сей день паскаль использовался исключительно как учебный язык. Для учебного языка главное - интуитивная понятность и якобылогичность. От того-то в паскале и нет нулевого индекса, потому что это что же, придется каждый раз отнимать единичку чтоли? Неееет, мы лучше от 1 до n включительно, это же так ЛОГИЧНО.

Срд 19 Мар 2014 10:28:27
>>64609933
Дотнетовыродок, я для кого писал блять, 6 минут своей жизни потратил сука, отпишись работает хотя бы или нет.

Срд 19 Мар 2014 10:28:38
def pythonthebest(_list):
_min = 0

for number in sorted(_list, reverse=True):
if number % 10 == 4: _min = number

print _min

if name == 'main':
pythonthebest([3, 24, 14, 34])

Срд 19 Мар 2014 10:40:38
Все сосут у перла
#!/usr/bin/perl

$r=30001;
while(<>){
chomp $i;
$r=$_ if $_ % 10 == 4 && $_<$r;
}
print "$r\n";

Срд 19 Мар 2014 10:41:41
>>64610999

Похоже я соснул. Поправил

#!/usr/bin/perl

$r=30001;
while(<>){
chomp;
$r=$_ if $_ % 10 == 4 && $_<$r;
}
print "$r\n";

Срд 19 Мар 2014 10:42:30
>>64611043
>$r=$_ if $_
Ты это называешь читаемостью, недоязык

Срд 19 Мар 2014 10:49:42
>>64606940
>2014
>PASCAL
Пиздец, когда уже этот труп ебать перестанут? Почему бы не учить школьников яве, питону? Простые и современные языки. Нет, хочу говном кормить подрастающее поколение.

Срд 19 Мар 2014 11:00:07
>>64611071

Специально для тебя перепишу читаемо

#!/usr/bin/perl

$r=30001;
while($i=<>){
chomp $i;
if(($i % 10) == 4 && $i<$r){
$r=$i;
}
}
print "$r\n";

Срд 19 Мар 2014 11:01:09
>>64611333
>яве, питону
Щило на мыло.

Срд 19 Мар 2014 11:10:36
>>64611333
Удваиваю. Да даже просто C был бы лучше, чем кусок дерьма, под названием "pascal". Хуже... хуже, наверное, ничего нет. Брейнфак и бейсик хотя бы забавные.

Алсо, ОП - дебил. Сажи.

Срд 19 Мар 2014 11:18:00
>>64611785
Почему? Тот же питон по-моему позволит перейти от ебли с реализацией к ебле с задачей непосредственно, что сильно экономит время. Для небольших программ и всякой около-математики идеал же.

Срд 19 Мар 2014 11:24:03
>>64606940
Ебаны стыд, в школах до сих пор учат писать программы на паскале? С девяностых нихуя не поменялось, блджад.

Срд 19 Мар 2014 11:24:43
>>64612701
в мире еще нет аналогов паскалю

Срд 19 Мар 2014 11:38:33
>>64607380
Стопятсот же есть способов поиска минимального остовного дерева, алгоритм Крускала, например.

мимо прогер в геймдеве

Срд 19 Мар 2014 11:46:26
>>64611333
И ява, и питон провоцируют на многие ошибки, от которых паскаль защищает. Для учебных задач паскаля более чем хватает.

Срд 19 Мар 2014 11:51:26
$ echo -e "4\n74\n14\n55\n34\n8" |perl -le 'print+(sort{$a<=>$b}grep/4$/,<>)[0]'
4

Срд 19 Мар 2014 11:54:08
$ echo -e "4\n74\n14\n55\n34\n8" |grep 4\$ |sort -n |head -1
4

Срд 19 Мар 2014 11:56:45
$ echo -e "4\n74\n14\n55\n34\n8" |awk 'BEGIN{i=3e4}/4$/{$1<i&&i=$1}END{print i}'
4

Срд 19 Мар 2014 12:11:03
echo -e "44\n74\n14\n55\n34\n8" |(n=30000; while read i; do n=$(((i%10==4)&&i<n?i:n)); done; echo $n)
14

Срд 19 Мар 2014 12:12:08
>>64606940
> не ебу, как решать
СУКА ХУЖЕ ЧЕРВЯ ПИДОРА

Срд 19 Мар 2014 12:12:50
>>64607351
> сортировка
ЛООООЛ

Срд 19 Мар 2014 12:12:54
>>64614636
А что тебе не нравится?

Срд 19 Мар 2014 12:40:01
>>64614666
А что может нравится в черве пидоре?


← К списку тредов