1 Тема от HappyEnd

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Тема: Хелп с инфой, приз внутри ;)

Ребят, срочно нужна ваша помощь :)
Нужно написать 2 программы по инфе, курс 10 класса.

1.Создать типизированный файл book, содержащий сведения о книгах(10 записей): фамилия автора, название и год издания. Найти названия книг данного автора, изданных после 1999 года.

2.Создать текстовый файл, состоящий из 2-3 предложений. Определить количество слов в нем

В качестве приза могу предложить сапфир форс+кримсон лакс, в тори не играю, больше ничего не осталось :(
Выручайте

We must secure the existence of our people and a future for white children 14/88


2 Ответ от funDuck

  • funDuck
  • funDuck
  • Профи
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,360
  • Репутация : 150
  • Предупреждения: 4

Re: Хелп с инфой, приз внутри ;)

язык бы указал



3 Ответ от HappyEnd (24.04.2012 21:19:24 отредактировано HappyEnd)

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Re: Хелп с инфой, приз внутри ;)

Паскаль :<

Я ведь знаю, что это не так сложно, просто я тупой)

We must secure the existence of our people and a future for white children 14/88


4 Ответ от Slko

  • Slko
  • Slko
  • 私は砂を炒る
  • Неактивен
  • Откуда: Россия, Москва
  • Зарегистрирован: 19.03.2011
  • Сообщений: 1,077
  • Репутация : 515

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:

Паскаль

Fuck this shit.

http://img146.imageshack.us/img146/8711/57267202.png
Slot: Родина это не килька в томате.

Сайт Slko



5 Ответ от HappyEnd

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Re: Хелп с инфой, приз внутри ;)

Стася пишет:
HappyEnd пишет:

Паскаль

Fuck this shit.

Please! :c

We must secure the existence of our people and a future for white children 14/88


6 Ответ от michel2006 (24.04.2012 22:16:18 отредактировано michel2006)

  • michel2006
  • michel2006
  • Ветеран
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 20.03.2011
  • Сообщений: 313
  • Репутация : 104

Re: Хелп с инфой, приз внутри ;)

Вторая задача. Вроде всё работает. Кстати, программа принимает цифры за буквы, т.е. ыфлво21 будет словом. Проверь на всякий случай.

program slova;
var
newword: boolean;
curchar: char;
n,kolvo: integer;
f: file of char;
begin
    kolvo:=0;
    assign(f,'in.txt');
    reset(f);
    n:=-1;
    newword:=true;
    while not eof(f) do
    begin
    read(f,curchar);
    inc(n);
    seek(f,n);
        if (ord(curchar)>=97) and (ord(curchar)<=122) then begin
            newword:=false;
        end else if (ord(curchar)>=65) and (ord(curchar)<=90) then begin
            newword:=false;
        end else if (ord(curchar)>=192) and (ord(curchar)<=255) then begin
            newword:=false;
        end else if (ord(curchar)>=48) and (ord(curchar)<=57) then begin
            newword:=false;
        end else begin
            if newword=false then begin
                newword:=true;
                inc(kolvo);
            end;
        end;
    end;
if newword=false then inc(kolvo);
writeln(kolvo);
end.
Toribash.3dn.ru, toribash.4bb.ru, toribash.ru... Вы навсегда останетесь в моём сердце...

+1



7 Ответ от HappyEnd

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Re: Хелп с инфой, приз внутри ;)

michel2006 пишет:

Вторая задача. Вроде всё работает. Кстати, программа принимает цифры за буквы, т.е. ыфлво21 будет словом.

program slova;
var
newword: boolean;
curchar: char;
n,kolvo: integer;
f: file of char;
begin
    kolvo:=0;
    assign(f,'in.txt');
    reset(f);
    n:=-1;
    newword:=true;
    while not eof(f) do
    begin
    read(f,curchar);
    inc(n);
    seek(f,n);
        if (ord(curchar)>=97) and (ord(curchar)<=122) then begin
            newword:=false;
        end else if (ord(curchar)>=65) and (ord(curchar)<=90) then begin
            newword:=false;
        end else if (ord(curchar)>=192) and (ord(curchar)<=255) then begin
            newword:=false;
        end else if (ord(curchar)>=48) and (ord(curchar)<=57) then begin
            newword:=false;
        end else begin
            if newword=false then begin
                newword:=true;
                inc(kolvo);
            end;
        end;
    end;
