IPB

Здравствуйте, гость ( Вход | Регистрация )


Здесь был Инвандер, он шёл из бани и потирал надпись про зиму!
(25 March 2024 23:48:54) Galyy
--
цветы
(25 March 2024 23:48:27) Galyy
--
цветы
(25 March 2024 14:33:58) VeroNika06
--
Купить чемоданы
(21 March 2024 12:32:56) Воронина Настя
--
Персональный блог https://www.tumblr.com/seksvife интересные анонсы https://rss.app/embed/v1/carousel/_yFHWi0Oy87KAhcp0
(9 March 2024 09:45:01) andrei3838384
--
чай
(9 March 2024 06:19:11) serega2510
--
спс
(5 March 2024 10:07:50) svkpb
--
ткани
(29 February 2024 10:26:30) seeasy
--
предметная съемка
(28 February 2024 23:50:47) Andrew7
--
muznavo.net
(19 February 2024 19:30:31) Andrew7
--
muznavo.net
(16 January 2024 00:47:23) Alisa
--
Работа в Сербии эскорт https://www.cupidon.agency/eskort-rabota-serbiya
(16 January 2024 00:46:43) Alisa
--
Работа для девушек в Сербии https://www.cupidon.agency/eskort-rabota-serbiya
(13 January 2024 18:23:05) Катя Орлова
--
дневник сексвайф https://www.tumblr.com/seksvife интересное в сообществах https://ru.tgchannels.org/channel/komsomolk...61&lang=all
(12 January 2024 22:36:58) urist-v-sochi.ru
--
Юрист в Сочи https://urist-v-sochi.ru/
(11 January 2024 11:35:49) serega2510
--
ShoutOut! © InvisionMint

 
Ответить в данную темуНачать новую тему
> Лабы по паскалю, кто может помочь?
Hitmen
сообщение 19.11.2007, 19:30
Сообщение #1


Активный участник
***

Группа: Пользователи
Сообщений: 358
Регистрация: 11.8.2007
Из: Пенза
Пользователь №: 1,331



Ребят, есть небольшая проблемка, лабы по паскалю надо сделать, но чет возникают некоторые проблемки. Я вот тут подумал, у меня то мож и есть с этим проблемы, а ктото наверняка шарит в этом. Так вот, обращаюсь я к тебе за помощью, к тому кто хорошо знает паскаль. Задачи впринципе не трудные. Кто может помочь пишите в аську 267-948-296.Буду очень признателен.


--------------------
ЯЯКО КИКИНАМОРЭ
Перейти в начало страницы
 
+Цитировать сообщение
PNZKAPTMEH
сообщение 19.11.2007, 22:36
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 11
Регистрация: 15.6.2007
Пользователь №: 836



Забыл написать о цене вопроса ...
Перейти в начало страницы
 
+Цитировать сообщение
Hitmen
сообщение 19.11.2007, 23:46
Сообщение #3


Активный участник
***

Группа: Пользователи
Сообщений: 358
Регистрация: 11.8.2007
Из: Пенза
Пользователь №: 1,331



Цитата(PNZKAPTMEH @ 19.11.2007, 22:36) *
Забыл написать о цене вопроса ...

там задачи самого простого уровня сложности, для профессионала на составит труда решить, так что если есть добрые, некорыстные люди, то помогут.


--------------------
ЯЯКО КИКИНАМОРЭ
Перейти в начало страницы
 
+Цитировать сообщение
Psijic
сообщение 20.11.2007, 0:18
Сообщение #4


Повелитель флуда
*****

Группа: Пользователи
Сообщений: 1,167
Регистрация: 27.3.2007
Пользователь №: 58



лучше тут выложи.


--------------------

Закону "об авторских и смежных правах" посвящается
Перейти в начало страницы
 
+Цитировать сообщение
Hitmen
сообщение 20.11.2007, 11:16
Сообщение #5


Активный участник
***

