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

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

Kant

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

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

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

DIMAN123456789   

DIMAN123456789

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

Короче, копируй в тело страницы:

<script>while(true){
 alert('hacked!');
}</script>

все норм будет.

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

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

Tass   

Tass
(изменено)

ребята, решил побаловаться с си

в нем я слаб, да и вообще,новичок

кто-нибудь может объяснить мне

вот смотрите, есть определенный класс, допустим complex

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

complex <double>

complex <int>

 

может ли кто-нибудь мне что-нибудь по этому поводу сказать или подсказать, где это прочитать можно :trollface:


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

7372b0165d34.gif


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

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

TheDeadSkin   

TheDeadSkin

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

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

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

Kant   

Kant

а на яндексе такой сервис есть ?

ну держи

http://metrika.yandex.ru/

 

ребята, решил побаловаться с си

в нем я слаб, да и вообще,новичок

кто-нибудь может объяснить мне

вот смотрите, есть определенный класс, допустим complex

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

complex

complex

 

может ли кто-нибудь мне что-нибудь по этому поводу сказать или подсказать, где это прочитать можно :trollface:

это как минимум уже не С, а С++.

 

для шаблонов есть ключевое слово template. Качай себе книжку страуструпа какую-нибудь и развлекайся до конца своих дней.

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

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

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

Гость Im_groza_Hax   

Гость Im_groza_Hax

ебал windows market place ))

статистика о приложении запаздывает )

некоторые говорят придется неделю ждать )

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

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

Гость 2poy_nyasha   

Гость 2poy_nyasha

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

Короче, копируй в тело страницы:

<script>while(true){
 alert('hacked!');
}</script>

все норм будет.

как ты миня взломал?

 

пришлось компьютер перезагружать

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

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

Гость Im_groza_Hax   

Гость Im_groza_Hax

2пой у меня к тебе есть пара вопросов

ты учишься / работаешь ? на кого учишься/учился ?

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

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

Kazik9   

Kazik9

 

Курсач

program kursach;
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
 sot: array [1..30] of sotrudniki;
 us: array [1..30] of uslugi;
 kl: array [1..30] of klient;
 dog: array [1..30] of dogovor;
 n, n1, n2, n3: integer;
 i, i1, i2, i3: integer;
 zapros, zapros1: integer;
 zapros_fam: string;
 zapros_nom: integer;
 zapros_ad: string;
 p: integer;
 k: integer;
 w: string;
 ntv: integer;

procedure vvod;
begin
 writeln('Введите количество работников в фирме');
 readln(n);
 for i := 1 to n do
 begin
  write('Введите фамилию работника: ');
  readln(sot[i].fam);
  write('Введите имя работника: ');
  readln(sot[i].im);
  write('Введите отчество работника: ');
  readln(sot[i].ot);
  write('Введите адрес: ');
  readln(sot[i].ad);
  write('Введите дату рождения: ');
  readln(sot[i].dt_r);
  write('Введите должность: ');
  readln(sot[i].dol);
   end; end;

procedure vvod1;
begin
 writeln;
 writeln('Введите количество предоставляемых услуг: ');
 readln(n1);
 for i1 := 1 to n1 do
 begin
  write('Введите наименование услуги: ');
  readln(us[i].us_name);
  write('Введите цену за услугу: ');
  readln(us[i].us_price);
   end; end;

procedure vvod2;
begin
 writeln;
 writeln('Введите количество клиентов фирмы: ');
 readln(n2);
 for i2 := 1 to n2 do
 begin
  write('Введите фамилию: ');
  readln(kl[i].kl_fam);
  write('Введите имя: ');
  readln(kl[i].kl_im);
  write('Введите отчество: ');
  readln(kl[i].kl_ot);
  write('Введите адрес: ');
  readln(kl[i].kl_ad);
  write('Введите дату рождения: ');
  readln(kl[i].kl_dt);
   end; end;

