Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
ИраSunny
0 / 0 / 0
Регистрация: 27.08.2010
Сообщений: 16
#1

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

30.08.2010, 23:37. Просмотров 677. Ответов 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):

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

нарисовать блок схему - Pascal
нарисовать... блок схему!!!! const WG=100; type tmasi=array of integer; var n,i,j:byte; mas:tmasi; (*процедура ввода*) procedure...

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

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

нарисовать блок схему - Pascal
помагите нарисовать блок схему, вот этой программа(процедура,основа и меню, отдельна пишится в блок схемах) ---------&gt; Program fgyr; ...

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

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
31.08.2010, 00:35
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.08.2010, 00:35
Привет! Вот еще темы с ответами:

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

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

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

Файлы. Нарисовать блок-схему - Pascal
Есть код программы кто-нибудь сможет начертить блок-схему? Очень выручите const n=5; m=6; var f:text; massivnm:array...


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

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

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