Группа: Пользователи
Сообщений: 358
Регистрация: 11.8.2007
Из: Пенза
Пользователь №: 1,331



Запросто)Мож у кого есть похожие то тож мона.

Цитата(Hitmen @ 20.11.2007, 11:13) *
Запросто)Мож у кого есть похожие то тож мона.

Кароче, что касается самой первой задачи, то могу пояснить, так как сам уже интересовался. ПОследовательность чисел Фибоначчи:
0 1 1 2 3 5 8 13 21 34 55 и т.д. То есть каждый последующий член равен сумме двух предыдущих.
Прикрепленные файлы
Прикрепленный файл  1_стр.jpg ( 227.54 килобайт ) Кол-во скачиваний: 74
Прикрепленный файл  21_стр.jpg ( 120.6 килобайт ) Кол-во скачиваний: 39
 


--------------------
ЯЯКО КИКИНАМОРЭ
Перейти в начало страницы
 
+Цитировать сообщение
DeaD MoroSe
сообщение 21.11.2007, 14:35
Сообщение #6


Сволочь
****

Группа: Главные администраторы
Сообщений: 959
Регистрация: 26.3.2007
Из: Пенза
Пользователь №: 1



Уж извиняйте, но писалось в Delphi 6 smile.gif


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





Гости






Цитата(DeaD MoroSe @ 21.11.2007, 14:35) *
Уж извиняйте, но писалось в Delphi 6 smile.gif

Паскаль рулит!)))))) laugh.gif а не делфаки всякие!))))
Причина редактирования: Нефиг оверквотить
Перейти в начало страницы
 
+Цитировать сообщение
DeaD MoroSe
сообщение 21.11.2007, 19:51
Сообщение #8


Сволочь
****

Группа: Главные администраторы
Сообщений: 959
Регистрация: 26.3.2007
Из: Пенза
Пользователь №: 1



Цитата(LickMyScars @ 21.11.2007, 18:35) *
Паскаль рулит!)))))) laugh.gif а не делфаки всякие!))))

Учим матчасть перед тем как фигню писать.


--------------------
Перейти в начало страницы
 
+Цитировать сообщение
Hitmen
сообщение 21.11.2007, 22:03
Сообщение #9


Активный участник
***

Группа: Пользователи
Сообщений: 358
Регистрация: 11.8.2007
Из: Пенза
Пользователь №: 1,331



Цитата(DeaD MoroSe @ 21.11.2007, 19:51) *
Учим матчасть перед тем как фигню писать.

Мне кажется, что решение этой задачи в Паскале попроще будет, напиши плиз, если не сложно, ато пора бы уже сдать её, а я чет сам никак(


--------------------
ЯЯКО КИКИНАМОРЭ
Перейти в начало страницы
 
+Цитировать сообщение
Guest_LickMyScars_*
сообщение 21.11.2007, 23:49
Сообщение #10





Гости






Цитата(Hitmen @ 21.11.2007, 22:03) *
Мне кажется, что решение этой задачи в Паскале попроще будет, напиши плиз, если не сложно, ато пора бы уже сдать её, а я чет сам никак(

Вот вот!!! полтора года назад делали то4но такоеже зада4ки на турбо паскале 7.0!!! но у меня есть друган великий мозго....трах!)))) вот он тоже на Делфаке всё любит делать, т.к. там уже основные оаператоры прописанны, это уже прога под винду сделана и коне4но же там половину дела можно тупо мышкой натыкать, 4его нельзя сделать в паскале(т.к. эт ваще ДОС!))))) но задание делать в досе(собственно на паскале), ибо препод сказал - надо так и сделать, а мозго...иписмом заниматься я думсаю нестоит!!! да и вот ещё 4то, у меня был курса4 на C++, так надо было его сделать в версии под ДОС и я его сделал под виндовс(в сисипи билдере делал), так он мне и сказал(а это ещё и декан был)!!))) ты мол 4то..... дураг совсем. задание 4итать надо было!))) ну собственно после этого я встараюсь на эксперементировать и следовать заданию. полу4ая нужные результ!))) wink.gif
Перейти в начало страницы
 
