Карта сайта

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

Пнд 06 Янв 2014 04:49:29
Задача на Паскале.
Задача на Паскале. Описать запись с именем NOTE, содержащий следующие действия:
1. Фамилия, имя
2. Номер телефона
3. Дата рождения (массив из трех чисел)
Написать программу, которая выполняет следующие действия:
1.Введение с клавиатуры данных в массив, который состоит из восьми элементов типа NOTE; записи должны быть упорядочены по датам рождения;
2. Вывод на экран информации о человеке, номер телефона, которого введенной с клавиатуры;
Если такого нет, выдать дисплей соответствующее сообщение.


Решите, пожалуйста.
С меня пак вкусностей на имейл тому, кто решил.


Пнд 06 Янв 2014 04:53:52

Пнд 06 Янв 2014 04:54:59
Ну это же сущий пустяк. Погугли немножко.

Пнд 06 Янв 2014 04:56:31
проиграл с оп пика
и оп поста

Пнд 06 Янв 2014 04:56:36
>>60248048
Помоги, пожалуйста.
Я с телефона, я ну никак.
Помогите, прошу.

Пнд 06 Янв 2014 05:02:25
>>60247824
Пошел нахуй, быдлостудентота. Учись, сука. Если ты простейших вещей не можешь сделать в паскале, то нахуй ты вообще нужен.

Пнд 06 Янв 2014 05:04:15
>>60247824
Лол, это же элементарно.
Мимошкольник - олимпиадист

Пнд 06 Янв 2014 05:04:45
>>60248348
Это не моё задание.
Это племяница шефа попросила, а я реально не шарю.

Пнд 06 Янв 2014 05:05:19
>>60248427
Помоги, пожалуйста!

Пнд 06 Янв 2014 05:06:44
>>60248468
Сорри, не могу. Я с ведра пишу. А в тред всё это писать лень.

Пнд 06 Янв 2014 05:07:58
ОП Меня заебали дураки вокруг и я не собираюсь помогать еще одному.
Нет.

Пнд 06 Янв 2014 05:09:00
>>60247824
если бы на C# то помог бы, а на паскале не ебу, извиняй

Пнд 06 Янв 2014 05:09:22
умри, щькольник

Пнд 06 Янв 2014 05:10:17
>>60247824
Я бы на пхп тебе сделал.
А вообще это элементарная задача, если ты не можешь ее решить, то за каким хуем ты поступал туда где такие задачи задают.

Пнд 06 Янв 2014 05:10:49
>>60248674
он же написал - это не его задача

Пнд 06 Янв 2014 05:13:05
Реально, задача не моя, я - физик первый курс.

Пнд 06 Янв 2014 05:18:38
Спасайте.

Пнд 06 Янв 2014 05:22:02
Мужики :|

Пнд 06 Янв 2014 05:27:08
>>60247824
Уважаемый школьник, скажи своему преподавателю информатики, что я его найду и засуну раскалённую кочергу ему в анус.
Негоже в 21 веке преподавать паскаль.

Пнд 06 Янв 2014 05:27:26
Ну пожалуйста ;|

Пнд 06 Янв 2014 05:27:58
>>60249306
Эту задачу прислала школьница 11го класса ;|
Я не смогу решить;|

Пнд 06 Янв 2014 05:30:22
>>60248446
> Это племяница шефа попросила, а я реально не шарю
А слать ее нахуй с такими запросами не пробовал? Если они тебя попросят прийти к ним домой и сделать уборку, ты тоже будешь выполнять?

Пнд 06 Янв 2014 05:32:32
>>60249412
Нет, но тут же играет "Тыжпрограмист!111".
Ну помогите ;|

Пнд 06 Янв 2014 05:35:34
>>60249478
Но ты же не программист, раз не можешь решить такую простую хуйню.
>Ну помогите
Нет, иди нахуй, раб пизды

Пнд 06 Янв 2014 05:37:11
>>60249571
Мне все-равно на эту бабу, мне именно важно уважение шефа, которого я очень уважаю, как человека.
Ребята, очень прошу.

