0 / 0 / 0
Регистрация: 20.10.2012
Сообщений: 9
1

Блок-схема для одномерного массива

30.10.2012, 22:12. Показов 1458. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите с Блок-схемой пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
Const R:array[1..8] of real=(4.3,-8.1,2.4,-0.1,7.5,-1.1,-2.3,4.5);
Var  i:integer;
     p:real;
Begin
    p:=1;
    For i:=1 to 8 do
     if (-1<Power(i,R[i]))and(Power(i,R[i])<3) then p:=p*R[i];
    writeln('Множина',p:0:2);
End.
 Комментарий модератора 
Используйте теги подсветки кода.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.10.2012, 22:12
Ответы с готовыми решениями:

Блок-схема для двумерного массива
Помогите с Блок-схемой пожалуйста const n=3; m=4; a: array of real =(( 1, -3, 5, ...

Блок схема для двухмерного массива с подпрограммой
Помогите с блок схемой Program tk7; var O,J:integer; procedure asd(x:integer; var n:integer);...

Блок схема для двух мерного массива
Помогите с блок схемой Program lab6; const n=5; var i,j:byte; a:array of byte; begin for...

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

1
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
30.10.2012, 23:52 2
Название: New_FlowChart_1_Part_0.gif
Просмотров: 146

Размер: 3.1 Кб
0
30.10.2012, 23:52
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.10.2012, 23:52
Помогаю со студенческими работами здесь

блок-схема для двумерного массива( по сделанной программе)
составьте пожалуйста блок-схему uses crt; var gryz: array of real; m,n,i,k,x,y:byte; ...

Блок схема для Pascal программы определения вхождения одного массива в другой
Блок схему нужна для курсача( :cry: program aa; const p=20; m=5; var a:array of integer;...

Блок-схема одномерного массива
Сделайте блок схему по проге, пожалуйста program massiv1; uses crt; var M:array of integer;...

Блок схема одномерного масива
var arr: array of real; i,k: byte; begin writeln('Массив:'); for i:=1 to 9 do begin...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru