| ← Июнь 2012 → | ||||||
|
1
|
2
|
3
|
||||
|---|---|---|---|---|---|---|
|
4
|
5
|
6
|
7
|
8
|
9
|
10
|
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
21
|
22
|
23
|
24
|
|
|
25
|
26
|
27
|
28
|
29
|
30
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
Хостинг портала RFpro.ru: РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 109997: Здраствуйте. Помогите написать программу. Составить программу, которая создаёт типизированный файл, значения компонент вводятся с клавиатуры, имя файла также вводится с клавиатуры.... Консультация # 132176: помогите пожалуйста доделать задачу. дан файл содержащий различные даты, каждая дата это число, месяц и год. найти а) весенние даты-эту я уже сделал, можно по ней найти б) б)самую позднюю дату... Консультация # 183077: Здравствуйте! У меня возникли сложности с таким вопросом: Сапожников, Токарев, Музыкантов, Кузнецов Их фамилии не соответствуют профессиям. Фамилия сапожника не соответствует профессии Музыкантова Фамилия токаря не Кузнецов и она не соответствует профессии Токарев у кого какая профессия. Заранее спасибо)... Здраствуйте. Помогите написать программу. Составить программу, которая создаёт типизированный файл, значения компонент вводятся с клавиатуры, имя файла также вводится с клавиатуры.
Дата отправки: 18.11.2007, 15:41 Консультирует Зенченко Константин Николаевич (Модератор): Здравствуйте, Pavl! Приложение:
помогите пожалуйста доделать задачу. дан файл содержащий различные даты, каждая дата это число, месяц и год.
Дата отправки: 14.04.2008, 17:38 Консультирует Пупорев Юрий Борисович (Профессионал): Здравствуйте, Ильин Дмитрий! Приложение:
Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 06.05.2011, 17:54 Консультирует Сергей Бендер (Профессионал): Здравствуйте, JohnyWayne! Код :
const famlist:array[1..4] of string=('Сапожников',
'Токарев',
'Музыкантов',
'Кузнецов');
proflist:array[1..4] of string=('сапожник',
'токарь',
'музыкант',
'кузнец');
var fams:array[1..4] of integer; {Распределение фамилия по профессииям}
fam_busy:array[1..4] of boolean; {Занята ли фамилия}
i:1..4;
begin
{Очищаем массивы}
for i:=1 to 4 do
begin
fams[i]:=0;
fam_busy[i]:=false;
end;
{Перебираем фамилии сапожника, начиная с Токарев (Сапожников пропускаем)}
fams[1]:=2;
while fams[1]<= 4 do
begin
{Помечаем выбранную фамилию, как занятую}
fam_busy[fams[1]]:=true;
{Перебираем фамилии токаря}
fams[2]:=1;
while fams[2]<=4 do
begin
{Если выбранная фамилия не занята и не совпадает с профессией
и не Кузнецов}
if not fam_busy[fams[2]] and (fams[2]<>2) and (fams[2]<>4)
then begin
{Помечаем выбранную фамилию, как занятую}
fam_busy[fams[2]]:=true;
{Перебираем фамилии музыканта}
fams[3]:=1;
while fams[3]<= 4 do
begin
{Если выбранная фамилия не занята
и не совпадает с профессией}
if not fam_busy[fams[3]] and (fams[3]<>3) then
begin
{Помечаем выбранную фамилию, как занятую}
fam_busy[fams[3]]:=true;
{Перебираем фамилии кузнеца}
fams[4]:=1;
while fams[4]<=3 do
begin
{Если выбранная фамилия не занята}
if not fam_busy[fams[4]]
{фамилия сапожника не соответствует
профессии Музыкантова}
and (fams[fams[1]]<>3)
{фамилия токаря не соответствует
профессии Токарева}
and (fams[fams[2]]<>2)
then begin
{Выводим соответствия профессий и фамилий}
for i:=1 to 4 do writeln(proflist[i],' - ',famlist[fams[i]]);
writeln('---');
end;
{Следующая фамилия}
fams[4]:=fams[4]+1;
end;
{Освобождаем рассмотренную фамилию}
fam_busy[fams[3]]:=false;
end;
{Следующая фамилия}
fams[3]:=fams[3]+1
end;
{Освобождаем рассмотренную фамилию}
fam_busy[fams[2]]:=false;
end;
{Следующая фамилия}
fams[2]:=fams[2]+1;
end;
{Освобождаем рассмотренную фамилию}
fam_busy[fams[1]]:=false;
{Следующая фамилия}
fams[1]:=fams[1]+1;
end;
readln;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про" Калашников О.А. | Гладенюк А.Г. Хостинг: Версия системы: 2011.6.36 от 26.01.2012 |
| В избранное | ||