Пнд 06 Янв 2014 05:40:27
>>60249629
> уважение шефа
Твой шеф либо дебил, либо пользуется твоей омежностью, раз просит тебя сделать то, чего ты не можешь. Шли его нахуй, и сам иди нахуй

Пнд 06 Янв 2014 05:43:03
>>60247824
Пшел вон.

Пнд 06 Янв 2014 05:46:35
>>60249306
Что плохого преподавать паскаль, для изучения основ, синтаксиса-хуинтоксиса, структуры программы и тд.? Эти школьники на нем ШINDOШS писать на собираются же.

Пнд 06 Янв 2014 05:47:05
>>60249738
Все могут просто послать. Так же, как и сказать, что легко и умеешь, и не сделать.
Ну же, помогите, я же реально нуждаюсь в помощи Вашей.

Пнд 06 Янв 2014 05:47:39
>2014
>паскаль

Пнд 06 Янв 2014 05:49:11
>>60247824
что за NOTE?

Пнд 06 Янв 2014 05:50:41
сажи тебе
тупым пёздам еще программы тут не писали
охуеть можно

Пнд 06 Янв 2014 05:50:53
>>60249932
А схуяли мне помогать омеге, который не может отказать в просьбе сделать то, чего он не может? Ты же не человек, ты максимум раб! В третий раз посылаю тебя нахуй

Пнд 06 Янв 2014 05:51:25
>>60247824
FOR I=1 TO 6757687 DO
BEGIN
WRITELN САСАЙ ЛОЛКА
END

Пнд 06 Янв 2014 05:53:50
ОП дважы опущенец
мало того что пошел на поводу школия и теперь скулит тут как побитая шлюха, так еще и не может в решение этой хуйни (тут блядь минут 10 надо от силы)

Пнд 06 Янв 2014 05:53:55
>>60249998
Название
>>60250050
Она не ТП, просто не шарит информатику.

Пнд 06 Янв 2014 05:54:33
>>60249932
Впрочем, даю тебе последний шанс, омега. Ты писал:
> С меня пак вкусностей на имейл тому, кто решил.
Что именно предлагаешь? Если заинтересуешь меня этими вкусностями - решу твою хуйню

Пнд 06 Янв 2014 05:54:48
>>60250152
> Она не ТП, просто не шарит информатику.

это значит что она ТП

Пнд 06 Янв 2014 05:55:41
>>60250173
ЦП.

Пнд 06 Янв 2014 05:56:25
>>60250173
А что ты хочешь?
У меня многое есть?

Пнд 06 Янв 2014 05:57:02
>>60247824

var a:integer;
begin
writeln('op-hyi?');
writeln('1-da');
writeln('2-net');
readln(a);
if a=1 then
writeln('MALACA, PRAVILNO');
else
write('NA_SAMOM_DELE_OP-HYI');
end.

Пнд 06 Янв 2014 05:57:09
Оп я готов решить твою задачу за сасай.
Пиши на bulgakov@2ch.hk

Пнд 06 Янв 2014 05:57:14
я хочу чтобы ты страдал
с пруфом и супом

Пнд 06 Янв 2014 05:57:53
>шеф
>паскаль
толстовато

Пнд 06 Янв 2014 05:58:04
>>60250152
Шлюха просит ОПа решить ей задачу за спасибо. ОП, как истинный пиздолис, соглашается, даже не имея понятия о том, как именно это решается. ОП - ты биомусор. Сажи треду.

Пнд 06 Янв 2014 05:58:39
>>60250237
Быстрофикс
Последнее - это без знака вопроса.

Пнд 06 Янв 2014 05:58:39
>>60250237
Ты предлагай, а я буду выбирать

Пнд 06 Янв 2014 05:59:10
>>60250294
А сажу я и забыл

Пнд 06 Янв 2014 05:59:15
>>60250315
Есть ЦП, есть инцест.

Пнд 06 Янв 2014 06:00:14
>>60247824
program fuck;
type note=record
family, name: string;
phoneNumber:string;
date: array [0..3] of integer;
end;
var
arr: array[0..8] of note;
i:integer;
c:char;
b:boolean;
srcPhone:string;
begin
writeLn('Enter peoples');
for i:=0 to 8 do
begin
write('Enter family: ');
readln(arr.family);

