Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Drendis
2 / 2 / 0
Регистрация: 18.05.2011
Сообщений: 31
1

Нужна блок-схема для этой задачи.

18.05.2011, 18:41. Просмотров 635. Ответов 1
Метки нет (Все метки)

Нужна блок-схема для этой задачи.
Pascal
1
2
3
4
5
6
7
8
9
var a,b,c:byte;
begin
  writeln('Введите a,b,c');
  readln(a,b,c);
  if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
  if b>c then begin b:=b+c; c:=b-c; b:=b-c;end;
  if a>b then begin a:=a+b; b:=a-b; a:=a-b;end;
  writeln('a=',a,' b=',b,' c=',c);
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2011, 18:41
Ответы с готовыми решениями:

Нужна блок схема к этой работе(не через программу)
uses crt; const n=5; var a:array of integer; i,j,max:integer; BEGIN clrscr; for i:=1 to n...

Начертите Укрупненная блок-схема для этой программы
Program 22; uses crt; const a = ; type masstr = array of string; var s,s1,sg: string; s2:...

Нужна блок схема для двумерного массива
program Project2; const k=10; {$APPTYPE CONSOLE} Var FlagCh, FlagKr, FlagM : Boolean; a:...

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

Блок-схема к этой задаче
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var i, minLen, B,A, c : integer; ...

1
den=
55 / 55 / 20
Регистрация: 07.02.2011
Сообщений: 159
20.05.2011, 00:34 2
Вот Схема
1
Вложения
Тип файла: pdf kkk.pas.pdf (100.3 Кб, 42 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.05.2011, 00:34

Нужна блок-схема
Вот программка, к ней нужна блок-схема. Помогите пожалуйста. uses crt; var a:array of...

Нужна блок-схема
procedure zadacha5; var f:file of real; n,i,k:integer; a,s:real; begin clrscr;...

Нужна блок-схема
program m1; var a:array of integer; i,j,max,min,s,n,m,i1,j1:integer; begin randomize;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.