Математический форум Math Help Planet
Обсуждение и решение задач по математике, физике, химии, экономике Теоретический раздел |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
новый онлайн-сервис число, сумма и дата прописью |
|
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Страница 1 из 3 |
[ Сообщений: 22 ] | На страницу 1, 2, 3 След. |
|
Автор | Сообщение | |
---|---|---|
nikita0008 |
|
|
Program NiK; Var a,b: real; c: char; Begin Write('Первое число:'); readln (a); Write ('Введите знак'); readln (c); Write ('Второе число'); readln (b); case c of '1': a:=a+b; '2': a:=a-b; '3':a:=a*b; '4':a:=a/b; end; Write ('Результат:',a:4:2); End. а вот как будет выглядить блок-схема это незнай) Так есть у меня ошибка? |
||
Вернуться к началу | ||
lexus666 |
|
|
Она работат? Я просто не помню как оператор case работает.
Посмотрел в гугле, вроде правильно |
||
Вернуться к началу | ||
nikita0008 |
|
|
lexus666, работает. Блок-схему как составить бы?
вот правильная программа Program Nik; Var a,b: real; c: char; Begin Write('Первое число:'); readln (a); Write ('Введите знак'); readln (c); repeat Write ('Второе число (<>0)'); readln (b); if b=0 then writeln('Число не должно равняться 0'); until b<>0; case c of '1': a:=a+b; '2': a:=a-b; '3':a:=a*b; '4':a:=a/b; end; Write ('Результат:',a); End. |
||
Вернуться к началу | ||
mad_math |
|
|
nikita0008,
nikita0008 писал(а): if b=0 then writeln('Число не должно равняться 0'); until b<>0; case c of '1': a:=a+b; '2': a:=a-b; '3':a:=a*b; '4':a:=a/b; end; Write ('Результат:',a); End. вот правильная программа по-моему здесь где-то должно быть else http://forum.codenet.ru/threads/43683-P ... D0%BC-case |
||
Вернуться к началу | ||
nikita0008 |
|
|
mad_math
аххах) elce помойму когда условие у меня и отрицательные считает у меня чуть чуть друге условия как унего это замудрено у меня гораздо проще и выполняет все тоже самое |
||
Вернуться к началу | ||
lexus666 |
|
|
nikita0008 можно и так как сказала mad_math ошибкт не будет
|
||
Вернуться к началу | ||
nikita0008 |
|
|
lexus666
ну да,блин меня эти блок-схемы,математическая модель и алгоритм задолбали)как блок-схему сделать я чет незнаю фантазии нет) |
||
Вернуться к началу | ||
lexus666 |
|
|
nikita0008 Вы же знаете как на блок схеме изобразить объявление переменных, раньше Вы уже это делали для оператора case блок схема выглядит так http://programmersforum.ru/showthread.php?t=26840
там чуток вниз пролестайте и увидите. |
||
Вернуться к началу | ||
За это сообщение пользователю lexus666 "Спасибо" сказали: nikita0008 |
||
nikita0008 |
|
|
lexus666
а вот как мне изобразить что В не равно нулю |
||
Вернуться к началу | ||
lexus666 |
|
|
nikita0008 может я что то путаю, но мне помнится еще надо одно условие воткнуть на б. Что если б=0 то на конец програмы. И это к стати нужно записать, Вы абсолютно правы.
|
||
Вернуться к началу | ||
На страницу 1, 2, 3 След. | [ Сообщений: 22 ] |
Часовой пояс: UTC + 3 часа [ Летнее время ] |
Кто сейчас на конференции |
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9 |
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения |