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

блок-схема

18.12.2013, 13:03. Показов 423. Ответов 2
Метки нет (Все метки)

Ежегодный прирост рыбы в пруду составляет 15%. Запасы рыбы оценены в А тонн. Ежегодный план отлова В тонн. Подсчитать, сколько лет можно выдерживать заданный план?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
i:integer;
A,B,x:real;
begin
writeln('Введите запасы рыбы:'); readln(A);
writeln('Введите ежегодный план отлова:'); readln(B);
repeat
x:=A;
A:=(A*115)/100;
A:=A-B;
if x<A then begin
writeln('Выдерживать заданный план можно бесконечно.');
break;
end;
inc(i);
until A<=0;
if i>0 then writeln('Выдерживать заданный план можно: ',i);
end.
БЛОК-СХЕМА?
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.12.2013, 13:03
Ответы с готовыми решениями:

Блок-схема
Необходимо поменять местами главную и побочную диагонали в двумерном массиве, программу написал, но...

Блок-схема
Помогите, нужна блок схема этой программы Type Slowa=array of string; procedure InsertSort(var...

Блок-схема
Помогите построить блок-схему. uses crt; type docent=record fio, uchet, data:string;...

Блок-схема
Здраствуйте форумчане, помогите сделать блок-схему к этой программе, заранее благодарен! Program...

2
Супер-модератор
5883 / 2654 / 1298
Регистрация: 04.03.2013
Сообщений: 5,602
Записей в блоге: 1
18.12.2013, 14:09 2
...
1
Миниатюры
блок-схема  
0 / 0 / 0
Регистрация: 07.12.2013
Сообщений: 15
18.12.2013, 18:12  [ТС] 3
Спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2013, 18:12

Блок-схема
Помогите написать блок-схему. uses crt; var a:array of integer; n,z,x,i,j:integer; begin...

Блок-схема
Нужна помощь с построением блок-схемы. Помогите пожалуйста. Во вложениях задание. Задание:...

Блок-схема
Помогите составить блок-схему к этой программе

Блок-схема
var a,b,c,min,max:integer; begin writeln('Введите три числа:'); readln(a,b,c); max:=a; ...


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

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

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