write('Enter name: ');
readln(arr<em>.name);

write('Enter phone: ');
readln(arr<em>.phoneNumber);

write('Enter date(YYYY MM DD): ');
readln(arr<em>.date[0], arr<em>.date[1], arr<em>.date[2]);
end.

c:= 'n';
while(c &amp;t;> 'y')
begin
b:= false;
write('Enter phone to search: ');
readLn(srcPhone);

if(srcPhone = '')
writeln('phone not found')
else
begin
while((b = false) AND (i &amp;t; 8)) do
begin
b:= (arr<em>.phoneNumber = srcPhone);
inc(i);
end;


if (b)
begin
write('Family: ');
writeLn(arr<em>.family);

write('Name: ');
writeLn(arr<em>.name);

write('Phone: ');
writeLn(arr<em>.phoneNumber);

write('Birthday: ');
writeLn(arr<em>.date[0], ' ' , arr<em>.date[1], ' ' , arr<em>.date[2]);
b:= true;
end
else
writeln('phone not found');
end;

write('Exit?(y/n)');
readLnY;
end;
end.
</em></em></em></em></em></em></em></em></em></em></em></em>

Пнд 06 Янв 2014 06:00:20
> Есть ЦП, есть инцест.

только если ОП там в кадре

Пнд 06 Янв 2014 06:01:03
>>60250355
Написал, чисто чтобы паскаль вспомнить. Не тестил.

Пнд 06 Янв 2014 06:03:06
>>60250355
Ах ты пидар

Пнд 06 Янв 2014 06:04:39
>>60250355
Но так Оп ничему не научится... Ая-яй..

Пнд 06 Янв 2014 06:04:51
Вот тебе сделали, давай доставляй что есть.

Пнд 06 Янв 2014 06:05:45
>>60250490
Зато я паскаль вспомнил.
А на опа мне похрен.
+ я просто код накорябал, а ошибки не правил.

Пнд 06 Янв 2014 06:06:04
>>60250382
Спасибо ;|
Но оно не работает ;|

Пнд 06 Янв 2014 06:08:27
>>60250539

так и должно быть
а теперь вернемся к теме процессоров
пили фоточки, может быть сердце паскалебогов дрогнет перед твоими мольбами

Пнд 06 Янв 2014 06:10:14

Пнд 06 Янв 2014 06:11:18
>>60250539
>9
program fuck;
type note=record
family, name: string;
phoneNumber:string;
date: array [0..3] of integer;
end;
var
arr: array[0..8] of note;
i:integer;
c:char;
b:boolean;
srcPhone:string;
begin
writeLn('Enter peoples');
for i:=0 to 8 do
begin
write('Enter family: ');
readln(arr.family);

write('Enter name: ');
readln(arr<em>.name);

write('Enter phone: ');
readln(arr<em>.phoneNumber);

write('Enter date(YYYY MM DD): ');
readln(arr<em>.date[0], arr<em>.date[1], arr<em>.date[2]);
writeln;
end;

c:= 'n';
while(c &amp;t;> 'y') do
begin
b:= false;
write('Enter phone to search: ');
readLn(srcPhone);

if(srcPhone = '') then
writeln('phone not found')
else
begin
while((b = false) AND (i &amp;t; 8)) do
begin
b:= (arr<em>.phoneNumber = srcPhone);
inc(i);
end;


if (b) then
begin
write('Family: ');
writeLn(arr<em>.family);

write('Name: ');
writeLn(arr<em>.name);

write('Phone: ');
writeLn(arr<em>.phoneNumber);

write('Birthday: ');
writeLn(arr<em>.date[0], ' ' , arr<em>.date[1], ' ' , arr<em>.date[2]);
b:= true;
end
else
writeln('phone not found');
end;

write('Exit?(y/n)');
readLnY;
end;
end.
</em></em></em></em></em></em></em></em></em></em></em></em>

