Программирование Казика (pascal included)

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

  justice_st написал 17.05.2013 в 16:34:

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

на бейсике пиши, он под документооборот и делался как раз

Rab:

SozdatDokyment();

Kancelyariya:

Obrabotka_dokymenta();

Buhgalter:

Podpis(buh);

Direktor:

Podpis(dir);

GOTO Rab;

GOTO Kancelyariya;

GOTO Buhgalter;

GOTO Direktor;

Показать больше  

Спасибо! Я раньше что-то там прогал в VBA Excel.

А как присандалить OAuth 2? + Роли распределить для администрации?

[justice_st]

Изи ваще

10 CLS 'Очистка экрана

20 PRINT "Добро пожаловать!" 'Заголовок в первой строке

30 PRINT "Перед вами OAuth 2!"

40 PRINT "Пожалуйста, авторизируйтесь."

50 INPUT "Имя: ",N$ 60 INPUT "Фамилия: ",S$ 70 INPUT "Отчество: ",T$

 

80 IF N$="Админ" AND IF S$="Админович" AND T$="Админов" THEN GOTO 90 ELSE GOTO 130

90 PRINT "OAuth 2 passed!"

100 INPUT "Введите вашу роль",R$

110 IF R$="99" THEN GOTO 120

120 PRINT "God mode activated!"

130 PRINT "Hui tam!"

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

N$

[justice_st]

Ошибка 324 (net::ERR_EMPTY_RESPONSE): Сервер разорвал соединение, не отправив данные.

404

Данные не получены

Невозможно загрузить веб-страницу, так как не поступили данные от сервера.

500 Internal Server Error

504 Gateway Time-out

[TheDeadSkin]

  justice_st написал 17.05.2013 в 17:15:

Ошибка 324 (net::ERR_EMPTY_RESPONSE): Сервер разорвал соединение, не отправив данные.

404

Данные не получены

Невозможно загрузить веб-страницу, так как не поступили данные от сервера.

500 Internal Server Error

504 Gateway Time-out

это пд чтоли? я уже думал у меня интернет ёбнулся нахуй

[Kant]

  marko_o написал 17.05.2013 в 12:34:

  2poy_nyasha написал 17.05.2013 в 12:32:

  Kolya.Ebashu написал 17.05.2013 в 12:26:

что дальше по плану?массивы,строки?

Пишем свою ОС с блекджеком и казиками

 

  marko_o написал 17.05.2013 в 12:30:

  justice_st написал 17.05.2013 в 12:28:

ФУНКЦИИ И ПРОЦЕДУРЫ

а будут разбираться циклы со всякими условиями?

циклы уже были

на паскале можно создавать циклы, чтобы самому создавать шаг цикла?

паскаль умеет только to и downto

 

херачь через do..while и repeat..until

[Nekon]

  Vovchique написал 17.05.2013 в 16:32:

А зачем на нем писать, можете ответить ?

чтобы мамка за 5 похвалила

[Kazik9]

поцоны, почему 1 и 3 запросы не работают?

  Показать содержимое

program kursach;
uses
 crt;
type
 sotrudniki = record
   fam: string;
   im: string;
   ot: string;
   ad: string;
   dt_r: string;
   dol: string;
 end;
type
 uslugi = record
   us_name: string;
   us_price: integer;
 end;
type
 klient = record
   kl_fam: string;
   kl_im: string;
   kl_ot: string;
   kl_ad: string;
   kl_dt: string;
 end;
type
 dogovor = record
   dog_n: integer;
   dog_sot: sotrudniki;
   dog_us: uslugi;
   dog_kl: klient;
 end;
var
 dog: array [1..30] of dogovor;
 i, r, del: integer;
 zapros_fam: string;
 zapros_nom: integer;
 zapros_ad: string;
 bu: string;
 Fdog: file of dogovor;
 const
 n = 10;
procedure vvod;	 {ВВОД ДАННЫХ НАЧАЛО}
begin
assign(Fdog, 'dog.dat');
rewrite(Fdog);
 for i := 1 to n do
 begin
  write('Введите фамилию работника: ');   readln(dog[i].dog_sot.fam);
  write('Введите имя работника: ');	   readln(dog[i].dog_sot.im);
  write('Введите отчество работника: ');  readln(dog[i].dog_sot.ot);
  write('Введите адрес: ');			   readln(dog[i].dog_sot.ad);
  write('Введите дату рождения: ');	   readln(dog[i].dog_sot.dt_r);
  write('Введите должность: ');		   readln(dog[i].dog_sot.dol);
  write('Введите наименование услуги: '); readln(dog[i].dog_us.us_name);
  write('Введите цену за услугу: ');	  readln(dog[i].dog_us.us_price);
  write('Введите фамилию: ');			 readln(dog[i].dog_kl.kl_fam);
  write('Введите имя: ');				 readln(dog[i].dog_kl.kl_im);
  write('Введите отчество: ');		    readln(dog[i].dog_kl.kl_ot);
  write('Введите адрес: ');			   readln(dog[i].dog_kl.kl_ad);
  write('Введите дату рождения: ');	   readln(dog[i].dog_kl.kl_dt);
  write('Введите №');										  readln(dog[i].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: '); readln(dog[i].dog_sot.fam);
  write('Введите данные о предоставляемой услуге: ');		  readln(dog[i].dog_us.us_name);
  write('Введите данные о клиенте: ');						 readln(dog[i].dog_kl.kl_fam);
  write(Fdog, dog[i]);
  end;  end;    {ВВОД ДАННЫХ КОНЕЦ}
procedure vivod;	 {ВЫВОД ДАННЫХ НАЧАЛО}
begin i:=1; assign(Fdog, 'dog.dat'); reset(Fdog);
while not eof(Fdog) do begin
read(Fdog, dog[i]);
writeln ('№',i);
  writeln('Фамилия работника: ', dog[i].dog_sot.fam);
  writeln('Имя работника: ',	 dog[i].dog_sot.im);
  writeln('Введите отчество работника: ', dog[i].dog_sot.ot);
  writeln('Введите адрес: ', dog[i].dog_sot.ad);
  writeln('Введите дату рождения: ', dog[i].dog_sot.dt_r);
  writeln('Введите должность: ', dog[i].dog_sot.dol);
  writeln('Введите наименование услуги: ', dog[i].dog_us.us_name);
  writeln('Введите цену за услугу: ', dog[i].dog_us.us_price);
  writeln('Введите фамилию: ', dog[i].dog_kl.kl_fam);
  writeln('Введите имя: ', dog[i].dog_kl.kl_im);
  writeln('Введите отчество: ', dog[i].dog_kl.kl_ot);
  writeln('Введите адрес: ', dog[i].dog_kl.kl_ad);
  writeln('Введите дату рождения: ', dog[i].dog_kl.kl_dt);
  writeln('Введите №', dog[i].dog_n);
  writeln('Введите фамилию сотрудника, заключивщего договор: ', dog[i].dog_sot.fam);
  writeln('Введите данные о предоставляемой услуге: ',		  dog[i].dog_us.us_name);
  writeln('Введите данные о клиенте: ', dog[i].dog_kl.kl_fam);
  end;  end;    {ВЫВОД ДАННЫХ КОНЕЦ}

  procedure zap1;  {1 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
   writeln('Введите фамилию работника');
   writeln;
   readln(zapros_fam);
    for i := 1 to n do
	    begin
		 if zapros_fam = dog[i].dog_sot.fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_sot.fam, ' ведет следующие дела: ');
		  writeln('Договор №:', dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us.us_name);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;  end;  {1 запрос конец}

  procedure zap2;  {1 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
	 writeln('Введите номер договора');
	 writeln;
	 readln(zapros_nom);
	  for i := 1 to n do
		  begin
		  if zapros_nom = dog[i].dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us.us_name);
		  writeln('Клиенту: ',dog[i].dog_kl.kl_fam);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    end; {2 запрос конец}
  procedure zap3;  {3 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
		  writeln('Введите номер договора');
		  writeln;
		  readln(zapros_ad);
		  for i := 1 to n do
		  begin
		   if zapros_ad = dog[i].dog_kl.kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_kl.kl_fam,' проживает по адресу: ',dog[i].dog_kl.kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите номер договора');
    end; {3 запрос конец}
procedure delete;   {Удаление начало}
begin
 assign(Fdog, 'dog.dat'); reset(Fdog);
 writeln('Введите запись которую хотите удалить');
 readln(del);
 if (filesize(Fdog) < del or (del))  then begin
   writeln('В файле нет такой записи');
   close(Fdog); exit; end;
 seek(Fdog, del - 1);
 for i := del - 1 to filesize(Fdog) - 2 do
 begin
   seek(Fdog, i + 1);
   read(Fdog, dog[i]);
   seek(Fdog, i); write(Fdog, dog[i]);
 end; seek(Fdog, filesize(Fdog) - 1);
 truncate(Fdog); close(Fdog);
 write('press enter');
 readln; end;    {Удаление конец}


begin begin
writeln('меню');
writeln ('введите n выполняемых процедур');
writeln ('1-процедура ввода');
writeln ('2-процедура выводa');
writeln ('3-запрос "По фамилии сотрудника вывести список дел"');
writeln ('4-запрос "По номеру договора определить услугу, предоставляемую клиенту"');
writeln ('5-запрос "Определить адрес по фамилии клиента"');
writeln ('6-процедура удаления');
repeat writeln('введите номер процедуры');
readln®;
case r of
1:vvod;
2:vivod;
3:zap1;
4:zap2;
5:zap3;
6:delete;
end;
writeln('желаете продолжить? для закрытия программы введите нет');
readln(bu); until(bu='нет');  readln;  end;
end.

 

 

 

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

[AucT]

  Ramil написал 17.05.2013 в 12:32:

ващето паскаль слизан с c#

паскаль сделали задолго до вашего шарпа

[Kolya.Ebashu]

  AucT написал 18.05.2013 в 05:33:

  Ramil написал 17.05.2013 в 12:32:

ващето паскаль слизан с c#

паскаль сделали задолго до вашего шарпа

затрален

[TheDeadSkin]

  AucT написал 18.05.2013 в 05:33:

  Ramil написал 17.05.2013 в 12:32:

ващето паскаль слизан с c#

паскаль сделали задолго до вашего шарпа

поздравляю - ты не смог в суть этого топика

[KotZhilkina]

  justice_st написал 17.05.2013 в 16:34:

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

на бейсике пиши, он под документооборот и делался как раз

Rab:

SozdatDokyment();

Kancelyariya:

Obrabotka_dokymenta();

Buhgalter:

Podpis(buh);

Direktor:

Podpis(dir);

GOTO Rab;

GOTO Kancelyariya;

GOTO Buhgalter;

GOTO Direktor;

Показать больше  

вообще-то нужно так:

 

Option Explicit

Private Sub Rab()

Call SozdatDokyment

End Sub

Private Sub Kancelyariya()

Call Obrabotka_dokymenta

End Sub

Private Sub Buhgalter():

Call Podpis(buh)

End Sub

Private Sub Direktor()

Call Podpis(Dir)

End Sub

Public Sub dokumentooborot()

 

Call Rab

Call Kancelyariya

Call Buhgalter

Call Direktor

 

End Sub

 

  justice_st написал 17.05.2013 в 16:56:

Изи ваще

10 CLS 'Очистка экрана

20 PRINT "Добро пожаловать!" 'Заголовок в первой строке

30 PRINT "Перед вами OAuth 2!"

40 PRINT "Пожалуйста, авторизируйтесь."

50 INPUT "Имя: ",N$ 60 INPUT "Фамилия: ",S$ 70 INPUT "Отчество: ",T$

 

80 IF N$="Админ" AND IF S$="Админович" AND T$="Админов" THEN GOTO 90 ELSE GOTO 130

90 PRINT "OAuth 2 passed!"

100 INPUT "Введите вашу роль",R$

110 IF R$="99" THENGOTO120

120 PRINT "God mode activated!"

130 PRINT "Hui tam!"

Показать больше  

у тебя ошибка - строки с 120 по 130 всегда будут выполняться после аутентификации OAuth 2

 

  Обязательное_поле написал 17.05.2013 в 16:36:

  justice_st написал 17.05.2013 в 16:34:

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

  Обязательное_поле написал 17.05.2013 в 16:30:

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

Сегодня тех задание прислали.

Какие подводные камни?

на бейсике пиши, он под документооборот и делался как раз

Rab:

SozdatDokyment();

Kancelyariya:

Obrabotka_dokymenta();

Buhgalter:

Podpis(buh);

Direktor:

Podpis(dir);

GOTO Rab;

GOTO Kancelyariya;

GOTO Buhgalter;

GOTO Direktor;

Спасибо! Я раньше что-то там прогал в VBA Excel.

А как присандалить OAuth 2? + Роли распределить для администрации?

естественно, через CreateObject("MSXML2.XMLHTTP")

 

http://www.twopblog.com/2010/09/using-excel-as-twitter-client-with.html

[Kazik9]

2пой, мне нужна твоя помощь!!!!

[iMbanana]

как понять, что ты знаешь язык?

[TheDeadSkin]

когда на стаковерфлоу ты способен ответить на хотя б половину вопросов из категории этого языка

 

но это чисто на уровне догадки

[Kant]

  iMbanana написал 18.05.2013 в 13:00:

как понять, что ты знаешь язык?

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

[Kazik9]

  iMbanana написал 18.05.2013 в 13:00:

как понять, что ты знаешь язык?

ну я знаю немного, раз написал

  Показать содержимое

program kursach;
uses
 crt;
type
 sotrudniki = record
   fam: string;
   im: string;
   ot: string;
   ad: string;
   dt_r: string;
   dol: string;
 end;
type
 uslugi = record
   us_name: string;
   us_price: integer;
 end;
type
 klient = record
   kl_fam: string;
   kl_im: string;
   kl_ot: string;
   kl_ad: string;
   kl_dt: string;
 end;
type
 dogovor = record
   dog_n: integer;
   dog_sot: sotrudniki;
   dog_us: uslugi;
   dog_kl: klient;
 end;
var
 dog: array [1..30] of dogovor;
 i, r, del: integer;
 zapros_fam: string;
 zapros_nom: integer;
 zapros_ad: string;
 bu: string;
 Fdog: file of dogovor;
 const
 n = 2;
procedure vvod;	 {ВВОД ДАННЫХ НАЧАЛО}
begin
assign(Fdog, 'dog.dat');
rewrite(Fdog);
 for i := 1 to n do
 begin
  write('Введите фамилию работника: ');   readln(dog[i].dog_sot.fam);
  write('Введите имя работника: ');	   readln(dog[i].dog_sot.im);
  write('Введите отчество работника: ');  readln(dog[i].dog_sot.ot);
  write('Введите адрес: ');			   readln(dog[i].dog_sot.ad);
  write('Введите дату рождения: ');	   readln(dog[i].dog_sot.dt_r);
  write('Введите должность: ');		   readln(dog[i].dog_sot.dol);
  write('Введите наименование услуги: '); readln(dog[i].dog_us.us_name);
  write('Введите цену за услугу: ');	  readln(dog[i].dog_us.us_price);
  write('Введите фамилию: ');			 readln(dog[i].dog_kl.kl_fam);
  write('Введите имя: ');				 readln(dog[i].dog_kl.kl_im);
  write('Введите отчество: ');		    readln(dog[i].dog_kl.kl_ot);
  write('Введите адрес: ');			   readln(dog[i].dog_kl.kl_ad);
  write('Введите дату рождения: ');	   readln(dog[i].dog_kl.kl_dt);
  write('Введите №');										  readln(dog[i].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: '); readln(dog[i].dog_sot.fam);
  write('Введите данные о предоставляемой услуге: ');		  readln(dog[i].dog_us.us_name);
  write('Введите данные о клиенте: ');						 readln(dog[i].dog_kl.kl_fam);
  write(Fdog, dog[i]);
  end;  end;    {ВВОД ДАННЫХ КОНЕЦ}

procedure vivod;	 {ВЫВОД ДАННЫХ НАЧАЛО}
begin i:=1; assign(Fdog, 'dog.dat'); reset(Fdog);
while not eof(Fdog) do begin
read(Fdog, dog[i]);
writeln ('№',i);
  writeln('Фамилия работника: ', dog[i].dog_sot.fam);
  writeln('Имя работника: ',	 dog[i].dog_sot.im);
  writeln('Введите отчество работника: ', dog[i].dog_sot.ot);
  writeln('Введите адрес: ', dog[i].dog_sot.ad);
  writeln('Введите дату рождения: ', dog[i].dog_sot.dt_r);
  writeln('Введите должность: ', dog[i].dog_sot.dol);
  writeln('Введите наименование услуги: ', dog[i].dog_us.us_name);
  writeln('Введите цену за услугу: ', dog[i].dog_us.us_price);
  writeln('Введите фамилию: ', dog[i].dog_kl.kl_fam);
  writeln('Введите имя: ', dog[i].dog_kl.kl_im);
  writeln('Введите отчество: ', dog[i].dog_kl.kl_ot);
  writeln('Введите адрес: ', dog[i].dog_kl.kl_ad);
  writeln('Введите дату рождения: ', dog[i].dog_kl.kl_dt);
  writeln('Введите №', dog[i].dog_n);
  writeln('Введите фамилию сотрудника, заключивщего договор: ', dog[i].dog_sot.fam);
  writeln('Введите данные о предоставляемой услуге: ',		  dog[i].dog_us.us_name);
  writeln('Введите данные о клиенте: ', dog[i].dog_kl.kl_fam);
  end;  end;    {ВЫВОД ДАННЫХ КОНЕЦ}


  procedure zap1;  {1 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
   writeln('Введите фамилию работника');
   writeln;
   readln(zapros_fam);
    for i := 1 to n do
	    begin
		 if zapros_fam = dog[i].dog_sot.fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_sot.fam, ' ведет следующие дела: ');
		  writeln('Договор №:', dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us.us_name);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end; end;  {1 запрос конец}

  procedure zap2;  {2 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
	 writeln('Введите номер договора');
	 writeln;
	 readln(zapros_nom);
	  for i := 1 to n do
		  begin
		  if zapros_nom = dog[i].dog_n then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln('Договор №',dog[i].dog_n);
		  writeln('Предоставляемая услуга: ', dog[i].dog_us.us_name);
		  writeln('Клиенту: ',dog[i].dog_kl.kl_fam);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    end; {2 запрос конец}

  procedure zap3;  {3 запрос начало}
  begin reset(Fdog);
  while not eof(Fdog) do begin
  read(Fdog, dog[i]); end;
		  writeln('Введите номер договора');
		  writeln;
		  readln(zapros_ad);
		  for i := 1 to n do
		  begin
		   if zapros_ad = dog[i].dog_kl.kl_fam then begin
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
		  writeln(dog[i].dog_kl.kl_fam,' проживает по адресу: ',dog[i].dog_kl.kl_ad);
		  writeln('- - - - - - - - - - - - - - - - - - - - - ');
	    end;
	    writeln;
	  end;
    writeln('Введите номер договора');
    end; {3 запрос конец}
procedure delete;   {Удаление начало}
begin
 assign(Fdog, 'dog.dat'); reset(Fdog);
 writeln('Введите запись которую хотите удалить');
 readln(del);
 if (filesize(Fdog) < del or (del))  then begin
   writeln('В файле нет такой записи');
   close(Fdog); exit; end;
 seek(Fdog, del - 1);
 for i := del - 1 to filesize(Fdog) - 2 do
 begin
   seek(Fdog, i + 1);
   read(Fdog, dog[i]);
   seek(Fdog, i); write(Fdog, dog[i]);
 end; seek(Fdog, filesize(Fdog) - 1);
 truncate(Fdog); close(Fdog);
 write('press enter');
 readln; end;    {Удаление конец}

procedure add; {ДОБАВЛЕНИЕ ДАННЫХ начало}
begin
 assign(Fdog, 'dog.dat');
 reset(Fdog);
 seek(Fdog, filesize(Fdog));
  write('Введите фамилию работника: ');   readln(dog[n+1].dog_sot.fam);
  write('Введите имя работника: ');	   readln(dog[n+1].dog_sot.im);
  write('Введите отчество работника: ');  readln(dog[n+1].dog_sot.ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_sot.ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_sot.dt_r);
  write('Введите должность: ');		   readln(dog[n+1].dog_sot.dol);
  write('Введите наименование услуги: '); readln(dog[n+1].dog_us.us_name);
  write('Введите цену за услугу: ');	  readln(dog[n+1].dog_us.us_price);
  write('Введите фамилию: ');			 readln(dog[n+1].dog_kl.kl_fam);
  write('Введите имя: ');				 readln(dog[n+1].dog_kl.kl_im);
  write('Введите отчество: ');		    readln(dog[n+1].dog_kl.kl_ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_kl.kl_ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_kl.kl_dt);
  write('Введите №');										  readln(dog[n+1].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: '); readln(dog[n+1].dog_sot.fam);
  write('Введите данные о предоставляемой услуге: ');		  readln(dog[n+1].dog_us.us_name);
  write('Введите данные о клиенте: ');						 readln(dog[n+1].dog_kl.kl_fam);
  end;	  {ДОБАВЛЕНИЕ ДАННЫХ КОНЕЦ}

  procedure re; {редактирование ДАННЫХ начало}
  begin
  assign(Fdog, 'dog.dat');
  reset(Fdog);
  writeln('Введите редактируемый элемент');
  readln(i);
  write('Введите фамилию работника: ');   readln(dog[n+1].dog_sot.fam);
  write('Введите имя работника: ');	   readln(dog[n+1].dog_sot.im);
  write('Введите отчество работника: ');  readln(dog[n+1].dog_sot.ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_sot.ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_sot.dt_r);
  write('Введите должность: ');		   readln(dog[n+1].dog_sot.dol);
  write('Введите наименование услуги: '); readln(dog[n+1].dog_us.us_name);
  write('Введите цену за услугу: ');	  readln(dog[n+1].dog_us.us_price);
  write('Введите фамилию: ');			 readln(dog[n+1].dog_kl.kl_fam);
  write('Введите имя: ');				 readln(dog[n+1].dog_kl.kl_im);
  write('Введите отчество: ');		    readln(dog[n+1].dog_kl.kl_ot);
  write('Введите адрес: ');			   readln(dog[n+1].dog_kl.kl_ad);
  write('Введите дату рождения: ');	   readln(dog[n+1].dog_kl.kl_dt);
  write('Введите №');										  readln(dog[n+1].dog_n);
  write('Введите фамилию сотрудника, заключивщего договор: '); readln(dog[n+1].dog_sot.fam);
  write('Введите данные о предоставляемой услуге: ');		  readln(dog[n+1].dog_us.us_name);
  write('Введите данные о клиенте: ');						 readln(dog[n+1].dog_kl.kl_fam);
  write(Fdog, dog[n + 1]);
  end;	  {редактирование ДАННЫХ КОНЕЦ}



begin begin
writeln('меню');
writeln ('1-процедура ввода');
writeln ('2-процедура выводa');
writeln ('3-запрос "По фамилии сотрудника вывести список дел"');
writeln ('4-запрос "По номеру договора определить услугу, предоставляемую клиенту"');
writeln ('5-запрос "Определить адрес по фамилии клиента"');
writeln ('6-процедура удаления');
writeln ('7-процедура добавления');
writeln ('8-процедура редактирования');
repeat writeln('введите номер процедуры');
readln(r);
case r of
1:vvod;
2:vivod;
3:zap1;
4:zap2;
5:zap3;
6:delete;
7:add;
8:re;
end;
writeln('желаете продолжить? для закрытия программы введите нет');
readln(bu); until(bu='нет');  readln;  end;
end.

 

[iMbanana]

стоит ли начинать изучение нового языка, если я местами знаю паскаль

ну на полном школьном уровне. если да, то какой?

[Kant]

С\С#\java

 

паскаль мертв

[iMbanana]

но стоит ли? ща егэшку оформлю по информатике и приступлю