+Цитировать сообщение
JumboMumbo
сообщение 22.11.2007, 19:34
Сообщение #11


Новичок
*

Группа: Пользователи
Сообщений: 10
Регистрация: 5.4.2007
Пользователь №: 192



Дайте и я вснесу свою лепту.
Вот решение задачи про числа Фиббоначи на брейнфаке:
Код
++++++++++[>+++++++++++++++++++>+++++++++++++++++++++++>+++++++++++++++++++++++>
+++++++++++++++++++++++>+++++++++++++++++++++++>++++++++++++++++++++++++>+++>+++
+++++>+++++++++++>+++++++++++++++++++++>++++++++++++++++++++++++>+++++++++++++++
+++++++++>++++++++++++++++++++++>++++++>+<<<<<<<<<<<<<<<-]>++++>---->->-->++>++>
++>-->>->+++>---->++++>+>+++<<<<<<<<<<<<<<.>.>.>.>.>.<<<.>>>>.>>.>>>>>>>,<.<<<<<
<<<<<<<<<.>.>.>.>.>.<<<.>>>>.>.>>>>>>>>>,-<<.>>>+>+<<[>>[>+>+<<-]<[>>>+<<<-]>>[<
<+>>-]>[<<+>>-]<<<<-]<[>>>[>+>+<<-]<[>>>+>+<<<<-]>>[<<+>>-]>[<<+>>-]<<<<<-]<<<<<
<.>.>..>.<<<<<<.>>>>>>>.<<<<<<<.>>>>>>>>>>>>>>>[>>>+[>+>+<<-]>>[<<+>>-]+<-------
---[>-<[-]]>[<<<+>---------->>-]<<<[>>+>+<<<-]>>>[<<<+>>>-]+<----------[>-<[-]]>
[<<<<+>---------->>>-]<<<<<-]++++++++++++[>++++>++++>++++<<<-]>.>.>.

P.S. Не надо вводить большие числа. У мозготраха переменные имеют длину 1 байт.
Перейти в начало страницы
 
+Цитировать сообщение
PNZKAPTMEH
сообщение 5.12.2007, 1:14
Сообщение #12


Новичок
*

Группа: Пользователи
Сообщений: 11
Регистрация: 15.6.2007
Пользователь №: 836



Ты сам на какой специальности учишся ?


ЗЫ Программистам даже профессионалам тоже деньги иногда нужны бывают smile.gif ... а за то что они пишут что то за это деньги и получают
Перейти в начало страницы
 
+Цитировать сообщение
aid
сообщение 8.1.2008, 17:36
Сообщение #13


Новичок
*

Группа: Пользователи
Сообщений: 13
Регистрация: 20.11.2007
Из: Глобус
Пользователь №: 2,811



Нахождение числа Фибоначи, это полбеды, тут алгоритм нехитрый... А вот, нам лабу задали... Тож на паскале: "Найти площадь многоугольника и длинны всех его диагоналей". Вот это действительно проблема!... wink.gif
Перейти в начало страницы
 
+Цитировать сообщение
Never Smile
сообщение 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.
Перейти в начало страницы
 
+Цитировать сообщение
Hitmen
сообщение 17.1.2008, 19:30
Сообщение #15


Активный участник
***

Группа: Пользователи
Сообщений: 358
Регистрация: 11.8.2007
Из: Пенза
Пользователь №: 1,331



АДМИНЫ ДЕЛЯЙТЕ ТЕМУ ОНА УЖЕ НЕ АКТУАЛЬНА. Я ВСЕ ЛАБЫ СДАЛ=)


--------------------
ЯЯКО КИКИНАМОРЭ
Перейти в начало страницы
 
+Цитировать сообщение

Ответить в данную темуНачать новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



RSS Текстовая версия Сейчас: 28.3.2024, 14:28

My Topsites List