Сабж такой. Преподавателю не нравится программа. Говорит, что выполнена не по нормам. Помогите пожалуйста// Записать в файл N действительных чисел.// Найти разность первой и последней компонент файла.var i, N, first, last: integer; filename: file of integer;begin write('Введите количество чисел: '); readln(N); assign(filename, 'out.dat'); rewrite(filename); //записать в файл элементы randomize; first:= random(N) + 1; for i:= 2 to N do last:= random(N) + 1; // открыть на чтение прочитать 1 и последний begin reset (filename); write(filename, first); write(filename, last); end; write('Разность = ', abs(last - first)); readln;end.
Тебе в ньфаг-тред, зачем создал ещё один?Код отправляй посредством pastebin, etc.
>>786780простите, я не знаю всех правил форума. ищу помощи здесь, ибо помочь никто не может...
>>786782http://pastebin.com/jnx8fNix
В 2016 в российских вузах будущих программистишек продолжают кормить сладким хлебом турбо паскалем?
>>786786я на учителя информатики учусь, приходится...помогите, пожалуйста, с заданием
>>786788Я вообще нихуя не понял из описания. Нужно записать числа в файл, а потом обратно считать их из него? Какой наркоман такое придумал?
>>786774 (OP)Мои глаза, где отступы, блядь?
>>786791Записать в файл N действительных чисел. Найти разность первой и последней компонент файла.Так звучит задание. В Челябинске преподают такое...Как я понял, да. Нужно сначала заполнить типизированный файл рандомными числами, а затем вычесть разность
>>786793я открывал *.dpr через блокнот, видимо пропали
>>786791помогите пожалуйста с решением...
>>786794Вот так, хотя уже 10 лет не писал на паскале. И выравнивание нормальное сделай, с отступами.// Записать в файл N действительных чисел.// Найти разность первой и последней компонент файла.vari, N, first, last: integer;filename: file of integer;beginwrite('Введите количество чисел: ');readln(N);assign(filename, 'out.dat');//записать в файл элементыrewrite(filename);randomize;for i:=1 to N dowrite(filename, random(N) + 1);close(filename);// открыть на чтение прочитать 1 и последнийreset(filename);read(filename, first);for i:=2 to N doread(filename, last);close(filename);write('Разность = ', abs(last - first));readln;end.
>>786817> действительных чиселСразу не заметил, тогда у переменных надо integer заменить на real.
>>786817Огромное человеческое спасибо тебе!!!
>>786821Неужели так сложно прочесть учебник, турбо паскаль же проще некуда?Все процедуры и функции для работы с файлами например описаны здесь:http://www.win-ni.narod.ru/biblio/gl11.htm
>>786831Читал, но не понял ничего. Видимо, точные науки -- не моё
Что это за язык вообще?
>>786831паскально программируем на оболочке делфичем его считать -- не знаю
>>786839Дарнийский.
>>786839История Вирта очень трагичная, братюни. Начиналось все хорошо:Хоар сказал: «В Алгол нужно добавить ссылки с нуллами»А Вирт сказал: «Мы с Хоаром считаем, что в Алгол нужно добавит ссылки, да с такими-то нуллами»Потом Хоар сказал: «Алгол 68 сосет»И Вирт, конечно, сказал: «Мы с Хоаром ваш Алгол 68 в рот ебали, пидоры комитетские!!111»А потом Хоар внезапно сказал: «Анаморфизм, катаморфизм, иломорфизм, параморфизм, наконец»И Вирт сказал:«Ана-што? Иломорфизм? Хуе-мое! Так, падажжи, ебана, Карри же был моим научруком, параморфизм? Ах тыж ебаный ты нахуй!АЛГОЛ 68 СОСЕТ!!!111 ССЫЛКИ ДА С ТАКИМИ-ТО НУЛЛАМИ!!!111 АЛГОЛ 68 СОСЕТ!! СОСЕТ АЛГОЛ 68 !!11111»Ну, так с тех пор и повторяет.
>>786974мда
>>786786Угу, даже в МГУ. >>786974История уровня /pr/.
>>786974все так
Бля, хз, накатал на питоне.
>>786774 (OP)Для начала читаем внимательно задание:>...N действительных чисел...Действительные это не только целые числа
>>787762> Угу, даже в МГУ. Какая тогда польза от ВО нашему брату? Ну кроме того, что с корочкой охотнее берут на работу иностранцы.
>>786841Потому что из известных мне IDE, этот стабильнее. Но мой выбор - tp7 через dosbox или на чистом досе, но дома на вм. Алсо, в академических целях онли, я хз че там и где там разрабы нормальные мутят, но это не паскаль, если ты не деревенский житель, пишущий консоль для доярки тети Клапы.