Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.06.2014, 22:35   #1
snouwyt
Пользователь
 
Регистрация: 12.03.2014
Сообщений: 10
По умолчанию Нужны блок-схемы

Составьте пожалуйста 3 блок схемы
1)
Код:
var
   tek: pZaiaviteli;
begin
   while spisok <> nil do
   begin
      tek := spisok;
      spisok := spisok^.sled;
      dispose(tek);
   end;
end;

2)
Код:
var
   tek: pZaiaviteli;
begin
   writeln('Адрес: ',adres);
   writeln('Заявленное количество участников: ',kZaiav);
   if kPoFaktu = -1 then
      writeln('Количество участников по факту не известно')
   else
      writeln('Количество участников по факту: ',kPoFaktu);
   writeln('Проводится ',d,'.',m,'.',g,' v ',chas,':',min);
   writeln('Список заявителей: ');
   tek := spisok;
   while tek <> nil do
   begin
      writeln(tek^.f,' ',tek^.i,' ',tek^.o);
      tek := tek^.sled;
   end;
   if razreshen then
      writeln('Митинг разрешен')
   else
      writeln('Митинг не разрешен');
   writeln;
   readkey;
end;

3)
Код:
var
   i, j: integer;
begin
   repeat
      write('Nomer udaliaemogo mitinga: '); ReadPosInt(i);
   until i > 0;
   spisok[i]^.Destr;
   for j := i to n-1 do
      spisok[j] := spisok[j+1];
   dec(n);
end;
snouwyt вне форума Ответить с цитированием
Старый 29.06.2014, 22:59   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Это тебе поможет: http://paslab.ru/blok-shema.php
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужны схемы на материнку или блок питания для ноута hp pavilion g6 1129er василий 777 Компьютерное железо 0 12.05.2013 09:38
Нужны блок-схемы к програмкам (Pascal) spinogryz_ua Помощь студентам 3 20.01.2012 23:56
Нужны блок схемы по готовой программе. Profan4ik Помощь студентам 4 01.07.2010 09:00
Нужны блок схемы. Завтра экзамен. Xenon0001 Помощь студентам 2 17.06.2010 20:59
Зачем нужны блок-схемы? fs444 Общие вопросы по программированию, компьютерный форум 31 27.01.2010 04:11