Поговори хоть ты со мной, гитара семиструнная, к чему сидеть да горевать ведь ночь такая лунная ...
Здравствуйте, гость ( Вход | Регистрация )
Здесь был Инвандер, он шёл из бани и потирал надпись про зиму!
(29 March 2024 15:03:59) Мери
--
Узнай как лишится девственности без боли https://medium.com/@bobrovanatashawww/lishe...ti-27f22fbc43bb по ссвлыке в болоте! https://www.tumblr.com/voronina
(29 March 2024 15:01:40) Мери
--
Читай бесплатно онлайн пошлые рассказы https://seksistorii.home.blog/ девшее для взрослых 18+ и смотрит подборок лучший историй http://moemesto.ru/pornstories/
(21 March 2024 12:32:56) Воронина Настя
--
Персональный блог https://www.tumblr.com/seksvife интересные анонсы https://rss.app/embed/v1/carousel/_yFHWi0Oy87KAhcp0
|
||
|
Лабы по паскалю, кто может помочь? |
19.11.2007, 19:30
Сообщение
#1
|
|
Активный участник Группа: Пользователи Сообщений: 358 Регистрация: 11.8.2007 Из: Пенза Пользователь №: 1,331 |
Ребят, есть небольшая проблемка, лабы по паскалю надо сделать, но чет возникают некоторые проблемки. Я вот тут подумал, у меня то мож и есть с этим проблемы, а ктото наверняка шарит в этом. Так вот, обращаюсь я к тебе за помощью, к тому кто хорошо знает паскаль. Задачи впринципе не трудные. Кто может помочь пишите в аську 267-948-296.Буду очень признателен.
-------------------- ЯЯКО КИКИНАМОРЭ
|
|
|
19.11.2007, 22:36
Сообщение
#2
|
|
Новичок Группа: Пользователи Сообщений: 11 Регистрация: 15.6.2007 Пользователь №: 836 |
Забыл написать о цене вопроса ...
|
|
|
19.11.2007, 23:46
Сообщение
#3
|
|
Активный участник Группа: Пользователи Сообщений: 358 Регистрация: 11.8.2007 Из: Пенза Пользователь №: 1,331 |
Забыл написать о цене вопроса ... там задачи самого простого уровня сложности, для профессионала на составит труда решить, так что если есть добрые, некорыстные люди, то помогут. -------------------- ЯЯКО КИКИНАМОРЭ
|
|
|
20.11.2007, 0:18
Сообщение
#4
|
|
Повелитель флуда Группа: Пользователи Сообщений: 1,167 Регистрация: 27.3.2007 Пользователь №: 58 |
лучше тут выложи.
-------------------- Закону "об авторских и смежных правах" посвящается |
|
|
20.11.2007, 11:16
Сообщение
#5
|
|
Активный участник Группа: Пользователи Сообщений: 358 Регистрация: 11.8.2007 Из: Пенза Пользователь №: 1,331 |
Запросто)Мож у кого есть похожие то тож мона.
Запросто)Мож у кого есть похожие то тож мона. Кароче, что касается самой первой задачи, то могу пояснить, так как сам уже интересовался. ПОследовательность чисел Фибоначчи: 0 1 1 2 3 5 8 13 21 34 55 и т.д. То есть каждый последующий член равен сумме двух предыдущих.
Прикрепленные файлы
1_стр.jpg ( 227.54 килобайт )
Кол-во скачиваний: 74
21_стр.jpg ( 120.6 килобайт ) Кол-во скачиваний: 39 -------------------- ЯЯКО КИКИНАМОРЭ
|
|
|
21.11.2007, 14:35
Сообщение
#6
|
|
Сволочь Группа: Главные администраторы Сообщений: 959 Регистрация: 26.3.2007 Из: Пенза Пользователь №: 1 |
Уж извиняйте, но писалось в Delphi 6
CODE program FiboNum;
// Copyright DeaD MoroSe, MyPenza.ru © 2007 // Вывод ряда Фибоначчи с заданного числа на N итерациий // v.0.01 alpha - реализована проверка на принадлежность числа ряду Фибоначчи // - введён параметр debug для вывода начальных значений ряда // Программа распространяется AsIs по лицензии "Ты мне, Я тебе", т.е. если вы сдали с её помощью контрольную или другую работу // то можете отблагодарить автора отправив ему в ICQ 347-579-533 код у карте PNZ100 или переведя 100 рублей на // кошелёк WebMoney R648211023674 {$APPTYPE CONSOLE} uses SysUtils; const debug = False; // Если значение True, то выводим начальные расчёты рада Фибоначчи для проверки var StartNumber, CheckNumber, PreviousNumber, CurrentNumber, TempNumber: LongWord; Iter: integer; begin { TODO -oUser -cConsole Main : Insert code here } write ('Please enter number of iterations: '); readln (Iter); writeln; //Вводим число и проверяем является ли оно числом из ряда Фибоначчи repeat write ('Please enter Fibonacci''s number: '); readln (StartNumber); writeln; PreviousNumber :=0; CurrentNumber := 1; repeat TempNumber := PreviousNumber + CurrentNumber; PreviousNumber := CurrentNumber; CurrentNumber := TempNumber; if debug <> false then write (CurrentNUmber, ' '); // test code, uncomment to print Fibonacci numbers from zero until (StartNumber <= CurrentNumber); if (StartNumber <> CurrentNumber) then writeln ('You have entered not a Fibonacci''s number'#10#13); until (StartNumber = CurrentNumber); if debug = True then write ('| ') else write (CurrentNumber, ' '); //Строим ряд Фибоначчи с заданного значения while (Iter <> 0) do begin TempNumber := PreviousNumber + CurrentNumber; PreviousNumber := CurrentNumber; CurrentNumber := TempNumber; write (CurrentNumber, ' '); Dec(Iter); end; readln end. -------------------- |
|
|
Guest_LickMyScars_* |
21.11.2007, 18:35
Сообщение
#7
|
Гости |
|
|
|
21.11.2007, 19:51
Сообщение
#8
|
|
Сволочь Группа: Главные администраторы Сообщений: 959 Регистрация: 26.3.2007 Из: Пенза Пользователь №: 1 |
Паскаль рулит!)))))) а не делфаки всякие!)))) Учим матчасть перед тем как фигню писать. -------------------- |
|
|
21.11.2007, 22:03
Сообщение
#9
|
|
Активный участник Группа: Пользователи Сообщений: 358 Регистрация: 11.8.2007 Из: Пенза Пользователь №: 1,331 |
Учим матчасть перед тем как фигню писать. Мне кажется, что решение этой задачи в Паскале попроще будет, напиши плиз, если не сложно, ато пора бы уже сдать её, а я чет сам никак( -------------------- ЯЯКО КИКИНАМОРЭ
|
|
|
Guest_LickMyScars_* |
21.11.2007, 23:49
Сообщение
#10
|
Гости |
Мне кажется, что решение этой задачи в Паскале попроще будет, напиши плиз, если не сложно, ато пора бы уже сдать её, а я чет сам никак( Вот вот!!! полтора года назад делали то4но такоеже зада4ки на турбо паскале 7.0!!! но у меня есть друган великий мозго....трах!)))) вот он тоже на Делфаке всё любит делать, т.к. там уже основные оаператоры прописанны, это уже прога под винду сделана и коне4но же там половину дела можно тупо мышкой натыкать, 4его нельзя сделать в паскале(т.к. эт ваще ДОС!))))) но задание делать в досе(собственно на паскале), ибо препод сказал - надо так и сделать, а мозго...иписмом заниматься я думсаю нестоит!!! да и вот ещё 4то, у меня был курса4 на C++, так надо было его сделать в версии под ДОС и я его сделал под виндовс(в сисипи билдере делал), так он мне и сказал(а это ещё и декан был)!!))) ты мол 4то..... дураг совсем. задание 4итать надо было!))) ну собственно после этого я встараюсь на эксперементировать и следовать заданию. полу4ая нужные результ!))) |
|
|
22.11.2007, 19:34
Сообщение
#11
|
|
Новичок Группа: Пользователи Сообщений: 10 Регистрация: 5.4.2007 Пользователь №: 192 |
Дайте и я вснесу свою лепту.
Вот решение задачи про числа Фиббоначи на брейнфаке: Код ++++++++++[>+++++++++++++++++++>+++++++++++++++++++++++>+++++++++++++++++++++++> +++++++++++++++++++++++>+++++++++++++++++++++++>++++++++++++++++++++++++>+++>+++ +++++>+++++++++++>+++++++++++++++++++++>++++++++++++++++++++++++>+++++++++++++++ +++++++++>++++++++++++++++++++++>++++++>+<<<<<<<<<<<<<<<-]>++++>---->->-->++>++> ++>-->>->+++>---->++++>+>+++<<<<<<<<<<<<<<.>.>.>.>.>.<<<.>>>>.>>.>>>>>>>,<.<<<<< <<<<<<<<<.>.>.>.>.>.<<<.>>>>.>.>>>>>>>>>,-<<.>>>+>+<<[>>[>+>+<<-]<[>>>+<<<-]>>[< <+>>-]>[<<+>>-]<<<<-]<[>>>[>+>+<<-]<[>>>+>+<<<<-]>>[<<+>>-]>[<<+>>-]<<<<<-]<<<<< <.>.>..>.<<<<<<.>>>>>>>.<<<<<<<.>>>>>>>>>>>>>>>[>>>+[>+>+<<-]>>[<<+>>-]+<------- ---[>-<[-]]>[<<<+>---------->>-]<<<[>>+>+<<<-]>>>[<<<+>>>-]+<----------[>-<[-]]> [<<<<+>---------->>>-]<<<<<-]++++++++++++[>++++>++++>++++<<<-]>.>.>. P.S. Не надо вводить большие числа. У мозготраха переменные имеют длину 1 байт. |
|
|
5.12.2007, 1:14
Сообщение
#12
|
|
Новичок Группа: Пользователи Сообщений: 11 Регистрация: 15.6.2007 Пользователь №: 836 |
Ты сам на какой специальности учишся ?
ЗЫ Программистам даже профессионалам тоже деньги иногда нужны бывают ... а за то что они пишут что то за это деньги и получают |
|
|
8.1.2008, 17:36
Сообщение
#13
|
|
Новичок Группа: Пользователи Сообщений: 13 Регистрация: 20.11.2007 Из: Глобус Пользователь №: 2,811 |
Нахождение числа Фибоначи, это полбеды, тут алгоритм нехитрый... А вот, нам лабу задали... Тож на паскале: "Найти площадь многоугольника и длинны всех его диагоналей". Вот это действительно проблема!...
|
|
|
15.1.2008, 0:33
Сообщение
#14
|
|
Новичок Группа: Пользователи Сообщений: 3 Регистрация: 8.5.2007 Пользователь №: 588 |
чёт на ноч глядя накропал, но за качество не отвечаю, проверить даж не чем
Код program p6;
uses crt; const n=20; var a:array[1..n] of real; i,k:integer; begin clrscr; for i:=1 to n do readln(a[i]); for i:=1 to n do if a[i]>a[i+1] then k:=k+1; writeln(k); readkey; end. |
|
|
17.1.2008, 19:30
Сообщение
#15
|
|
Активный участник Группа: Пользователи Сообщений: 358 Регистрация: 11.8.2007 Из: Пенза Пользователь №: 1,331 |
АДМИНЫ ДЕЛЯЙТЕ ТЕМУ ОНА УЖЕ НЕ АКТУАЛЬНА. Я ВСЕ ЛАБЫ СДАЛ=)
-------------------- ЯЯКО КИКИНАМОРЭ
|
|
|
Текстовая версия | Сейчас: 29.3.2024, 18:05 |