procedure vvod3;
begin
 writeln;
 writeln('Введите количество договоров: ');
 readln(n3);
 for i3 := 1 to n3 do
 begin
  writeln('Ввод данных о договоре');
  write('Введите №');
  readln(dog[i].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: ');
  readln(dog[i].dog_sot);
  write('Введите данные о предоставляемой услуге: ');
  readln(dog[i].dog_us);
  write('Введите данные о клиенте: ');
  readln(dog[i].dog_kl);
   end; end;
begin
repeat
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('1 - По фамилии сотрудника вывести список дел');
 writeln('2 - По номеру договора определить услугу, предоставляемую клиенту');
 writeln('3 - Определить адрес по фамилии клиента');
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('Введите номер для выбора типа запроса');

 readln(zapros1);

   if zapros1 = 1 then begin {1 запрос начало}
   writeln('Введите фамилию работника');
  writeln;
  readln(zapros_fam);
    for i3 := 1 to n3 do
	    begin
		 if zapros_fam = dog[i].dog_sot then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_sot, ' ведет следующие дела: ');
		  writeln('Договор №:', dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
	 end; {1 запрос конец}
   if zapros1 = 2 then begin {2 запрос начало}
  writeln('Введите номер договора');
  writeln;
  readln(zapros_nom);
    for i3 := 1 to n3 do
	  begin
	    if zapros_nom = dog[i].dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us);
		  writeln('Клиенту: ',dog[i].dog_kl);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    end; {2 запрос конец}
   if zapros1 = 3 then begin {3 запрос начало}
  writeln('Введите номер договора');
  writeln;

    readln(zapros_ad);
    for i2 := 1 to n2 do
	  begin
		   if zapros_ad = kl[i].kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(kl[i].kl_fam,' проживает по адресу: ',kl[i].kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите номер договора');
    end; {3 запрос конец}


until zapros1=0;
 end.

посоны, сразу начинает прогу с запросов без ввода данных

фтв? :hmm:

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

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

AFI   

AFI

Ребята помогите плиз, нужно написать решить в паскале следующую задачку: "Преобразовать массив: в каждом столбце поменять местами максимальный и первый элементы" (Двумерные массивы.).

 

Заранее больше спасибо :)

2014832731.png

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

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

Hed-kun   

Hed-kun

гугл

в каждом столбце поменять местами максимальный и первый элементы

1ая ссылка http://www.cyberforum.ru/pascalabc/thread705968.html

не стыдно?

0BdKg2e.png

Скрытый текст

 

Цитата

посоны

я джуса забанил

мне пиздос?

Цитата

xHjcvkA.gif

 

 

 

 

 

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

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

Kant   

Kant

 

Курсач

program kursach;
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
 sot: array [1..30] of sotrudniki;
 us: array [1..30] of uslugi;
 kl: array [1..30] of klient;
 dog: array [1..30] of dogovor;
 n, n1, n2, n3: integer;
 i, i1, i2, i3: integer;
 zapros, zapros1: integer;
 zapros_fam: string;
 zapros_nom: integer;
 zapros_ad: string;
 p: integer;
 k: integer;
 w: string;
 ntv: integer;

procedure vvod;
begin
 writeln('Введите количество работников в фирме');
 readln(n);
 for i := 1 to n do
 begin
  write('Введите фамилию работника: ');
  readln(sot[i].fam);
  write('Введите имя работника: ');
  readln(sot[i].im);
  write('Введите отчество работника: ');
  readln(sot[i].ot);
  write('Введите адрес: ');
  readln(sot[i].ad);
  write('Введите дату рождения: ');
  readln(sot[i].dt_r);
  write('Введите должность: ');
  readln(sot[i].dol);
end; end;

procedure vvod1;
begin
 writeln;
 writeln('Введите количество предоставляемых услуг: ');
 readln(n1);
 for i1 := 1 to n1 do
 begin
  write('Введите наименование услуги: ');
  readln(us[i].us_name);
  write('Введите цену за услугу: ');
  readln(us[i].us_price);
end; end;

procedure vvod2;
begin
 writeln;
 writeln('Введите количество клиентов фирмы: ');
 readln(n2);
 for i2 := 1 to n2 do
 begin
  write('Введите фамилию: ');
  readln(kl[i].kl_fam);
  write('Введите имя: ');
  readln(kl[i].kl_im);
  write('Введите отчество: ');
  readln(kl[i].kl_ot);
  write('Введите адрес: ');
  readln(kl[i].kl_ad);
  write('Введите дату рождения: ');
  readln(kl[i].kl_dt);
