Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
ИраSunny
0 / 0 / 0
Регистрация: 27.08.2010
Сообщений: 16
1

Нужно нарисовать блок-схему !!

30.08.2010, 23:37. Просмотров 702. Ответов 3
Метки нет (Все метки)

1.Опредилить сколько положительных,отрицательных и нулей, среди двох чисел, которые произвольно задаются.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var a,b:real;
    p,o,n:byte;
begin
writeln('Введите 2 числа:');
readln(a,b);
p:=ord(a>0)+ord(b>0);{ord(true)=1, ord(false)=0}
o:=ord(a<0)+ord(b<0);
n:=2-p-o;
write('Положительных=',p,'  отрицательных=',o,' нолей=',n);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.08.2010, 23:37
Ответы с готовыми решениями:

Какую блок схему нужно нарисовать к этой программе?
//Ребус #include&lt;conio.h&gt; #include&lt;iostream.h&gt; void main() { int i,j,r; long int...

Нарисовать блок-схему
Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного...

нарисовать блок схему
нарисовать... блок схему!!!! const WG=100; type tmasi=array of integer; var n,i,j:byte;...

Нарисовать блок-схему
Найти среднее арифм. наименьших по абсолютной величине элементов каждой строки матрицы FM(m,m),...

Нарисовать блок-схему
uses crt; const n=8; var a,b:array of integer; i,sum,k:integer; sr:real; begin ...

3
SherKhan
1 / 1 / 0
Регистрация: 24.12.2009
Сообщений: 5
30.08.2010, 23:49 2
Для составления блок-схем есть прога FCEditor (например, версии 1.6). Может уже новее есть. Делает для Pascal-я и Cpp
0
Вложения
Тип файла: rar FCEditor1_6.rar (539.0 Кб, 23 просмотров)
SherKhan
1 / 1 / 0
Регистрация: 24.12.2009
Сообщений: 5
30.08.2010, 23:59 3
Вот блок-схема
1
Миниатюры
Нужно нарисовать блок-схему !!  
ИраSunny
0 / 0 / 0
Регистрация: 27.08.2010
Сообщений: 16
31.08.2010, 00:35  [ТС] 4
Спасибо большое!!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.08.2010, 00:35

Нарисовать блок-схему
Помогите нарисовать блок-схему к прогам: 1.Умножить матрицу А с розмерностью mxn на матрицу В с...

нарисовать блок схему
помагите нарисовать блок схему, вот этой программа(процедура,основа и меню, отдельна пишится в блок...

Нарисовать блок-схему.
Помогите, пожалуйста нарисовать блок-схемы. uses crt; var x,y,z,x1,x2,mx,mn,sr,c: real;...


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

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

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