Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 07.10.2008, 21:01   #11
SViRT
Заблокирован
 
Регистрация: 06.10.2008
Сообщений: 18
Репутация: 6
По умолчанию

я это и собираюсь сделать,но не могли бы вы(пока я ещё ничего не выучил,а здавать надо)решить 2 задачу и построить блок-схемы к обеим,пожалуйста,очень прошу! =(
SViRT вне форума   Ответить с цитированием
Старый 07.10.2008, 21:08   #12
-=<[Evklidd]>=-
ФорумчанинФорумчанин
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Адрес: В далёкой далёкой галактике
Сообщений: 161
Репутация: 75

icq: 472185524
По умолчанию

Решить - решу, но вот блок-схемы сделать просто не успею, сам просто делами завален. Советую вам за блок-схемами к Puporev'у обратиться (в личку), он хорошо схемы рисует, я думаю он вам поможет
-=<[Evklidd]>=- вне форума   Ответить с цитированием
Старый 07.10.2008, 21:11   #13
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Я схемы рисую, когда задачи сам решаю, по чужим кодам только в FCEditor. Если устроит, пожалуйста, но они не соответствуют ГОСТу.
puporev вне форума   Ответить с цитированием
Старый 07.10.2008, 21:19   #14
SViRT
Заблокирован
 
Регистрация: 06.10.2008
Сообщений: 18
Репутация: 6
По умолчанию

да мне ненадо по госту и по простому сойдёт,а ко второй задаче пожалуйста решите и если не сложно тоже блок-схемку =)
SViRT вне форума   Ответить с цитированием
Старый 07.10.2008, 21:35   #15
puporev
Профессионал
 
Регистрация: 13.10.2007
Сообщений: 2,739
Репутация: 965
По умолчанию

Держи программы и блок-схемы, только программы мои.
Вложения
Тип файла: rar Задачи 1,2.rar (7.4 Кб, 9 просмотров)
puporev вне форума   Ответить с цитированием
Старый 07.10.2008, 21:57   #16
-=<[Evklidd]>=-
ФорумчанинФорумчанин
 
Аватар для -=<[Evklidd]>=-
 
Регистрация: 22.01.2008
Адрес: В далёкой далёкой галактике
Сообщений: 161
Репутация: 75

icq: 472185524
По умолчанию

Вот мой вариант решения второй задачи:
Код:
program pro31;
uses
 Crt;
type
 stolb = array [1..4] of byte;
 matrica = array [1..6] of stolb;
var
 matr: matrica;
 i, j: byte;
procedure Sort(Var h_stolb:stolb);
var
 x,k,l: byte;
begin
 for k:= 1 to 3 do
  for l:= 1 to 4-k do
   if h_stolb[l] < h_stolb[l+1] then
    begin
     x:= h_stolb[l];
     h_stolb[l]:= h_stolb[l+1];
     h_stolb[l+1]:= x;
    end;
end;
procedure Print(Const h_matr:matrica);
begin
 for j:= 1 to 4 do
  begin
   for i:= 1 to 6 do
    write(h_matr[i,j],' ');
   writeln('');
  end;
end;
begin
 ClrScr;
 Randomize;
 for j:= 1 to 6 do
  for i:= 1 to 4 do
   matr[j,i]:= random(10);
 Print(matr);
 readln;
 for i:= 1 to 6 do
  Sort(matr[i]);
 writeln('Matrica s uporiado4ennumi stolbcami: ');
 writeln('');
 Print(matr);
 readln;
end.
-=<[Evklidd]>=- вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста при написании графических часов на С Black_Ak24 Общие вопросы C/C++ 7 12.06.2008 10:24
Помогите при написании WebBrowser kuzmich Компоненты Delphi 17 15.12.2007 19:58
помогите в написании одной програмки Илюха Общие вопросы Delphi 17 12.10.2007 07:55
помогите в написании игры steck Gamedev - cоздание игр: Unity, OpenGL, DirectX 7 29.04.2007 07:50


07:10.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.