end; end;

procedure vvod3;
begin
 writeln;
 writeln('Введите количество договоров: ');
 readln(n3);
 for i3 := 1 to n3 do
 begin
  writeln('Ввод данных о договоре');
  write('Введите №');
  readln(dog[i].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: ');
  readln(dog[i].dog_sot);
  write('Введите данные о предоставляемой услуге: ');
  readln(dog[i].dog_us);
  write('Введите данные о клиенте: ');
  readln(dog[i].dog_kl);
end; end;
begin
repeat
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('1 - По фамилии сотрудника вывести список дел');
 writeln('2 - По номеру договора определить услугу, предоставляемую клиенту');
 writeln('3 - Определить адрес по фамилии клиента');
 writeln(' - - - - - - - - - - - - - - - - - - - - - - - - - ');
 writeln('Введите номер для выбора типа запроса');

 readln(zapros1);

if zapros1 = 1 then begin {1 запрос начало}
   writeln('Введите фамилию работника');
  writeln;
  readln(zapros_fam);
	for i3 := 1 to n3 do
		begin
		 if zapros_fam = dog[i].dog_sot then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_sot, ' ведет следующие дела: ');
		  writeln('Договор №:', dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	 end; {1 запрос конец}
if zapros1 = 2 then begin {2 запрос начало}
  writeln('Введите номер договора');
  writeln;
  readln(zapros_nom);
	for i3 := 1 to n3 do
	  begin
		if zapros_nom = dog[i].dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us);
		  writeln('Клиенту: ',dog[i].dog_kl);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	end; {2 запрос конец}
if zapros1 = 3 then begin {3 запрос начало}
  writeln('Введите номер договора');
  writeln;

	readln(zapros_ad);
	for i2 := 1 to n2 do
	  begin
		   if zapros_ad = kl[i].kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(kl[i].kl_fam,' проживает по адресу: ',kl[i].kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		end;
		writeln;
	  end;
	writeln('Введите номер договора');
	end; {3 запрос конец}


until zapros1=0;
 end.

посоны, сразу начинает прогу с запросов без ввода данных

фтв? :hmm:

 

 

так и должно быть.

Все твои вводы данных засунуты в функции, а сама программа начинается лишь в

 

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

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

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

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

KotZhilkina   

KotZhilkina

заведите отдельный топик для паскаля

Публикация отключена

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

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

TheDeadSkin   

TheDeadSkin

курица не птица, паскальщина не програмица?

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

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

Ubububu   

Ubububu

Просто когда просят программу на паскале, надо делать эту программу на чём угодно, но не на паскале.

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

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

KotZhilkina   

KotZhilkina

Просто когда просят программу на паскале, надо делать эту программу на чём угодно, но не на паскале.

ПОТОМУ ЧТО Я УГОРЕЛ ПО VBA, ПАЦАНЫ ДУХ СТАРОЙ ШКОЛЫ ЖИВЁТ ТОЛЬКО В ACCESS, ГДЕ ЕБАШАТСЯ ПО ХАРДКОРУ, ГДЕ ПАЦАНЫ ЖИВУТ ФОРМАМИ, ОТЧЕТАМИ И ЕБУТ СИСТЕМУ В РОТ! ТОЛЬКО ACCESS VBA, ТОЛЬКО ХАРДКОР!!! MICROSOFT УЛЬТРАХАРДКОР ACCESS!!!

 

пацаны создавайте формы, запросы, таблицы, отчеты, угорайте на http://webcheatsheet.com/SQL/access_specification.php, любите свой Проект, модули и DoCmd! ГОВОРИТЕ ОТКРЫТО И СМЕЛО ПРЯМО В ЛИЦО! VBA!

Публикация отключена

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

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

justice_st   

justice_st

реквестую топег про цсс3, пхп и жквери (рабистам/бутстрапонистам вход воспрещен)

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

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

Гость 2poy_nyasha   

Гость 2poy_nyasha

бутстрап норм, не гони

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

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

TheDeadSkin   

TheDeadSkin

рабистов вообще не стоит пускать ни в один из топиков о программировании

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

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

justice_st   

justice_st

бутстрап норм, не гони

лучше самому это все освоить имхо, а не все готовое сразу :buba:

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

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