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

Нарисовать три блок-схемы для задач

21.01.2015, 17:07. Показов 641. Ответов 2
Метки нет (Все метки)

Пожалуйста нарисуйте блок-схемы для данных ниже задач. Учусь на заочном с программированием совсем не в ладах((( А сдать очень срочно нужно...

Задача №1
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var
 x,c:Real;
Begin
 Write('x = ');
 Readln(x);
 Write('c = ');
 Readln(c);
 if x<=0.2 then writeln('f = ',(Abs(x)+c*x-4):0:3)
 else writeln('f = ',(Sqr(Sin(x)-1)):0:3);
 Readln
End.
Задача №2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Var
 K,M,N:Word;
 A,B,P,P1:Real;
Begin
 Write('Количество коров: ');
 Readln(K);
 Write('Количество лошадей: ');
 Readln(M);
 Write('Норма кормления коровы: ');
 Readln(A);
 Write('Норма кормления лошади: ');
 Readln(B);
 Write('Количество дней: ');
 Readln(N);
 Write('Наличный запас сена: ');
 Readln(P);
 P1:=(1.0*A*K+1.0*B*M)*N;
 If (P-P1)<0 then writeln('Не хватает ',Trunc(P1-P)+1,' кг сена')
 else writeln('Сена хватит');
 Readln
End.
Задача №3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Var
 S,x:Real;
 i:Byte;
Begin
 Write('x = ');
 Readln(x);
 S:=0;
 For i:=3 to 20 do
  S:=S+Abs(x+1.0*i);
 Writeln('S = ',S:0:3);
 Readln
End.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2015, 17:07
Ответы с готовыми решениями:

Написать программы на языке Турбо Паскаль для решения предложенных ниже задач, а также изобразить Блок-схемы для каждой
Написать программы на языке Турбо Паскаль для решения предложенных ниже задач, а также изобразить...

Блок-схемы для 2-x задач
Первая задача: uses crt; const n=10; var a:array of integer; i,temp,j,k,otr:integer; ...

Блок схемы для 2ух простых задач
здравствуйте, помогите пожалуйста составить 2 блок схемы для кода. Посидел, посмотрел примеры, и...

Нужно нарисовать 2 блок-схемы(1 математическую,2 для написания самой программы)
#include &lt;iostream&gt; #include &lt;math.h&gt; using namespace std; //длина стороны АВ double...

2
охотник
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
21.01.2015, 19:20 2
...
Миниатюры
Нарисовать три блок-схемы для задач  
Изображения
  
2
0 / 0 / 0
Регистрация: 21.01.2015
Сообщений: 2
21.01.2015, 19:27  [ТС] 3
ОГРОМНОЕ Вам спасибо, Вы очень сильно мне помогли!!!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2015, 19:27

Нарисовать блок схемы
Завтра пойду в универ,нужно успеть нарисовать блок схемы к задачам! Буду очень сильно благодарен...

Нарисовать Блок схемы
№11. строки(как одномерные массивы) Дано символьную строку. Слово - последовательность символов...

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

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


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

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

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