if newword=false then inc(kolvo);
writeln(kolvo);
end.

хм, спасибо, единственное, что значит boolean?

We must secure the existence of our people and a future for white children 14/88


8 Ответ от michel2006

  • michel2006
  • michel2006
  • Ветеран
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 20.03.2011
  • Сообщений: 313
  • Репутация : 104

Re: Хелп с инфой, приз внутри ;)

логическая переменная (true/false)

Toribash.3dn.ru, toribash.4bb.ru, toribash.ru... Вы навсегда останетесь в моём сердце...


9 Ответ от Korvin

  • Korvin
  • Korvin
  • Уподобившийся богам
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 3,747
  • Репутация : 679

Re: Хелп с инфой, приз внутри ;)

http://ru.wikipedia.org/wiki/%D0%9B%D0% … 0%B8%D0%BF



10 Ответ от Дарт

  • Дарт
  • Дарт
  • Хуярт
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 2,194
  • Репутация : 702

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:

Нужно написать 2 программы по инфе, курс 10 класса.

слишком легко

HappyEnd пишет:

Паскаль :<

Стася пишет:

Fuck this shit.

http://fc02.deviantart.net/fs70/f/2012/044/b/2/fluttershy_sig_by_vinnieofsiftheads21-d4nyxke.png

Сайт Дарт



11 Ответ от HappyEnd

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Re: Хелп с инфой, приз внутри ;)

michel2006 пишет:

логическая переменная (true/false)

мы пока такого не проходили, подозрительно будет :<

Дарт пишет:
HappyEnd пишет:

Нужно написать 2 программы по инфе, курс 10 класса.

слишком легко

HappyEnd пишет:

Паскаль :<

Стася пишет:

Fuck this shit.

Oh come on, dude D:

We must secure the existence of our people and a future for white children 14/88


12 Ответ от Дарт

  • Дарт
  • Дарт
  • Хуярт
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 2,194
  • Репутация : 702

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:

Oh come on, dude D:

Я с ним работал лишь однажды. И ей богу, это был ад. Я не знаю, как люди все еще на нем пишут.

http://fc02.deviantart.net/fs70/f/2012/044/b/2/fluttershy_sig_by_vinnieofsiftheads21-d4nyxke.png

Сайт Дарт



13 Ответ от Sirbee

  • Sirbee
  • Sirbee
  • Опытный
  • Неактивен
  • Зарегистрирован: 16.01.2012
  • Сообщений: 173
  • Репутация : 0

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:
michel2006 пишет:

логическая переменная (true/false)

мы пока такого не проходили, подозрительно будет :<

Дарт пишет:
HappyEnd пишет:

Нужно написать 2 программы по инфе, курс 10 класса.

слишком легко

HappyEnd пишет:

Паскаль :<

Стася пишет:

Fuck this shit.

Oh come on, dude D:

Почему вас в 10 классе учат паскалю??
У нас делфи , паскаль в 9 был.

http://s019.radikal.ru/i643/1205/73/6134e9486d5a.jpg
West/30lvl/Gid733


14 Ответ от michel2006

  • michel2006
  • michel2006
  • Ветеран
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 20.03.2011
  • Сообщений: 313
  • Репутация : 104

Re: Хелп с инфой, приз внутри ;)

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

Toribash.3dn.ru, toribash.4bb.ru, toribash.ru... Вы навсегда останетесь в моём сердце...


15 Ответ от Bartimeus

  • Bartimeus
  • Bartimeus
  • Мастер
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 827
  • Репутация : 71
  • Предупреждения: 2

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:

курс 10 класса

HappyEnd пишет:

Паскаль :<

What! Я тоже в 10м классе, но мы с начала года изучали Delphi 7.0



16 Ответ от ukrFantom

  • ukrFantom
  • ukrFantom
  • Gamemaster
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 977
  • Репутация : 55

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:

1.Создать типизированный файл book, содержащий сведения о книгах(10 записей): фамилия автора, название и год издания. Найти названия книг данного автора, изданных после 1999 года.

долго делать, + впадло

HappyEnd пишет:

хм, спасибо, единственное, что значит boolean?

(facepalm)
не верю что бы такого не учили. если уже дошли до файлов-то это должны 100% знать

[center][TW T2RAFS] :: [Leader of rb] :: [OoT][/center][center]ex-Gamemaster :: Grim Reapers
Нужна помощь? Пиши мне в пм[/center]
[center][/center]


17 Ответ от HappyEnd

  • HappyEnd
  • Профи
  • Неактивен
  • Откуда: Мурманск
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,156
  • Репутация : 141
  • Предупреждения: 5

Re: Хелп с инфой, приз внутри ;)

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

We must secure the existence of our people and a future for white children 14/88


18 Ответ от Sirbee

  • Sirbee
  • Sirbee
  • Опытный
  • Неактивен
  • Зарегистрирован: 16.01.2012
  • Сообщений: 173
  • Репутация : 0

Re: Хелп с инфой, приз внутри ;)

HappyEnd пишет:
michel2006 пишет:

Вторая задача. Вроде всё работает. Кстати, программа принимает цифры за буквы, т.е. ыфлво21 будет словом.

program slova;
var
newword: boolean;
curchar: char;
n,kolvo: integer;
f: file of char;
begin
    kolvo:=0;
    assign(f,'in.txt');
    reset(f);
    n:=-1;
    newword:=true;
    while not eof(f) do
    begin
    read(f,curchar);
    inc(n);
    seek(f,n);
        if (ord(curchar)>=97) and (ord(curchar)<=122) then begin
            newword:=false;
        end else if (ord(curchar)>=65) and (ord(curchar)<=90) then begin
            newword:=false;
        end else if (ord(curchar)>=192) and (ord(curchar)<=255) then begin
            newword:=false;
        end else if (ord(curchar)>=48) and (ord(curchar)<=57) then begin
            newword:=false;
        end else begin
            if newword=false then begin
                newword:=true;
                inc(kolvo);
            end;
        end;
    end;
if newword=false then inc(kolvo);
writeln(kolvo);
end.

хм, спасибо, единственное, что значит boolean?

Почему эта не устраивает?? Неужели компонент boolean настолько важен и к тебе могут за него придраться?

http://s019.radikal.ru/i643/1205/73/6134e9486d5a.jpg
West/30lvl/Gid733


19 Ответ от ukrFantom

  • ukrFantom
  • ukrFantom
  • Gamemaster
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 977
  • Репутация : 55

Re: Хелп с инфой, приз внутри ;)

булеан можна очень легко заменить на чар, но получится очень по тупому ._.

[center][TW T2RAFS] :: [Leader of rb] :: [OoT][/center][center]ex-Gamemaster :: Grim Reapers
Нужна помощь? Пиши мне в пм[/center]
[center][/center]


20 Ответ от Darkenery

  • Darkenery
  • Darkenery
  • Balance?
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 2,763

Re: Хелп с инфой, приз внутри ;)

ukrFantom пишет:

булеан можна очень легко заменить на чар

Можно тупо заменить на int с 0 и 1. Будет тоже самое, только без boolean.



21 Ответ от Илья

  • Илья
  • Илья
  • Медоед
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 956
  • Репутация : 197

Re: Хелп с инфой, приз внутри ;)

А нас вообще ни какому языку программирования не чат.

PunBB bbcode test


22 Ответ от ytrbn97 (25.04.2012 07:41:37 отредактировано ytrbn97)

  • ytrbn97
  • ytrbn97
  • ?!
  • Неактивен
  • Зарегистрирован: 05.07.2011
  • Сообщений: 751
  • Репутация : 61
  • Предупреждения: 2

