Перейти к публикации

  • Сейчас на странице   Всего пользователей: 0   (0 пользователей, 0 гостей)

Kant

Программирование ver 4.1

Автор: Kant, в Мастерская

Рекомендованные сообщения

Nekon   

Nekon

Купил http://market.yandex...740913680402231 и сижу обмазываюсь ей, вобще ахуенная вещь.

Банда четырёх нынче не котируется? :hmm: Или до дыр зачитал?

ну она типо базируется на ней :dunno:

ea9cfc2a8fd28fed94eac49d3e83bf58.gif

Поделиться сообщением

Ссылка на сообщение

DIMAN123456789   

DIMAN123456789

Купил http://market.yandex...740913680402231 и сижу обмазываюсь ей, вобще ахуенная вещь.

Банда четырёх нынче не котируется? :hmm: Или до дыр зачитал?

ну она типо базируется на ней :dunno:

У меня так совпало что я по программированию прочитал буквально 3 книжки от корки до корки, подробно в них разбираясь, это Совершенный код, Паттерны проектирования (Банды четырех) и Effective Java(на русском языке есть какой-то первый вариант 10ти летней давности где была еще java 1.4, так что читал в оригинале), все остальные книги, которые мне попадались, такое чувство что были так или иначе выжимкой из этих трех. Чаще всего в них было 95% фигни и только 5% чего-то стоящего. Вот реально, ничего интересного больше не находил. Хотя может и не искал особо...

Поделиться сообщением

Ссылка на сообщение

Обязательное_поле   

Обязательное_поле
(изменено)

Постигаю азы раби на рельсах. Очень доволен фреймворком.

Генерирует различный фид на лету (вплоть до 4 различных Atom Feed'ов). + Прикрутил авторизацию на основе OAuth 2 с серверной начинкой.

Планирую расширить модуль, чтобы рендерил до 8-ми разных фидов.

Что скажете? Если кому надо могу в гем обернуть и на гитхаб залить.

class AtomController < ApplicationController
before_filter :authenticate_user!
def root
 render :file => "../views//root.xml", :content_type => 'application/xml'
end
def feed
 @section_name = 'feed'
 if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed2.xml", :content_type => 'application/xml'
  end
 elsif (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed1.xml", :content_type => 'application/xml'
  end
 else
  render :file => "../views/atom/feed_feed.xml", :content_type => 'application/xml'
 end
end
end


Изменено пользователем Обязательное_поле

Поделиться сообщением

Ссылка на сообщение

justice_st   

justice_st

читаю эту книжку в электронной книге :trollface: нихера не понимаю офк

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant
(изменено)

Постигаю азы раби на рельсах. Очень доволен фреймворком.

Генерирует различный фид на лету (вплоть до 4 различных Atom Feed'ов). + Прикрутил авторизацию на основе OAuth 2 с серверной начинкой.

Планирую расширить модуль, чтобы рендерил до 8-ми разных фидов.

Что скажете? Если кому надо могу в гем обернуть и на гитхаб залить.

class AtomController < ApplicationController
before_filter :authenticate_user!
def root
 render :file => "../views//root.xml", :content_type => 'application/xml'
end
def feed
 @section_name = 'feed'
 if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed2.xml", :content_type => 'application/xml'
  end
 elsif (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed1.xml", :content_type => 'application/xml'
  end
 else
  render :file => "../views/atom/feed_feed.xml", :content_type => 'application/xml'
 end
end
end

это стоит того, чтобы куда-то выкладывать?

 

руби еще хуже, чем я думал


Изменено пользователем Kant

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

TycoooN   

TycoooN

Отличный код, все четко и понятно, хуярь гем.

Поделиться сообщением

Ссылка на сообщение

Kazik9   

Kazik9

кароч ввожу номер запроса, он входит во внутренний цикл

для выхода из внутреннего цикла использую команду exit, тока он выходит не из внутреннего цикла а вообще из всей программы

как исправить?

writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('1 - По фамилии сотрудника вывести список дел');
 writeln('2 - По номеру договора определить услугу, предоставляемую клиенту');
 writeln('3 - Определить адрес по фамилии клиента');
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('Введите номер для выбора типа запроса');




 for zapros := 1 to 100 do
 begin
 readln(zapros1);


   if zapros1 = 1 then begin {1 запрос начало}
  writeln('Введите фамилию работника');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
    readln(zapros_fam);
    for i3 := 1 to n do
	  with a3[i3] do
	  begin
	    if zapros_fam = w  then  exit;
	    if zapros_fam = dog_sot then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog_sot, 'Ведет следующие дела: ');
		  writeln('Договор №:', dog_n);
		  writeln('Предоставляемая услуга: ', dog_us);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите фамилию работника');
   end; end; {1 запрос конец}

   if zapros1 = 2 then begin {2 запрос начало}
  writeln('Введите номер договора');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
    readln(zapros_nom);
    for i3 := 1 to n do
	  with a3[i3] do
	  begin
	    if zapros_nom = 0  then  exit;
	    if zapros_nom = dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog_n);
		  writeln('Предоставляемая услуга: ', dog_us);
		  writeln('Клиенту: ',dog_kl);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите номер договора');
   end; end; {2 запрос конец}

   if zapros1 = 3 then begin {3 запрос начало}
  writeln('Введите номер договора');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
    readln(zapros_ad);
    for i2 := 1 to n do
	  with a2[i2] do
	  begin
	    if zapros_ad = w  then  exit;
	    if zapros_ad = kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(kl_fam,' проживает по адресу: ',kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите номер договора');
   end; end; {3 запрос конец}





 writeln;
 writeln('Введите номер для выбора типа запроса');
 end;

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant

потому что exit() и выходит из программы

чтобы оборвать цикл надо использовать break

либо continue, чтобы перейти на следующую итерацию цикла.

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

TheDeadSkin   

TheDeadSkin

улыбнул exit :smile:

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha   

Гость 2poy_nyasha
(изменено)

Кофескрипт попробовал. Норм, но не особо гибко. Для простых приложение самое то.

 

Написал рисовалку http://stream.rankedgaming.ru/draw/

 

исходник https://github.com/E...ter/main.coffee

 

 

 

3445283.png

 


Изменено пользователем 2poy_nyasha

Поделиться сообщением

Ссылка на сообщение

TycoooN   

TycoooN

Лол а в чем отсутствие гибкости, если любую жс конструкцию можно повторить?

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha   

Гость 2poy_nyasha

если притормаживает измените drawRatio в 0

так же можно загружать и изменять готовые изображения

 

Лол а в чем отсутствие гибкости, если любую жс конструкцию можно повторить?

не любую, в частности проблемы с var возникают, которого в кофе тупо нет

Поделиться сообщением

Ссылка на сообщение

TycoooN   

TycoooN

Там же все переменные через var объявляются, какие проблемы-то.

Поделиться сообщением

Ссылка на сообщение

Гость 2poy_nyasha   

Гость 2poy_nyasha

ну в том и суть, что если мне надо изменить переменную неймспейсом ниже (похуй что это плохо) возникнет проблема

 

 

если бы не убрали var то было бы ваще збс

Поделиться сообщением

Ссылка на сообщение

Kazik9   

Kazik9
(изменено)

спс :geys:

 

гайс, аскинк хелп ласт тайм)))

 

написал вроде курсач, все вроде бы работает

но есть трабла. так как мне данных очень много вводить

каждый раз все заного делать не варик

подскажите как все в файл запихнуть. читал про assign rewrite

но чет не вышло. если можете на маленьком примере покажите

 

 

program kursachsuka;
uses
 crt;
type
 sotrudniki = record
fam: string[15];
im: string[10];
ot: string[15];
ad: string;
dt_r: string[15];
dol: string[20];

 end;
type
 uslugi = record
us_name: string;
us_price: integer;
 end;
type
 klient = record
kl_fam: string[20];
kl_im: string;
kl_ot: string;
kl_ad: string;
kl_dt: string;

 end;
type
 dogovor = record
dog_n: integer;
dog_sot: string;
dog_us: string;
dog_kl: string;
 end;
var

 a: array [1..30] of sotrudniki;
 a1: array [1..30] of uslugi;
 a2: array [1..30] of klient;
 a3: array [1..30] of dogovor;
 n: integer;
 i, i1, i2, i3: integer;
 zapros, zapros1: integer;
 zapros_fam: string;
 zapros_nom: integer;
 zapros_ad: string;
 p: integer;
 k: integer;
 w := 'Выход';
 w1 := 'Назад';
 ntv: integer;

begin

 writeln('Введите количество работников в фирме');
 readln(n);
 for i := 1 to n do
 begin
with a[i] do
begin
  write('Введите фамилию работника: ');
  readln(fam);
  write('Введите имя работника: ');
  readln(im);
  write('Введите отчество работника: ');
  readln(ot);
  write('Введите адрес: ');
  readln(ad);
  write('Введите дату рождения: ');
  readln(dt_r);
  write('Введите должность: ');
  readln(dol);
end; end;
 writeln;
 writeln('Введите количество предоставляемых услуг');
 readln(n);
 for i1 := 1 to n do
 begin
with a1[i1] do
begin
  write('Введите наименование услуги');
  readln(us_name);
  write('Введите цену за услугу');
  readln(us_price);
end; end;

 writeln;
 writeln('Введите количество клиентов фирмы');
 readln(n);
 for i2 := 1 to n do
 begin
with a2[i2] do
begin
  writeln('Ввод информации о клиенте');
  write('Введите фамилию : ');
  readln(kl_fam);
  write('Введите имя: ');
  readln(kl_im);
  write('Введите отчество: ');
  readln(kl_ot);
  write('Введите адрес: ');
  readln(kl_ad);
  write('Введите дату рождения: ');
  readln(kl_dt);
end; end;
 writeln;
 writeln('Введите количество договоров');
 readln(n);
 for i3 := 1 to n do
 begin
with a3[i3] do
begin
  writeln('Ввод данных о договоре');
  write('Введите №');
  readln(dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: ');
  readln(dog_sot);
  write('Введите данные о предоставляемой услуге: ');
  readln(dog_us);
  write('Введите данные о клиенте: ');
  readln(dog_kl);
end; end;


 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('1 - По фамилии сотрудника вывести список дел');
 writeln('2 - По номеру договора определить услугу, предоставляемую клиенту');
 writeln('3 - Определить адрес по фамилии клиента');
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('Введите номер для выбора типа запроса');




 for zapros := 1 to 100 do
 begin
 readln(zapros1);


if zapros1 = 1 then begin {1 запрос начало}
  writeln('Введите фамилию работника');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
	readln(zapros_fam);
	for i3 := 1 to n do
	  with a3[i3] do
	  begin
		if zapros_fam = w  then  break;
		if zapros_fam = dog_sot then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog_sot, 'Ведет следующие дела: ');
		  writeln('Договор №:', dog_n);
		  writeln('Предоставляемая услуга: ', dog_us);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	writeln('Введите фамилию работника');
   end; end; {1 запрос конец}

if zapros1 = 2 then begin {2 запрос начало}
  writeln('Введите номер договора');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
	readln(zapros_nom);
	for i3 := 1 to n do
	  with a3[i3] do
	  begin
		if zapros_nom = 0  then  break;
		if zapros_nom = dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog_n);
		  writeln('Предоставляемая услуга: ', dog_us);
		  writeln('Клиенту: ',dog_kl);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	writeln('Введите номер договора');
   end; end; {2 запрос конец}

if zapros1 = 3 then begin {3 запрос начало}
  writeln('Введите номер договора');
  writeln('Для выхода из программы используйде команду - Выход');
  for p := 1 to 100 do
  begin
	readln(zapros_ad);
	for i2 := 1 to n do
	  with a2[i2] do
	  begin
		if zapros_ad = w  then  break;
		if zapros_ad = kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(kl_fam,' проживает по адресу: ',kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	writeln('Введите номер договора');
   end; end; {3 запрос конец}





 writeln;
 writeln('Введите номер для выбора типа запроса');
 end;
end.

 

 

норм рисовалка, что то на уровне фотошопа0))))

 

e8f19f5e2196df1a8c128d0b1879db93.png

 


Изменено пользователем Kazik9

Поделиться сообщением

Ссылка на сообщение

TheQueenIsDead   

TheQueenIsDead
(изменено)

Постигаю азы раби на рельсах. Очень доволен фреймворком.

 

class AtomController < ApplicationController
before_filter :authenticate_user!
def root
 render :file => "../views//root.xml", :content_type => 'application/xml'
end
def feed
 @section_name = 'feed'
 if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed2.xml", :content_type => 'application/xml'
  end
 elsif (File.exist?("#{RAILS_ROOT}/feedResponses/q2.xml"))
  if (File.exist?("#{RAILS_ROOT}/feedResponses/q1.xml"))
render :file => "../views/atom/feed_feed0.xml", :content_type => 'application/xml'
  else
render :file => "../views/atom/feed_feed1.xml", :content_type => 'application/xml'
  end
 else
  render :file => "../views/atom/feed_feed.xml", :content_type => 'application/xml'
 end
end
end

 

не думал что в наше время можно создать язык с таким божественным синтаксисом


Изменено пользователем TheQueenIsDead

 

мой xboct

LpSmj.jpg

 

 

въезжаю в иккап

npmyH.jpg

 

 

опять собрал дагон в аптб?

mIQzC.gif

 

 

мои вирсутпро + бонус

VARPV.png

 

респект таким пацанам как нс, даже проебав тёлку и интерненшл, он продолжает проигрывать ланы в бомжебарах со своей бывшей, а вы и дальше едьте в свои сиетлы и играйте там за миллионы

 

Поделиться сообщением

Ссылка на сообщение

Kant   

Kant

создай файл типа твоей структуры, и пиши в него, а потом читай при запуске.

только стринги все сделай фиксированной длины, иначе их писать нельзя.

Торжество разума в том, чтобы уживаться с теми, у кого этого разума нет. Вольтер.
Чтобы хорошо высыпаться, нужно спать 8 часов в день. И еще столько же ночью.

Поделиться сообщением

Ссылка на сообщение

Kazik9   

Kazik9
(изменено)

ок. спс.


Изменено пользователем Kazik9

Поделиться сообщением

Ссылка на сообщение

kve1   

kve1

так весело смотреть на часть кода, которым блочат IE :lol:

1.0

 

Поделиться сообщением

Ссылка на сообщение
Гость
Эта тема закрыта для публикации сообщений.
Перейти к списку тем
×
×
  • Создать...