Пнд 06 Янв 2014 06:12:16
>>60250694
ток снизу замени readLnY;
на readln( c );

Пнд 06 Янв 2014 06:14:10
>>60250694
>Program1.pas(18) : family не объявлен в типе array [0..8] of note

Пнд 06 Янв 2014 06:14:32

Пнд 06 Янв 2014 06:15:18
ОП бля не будь пидором, покидай ещё милф.

Пнд 06 Янв 2014 06:15:18
>>60250254
А у меня тем временем апдейт
Совершенно новая версия чудо-программы

program op_hui_v2;
var i:longint;
begin
for i:=1 to 2147483647 do
write('op-hui ');
end.

Пнд 06 Янв 2014 06:16:29
>>60250792
В чём запускаеш?
у меня на freePascal всё ок.

Пнд 06 Янв 2014 06:16:38
>>60250806

ОП это ты? Супа не вижу

Пнд 06 Янв 2014 06:17:56
>>60250858
Pascal.ABC

Пнд 06 Янв 2014 06:19:09
>>60250907
поставь фри, и наслаждайся программой , мне лень по всем интернетам искать неправославный ABC

Пнд 06 Янв 2014 06:27:54
>>60250946
Фри не компилирует тоже ;|

Пнд 06 Янв 2014 06:30:06
>>60251199
Тогда поешь говна, даун

Пнд 06 Янв 2014 06:30:25
>>60251199
А руками проверить на автозамену нельзя -_-
http://rghost.ru/51433280
Вот тебе исходник и скомпиленный проэкт.

Пнд 06 Янв 2014 06:30:37
Мужики, спасайте ;|

Пнд 06 Янв 2014 06:32:44
>>60251269
Зачем ты помогаешь этому биомусору?

Пнд 06 Янв 2014 06:33:41
>>60251345
Хз, делать нечего, скуууучно...

Пнд 06 Янв 2014 06:35:35
>>60251376
Ложился бы спать тогда

Пнд 06 Янв 2014 06:36:38
>>60251437
Проснулся недавно =) Я с этими праздниками совсем режим дня проебал...

Пнд 06 Янв 2014 06:36:54
>>60249306
Для общего понимания принципов вполне норм. Простейший язык. Кто надо заинтересуется и пойдёт дальше, а кому нахуй в жизни не нужно тот особо и не напрягётся.
Хотя опа не понимаю. Когда у нас в школе был паскаль я прямо таки заболел и ахуевал от возможностей делать программы самому, в итоге когда все уравнения решали для экзамена, я уже матерный пинг понг написал. Просто самому ахуенно инетересно было.

Пнд 06 Янв 2014 06:38:12
>>60251269
Оно у меня не ищет ;|
Пожалуйста, пофикси, я прошу. Тогда весь пак твой ;|

Пнд 06 Янв 2014 06:40:23
>>60251479
Повезло вам Т_Т. У нас информатика КАЖДЫЙ год шла по одному и тому-же циклу: word-excel-power point
Каждый ёбаный год =(
p.s. я не оп, а тот кто прогу кинул =)

Пнд 06 Янв 2014 06:40:28
>>60250355
Всегда ахуевал, как тут можно что понять и как вы эти программы вообще пишите.

Пнд 06 Янв 2014 06:43:47
>>60251592
всегда ахуевал как люди не могут в прочитать программу на полтора десятка строк. это ж насколько куриный мозг должен у человека быть чтобы он в это не мог?

Пнд 06 Янв 2014 06:46:10
>>60251524
> ;|
Заебал ты эту хуйню писать, сраный смайлоеб. Пиздец, ОП для меня прямо какой-то эталон дегенерата

Пнд 06 Янв 2014 06:54:10
Бамп

Пнд 06 Янв 2014 06:58:21
>>60250355
>readLnY;
угорел

Пнд 06 Янв 2014 07:02:04

>>60249916
>для изучения основ, синтаксиса-хуинтоксиса, структуры программы и тд.?
http://code.org

Пнд 06 Янв 2014 07:02:52
>>60251524
паскаль заглючил...
http://rghost.ru/51433404
лови. теперь 100% работает.


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