Re: Хелп с инфой, приз внутри ;)

Sirbee пишет:

Почему вас в 10 классе учат паскалю??
У нас делфи , паскаль в 9 был.

У нас до 11го класса кривозапиленный турбо пасаль. Информатичке предлагал делфи запилить, но она боится пиратского софта.

Внезапная смена мнения FTW
http://puu.sh/3gqQ4.png


23 Ответ от Reningan

  • Reningan
  • Перекатившийся
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,363
  • Репутация : 180

Re: Хелп с инфой, приз внутри ;)

ytrbn[b]97[/b]

ytrbn97 пишет:

У нас до 11го класса кривозапиленный

[img]http://bfolder.ru/_ph/2/2/568669276.jpg[/img]

http://puu.sh/1N9JF


24 Ответ от Lars

  • Lars
  • …………………...- *" \ - "::*'\ ………………„-^*'' : : „'' : :
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 2,552
  • Репутация : 216
  • Предупреждения: 9

Re: Хелп с инфой, приз внутри ;)

Может быть это его возраст?



25 Ответ от ytrbn97

  • ytrbn97
  • ytrbn97
  • ?!
  • Неактивен
  • Зарегистрирован: 05.07.2011
  • Сообщений: 751
  • Репутация : 61
  • Предупреждения: 2

Re: Хелп с инфой, приз внутри ;)

[b]до[/b] 11го
Я же не сказал, что в 11м учусь, или закончил.
А Реня читать не умеет, да.

Внезапная смена мнения FTW
http://puu.sh/3gqQ4.png


26 Ответ от Reningan

  • Reningan
  • Перекатившийся
  • Неактивен
  • Зарегистрирован: 20.03.2011
  • Сообщений: 1,363
  • Репутация : 180

Re: Хелп с инфой, приз внутри ;)

Просто кто-то свои мысли криво изрекает.

http://puu.sh/1N9JF


27 Ответ от Sirbee

  • Sirbee
  • Sirbee
  • Опытный
  • Неактивен
  • Зарегистрирован: 16.01.2012
  • Сообщений: 173
  • Репутация : 0

Re: Хелп с инфой, приз внутри ;)

ytrbn97 пишет:

она боится пиратского софта.

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

http://s019.radikal.ru/i643/1205/73/6134e9486d5a.jpg
West/30lvl/Gid733


28 Ответ от Atumani

  • Atumani
  • Atumani
  • Ветеран
  • Неактивен
  • Откуда: Иркутск
  • Зарегистрирован: 24.11.2011
  • Сообщений: 216
  • Репутация : 10

Re: Хелп с инфой, приз внутри ;)

Sirbee пишет:
ytrbn97 пишет:

она боится пиратского софта.

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]



29 Ответ от Slko

  • Slko
  • Slko
  • 私は砂を炒る
  • Неактивен
  • Откуда: Россия, Москва
  • Зарегистрирован: 19.03.2011
  • Сообщений: 1,077
  • Репутация : 515

Re: Хелп с инфой, приз внутри ;)

Atumani пишет:
Sirbee пишет:
ytrbn97 пишет:

она боится пиратского софта.

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

[img]http://ebash.drath.ru/img/avatars/3491.jpg[/img]

http://img146.imageshack.us/img146/8711/57267202.png
Slot: Родина это не килька в томате.

Сайт Slko



30 Ответ от Atumani (25.04.2012 16:04:28 отредактировано Atumani)

  • Atumani
  • Atumani
  • Ветеран
  • Неактивен
  • Откуда: Иркутск
  • Зарегистрирован: 24.11.2011
  • Сообщений: 216
  • Репутация : 10

Re: Хелп с инфой, приз внутри ;)

Стася пишет:
Atumani пишет:
Sirbee пишет:
ytrbn97 пишет:

она боится пиратского софта.

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]

[img]http://ebash.drath.ru/img/avatars/3491.jpg[/img]

опять же
[img]http://s47.radikal.ru/i118/1105/a4/69aa0a96c1ac.jpg[/img]