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

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

30.08.2010, 23:37. Просмотров 697. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Нужно нарисовать блок-схему !! (Pascal):

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

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

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

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

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

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

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
Привет! Вот еще темы с решениями:

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

Нарисовать блок-схему.
Помогите, пожалуйста нарисовать блок-схемы. uses crt; var...

нарисовать блок-схему к задаче
Прошу нарисуйте блок схему к задаче. Сам не в силах справиться :help: условие...

Помогите нарисовать блок схему
Помогите нарисовать блок схему к программе или хотябе напишите в каких ячейках...


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

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

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