Разработать блок-схему - Паскаль, Turbo Pascal, PascalABC.NET

Shouldercannon · 12.10.2013, 18:23

Помогите, пожалуйста, сделать следующую лабораторку.
Рассмотрю все варианты

GetMax · 12.10.2013, 20:13

Код:

Begin
    ....
    if (a < x) and (x < b) then z := cos(x)
    else
    if (x <= a) then z := exp(x / 10)
    else
    if (x >= b) then z := exp(-b * ln(5));

    Writeln(z :6:4);
    if (m = 1) or (m = 9) then y := 1 * 1
    else
    if (m <> 0) and (m <> 1) and (m <>9) then y := 1 - m
    else
    if (m = 0) then y := 2*a;

    Writeln(y:6:4);
End;

Mad_Cat · 14.10.2013, 09:17

1 пишем код на паскале
2 ищем fceditor download
3 создаем в нем по коду блок схему
4 меняем "read" на "ввод","write" на "вывод",":=" на "="
5 если bmp | jpg устраивает сохраняемся
6 если нет перерисовываем в нужный редактор
7 наслаждаемся проделанной работой

12.10.2013, 20:13	#2
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Код: `Begin .... if (a < x) and (x < b) then z := cos(x) else if (x <= a) then z := exp(x / 10) else if (x >= b) then z := exp(-b * ln(5)); Writeln(z :6:4); if (m = 1) or (m = 9) then y := 1 * 1 else if (m <> 0) and (m <> 1) and (m <>9) then y := 1 - m else if (m = 0) then y := 2a; Writeln(y:6:4); End;` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681* Последний раз редактировалось GetMax; 12.10.2013 в 20:19.

14.10.2013, 09:17	#3
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	1 пишем код на паскале 2 ищем fceditor download 3 создаем в нем по коду блок схему 4 меняем "read" на "ввод","write" на "вывод",":=" на "=" 5 если bmp \| jpg устраивает сохраняемся 6 если нет перерисовываем в нужный редактор 7 наслаждаемся проделанной работой "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой" Последний раз редактировалось Mad_Cat; 14.10.2013 в 09:33.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Разработать блок-схему и программу на языке Паскаль	Denis19061989	Паскаль, Turbo Pascal, PascalABC.NET	3	27.05.2013 07:21
Разработать блок-схему и программу на языке Паскаль	Denis19061989	Помощь студентам	0	26.05.2013 00:33
Разработать блок схему к задачам С++	dgulij	Помощь студентам	0	14.03.2013 09:12
Разработать блок-схему и программу на языке Си функции операции со строками	МариМар	Помощь студентам	0	01.01.2011 11:31
Нужна помощь(Разработать алгоритм, нарисовать его блок-схему.)	miron	Помощь студентам	4	26.02.2008 12:08