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

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

Гость 2poy_nyasha

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

Автор: Гость 2poy_nyasha, в Мастерская

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

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

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

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

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

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

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

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

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

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

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   

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!"

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

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

justice_st   

justice_st

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

404

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

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

500 Internal Server Error

504 Gateway Time-out

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

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

TheDeadSkin   

TheDeadSkin

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

404

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

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

500 Internal Server Error

504 Gateway Time-out

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

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

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

Kant   

Kant

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

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

 

ФУНКЦИИ И ПРОЦЕДУРЫ :fffuuu::trollface::pray:

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

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

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

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

 

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

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

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

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

Nekon   

Nekon

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

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

ea9cfc2a8fd28fed94eac49d3e83bf58.gif

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

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

Kazik9   

Kazik9
(изменено)

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

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.

 

 

 


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

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

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

Kolya.Ebashu   

Kolya.Ebashu

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

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

затрален :trollface:

 

 

trollgentleman.gif

131c75b37c8e.gifnukanuka.gifyep.gif

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

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

TheDeadSkin   

TheDeadSkin

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

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

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

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

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

KotZhilkina   

KotZhilkina

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

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

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

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

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

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

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

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

 

Изи ваще

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

 

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

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

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

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

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

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

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

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   

Kazik9

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

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

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

iMbanana   

iMbanana

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

[14:22:31] Сиэль: oh uj eti imbanani

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

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

TheDeadSkin   

TheDeadSkin

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

 

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

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

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

Kant   

Kant

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

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

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

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

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

Kazik9   

Kazik9

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

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

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   

iMbanana

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

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

[14:22:31] Сиэль: oh uj eti imbanani

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

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

Kant   

Kant

С\С#\java

 

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

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

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

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

iMbanana   

iMbanana

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

[14:22:31] Сиэль: oh uj eti imbanani

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

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

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Восстановить форматирование

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

Загрузка...
×
Перейти к списку тем
×
×
  • Создать...