Дискуссионный математический форумМатематический форум
Математический форум Math Help Planet

Обсуждение и решение задач по математике, физике, химии, экономике

Теоретический раздел
Часовой пояс: UTC + 3 часа [ Летнее время ]
новый онлайн-сервис
число, сумма и дата прописью

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 22 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 20:28 
Не в сети
Профи
Аватара пользователя
Зарегистрирован:
01 ноя 2010, 18:12
Сообщений: 384
Cпасибо сказано: 61
Спасибо получено:
10 раз в 7 сообщениях
Очков репутации: 7

Добавить очки репутацииУменьшить очки репутации
Арифметические действия над числам пронумерованы следующим образом 1-сложение,2-вычитание,3-умножение,4-деление.Дан номер действия и два числа А и В(В не равно нулю).Выполнить над числами указанное действие и вывести результат. Нужно сделать с помощью case

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.
а вот как будет выглядить блок-схема это незнай)
Так есть у меня ошибка?

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 20:42 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 янв 2011, 11:30
Сообщений: 1752
Откуда: Мамазия
Cпасибо сказано: 130
Спасибо получено:
595 раз в 479 сообщениях
Очков репутации: 375

Добавить очки репутацииУменьшить очки репутации
Она работат? Я просто не помню как оператор case работает.

Посмотрел в гугле, вроде правильно

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 21:20 
Не в сети
Профи
Аватара пользователя
Зарегистрирован:
01 ноя 2010, 18:12
Сообщений: 384
Cпасибо сказано: 61
Спасибо получено:
10 раз в 7 сообщениях
Очков репутации: 7

Добавить очки репутацииУменьшить очки репутации
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.

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 21:55 
Не в сети
Верховный модератор
Аватара пользователя
Зарегистрирован:
13 окт 2010, 13:09
Сообщений: 19961
Откуда: Пермь + Одесса
Cпасибо сказано: 11721
Спасибо получено:
5319 раз в 4796 сообщениях
Очков репутации: 708

Добавить очки репутацииУменьшить очки репутации
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

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:25 
Не в сети
Профи
Аватара пользователя
Зарегистрирован:
01 ноя 2010, 18:12
Сообщений: 384
Cпасибо сказано: 61
Спасибо получено:
10 раз в 7 сообщениях
Очков репутации: 7

Добавить очки репутацииУменьшить очки репутации
mad_math
аххах)

elce помойму когда условие

у меня и отрицательные считает у меня чуть чуть друге условия
как унего это замудрено у меня гораздо проще и выполняет все тоже самое

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:33 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 янв 2011, 11:30
Сообщений: 1752
Откуда: Мамазия
Cпасибо сказано: 130
Спасибо получено:
595 раз в 479 сообщениях
Очков репутации: 375

Добавить очки репутацииУменьшить очки репутации
nikita0008 можно и так как сказала mad_math ошибкт не будет

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:35 
Не в сети
Профи
Аватара пользователя
Зарегистрирован:
01 ноя 2010, 18:12
Сообщений: 384
Cпасибо сказано: 61
Спасибо получено:
10 раз в 7 сообщениях
Очков репутации: 7

Добавить очки репутацииУменьшить очки репутации
lexus666
ну да,блин меня эти блок-схемы,математическая модель и алгоритм задолбали)как блок-схему сделать я чет незнаю фантазии нет)

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:46 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 янв 2011, 11:30
Сообщений: 1752
Откуда: Мамазия
Cпасибо сказано: 130
Спасибо получено:
595 раз в 479 сообщениях
Очков репутации: 375

Добавить очки репутацииУменьшить очки репутации
nikita0008 Вы же знаете как на блок схеме изобразить объявление переменных, раньше Вы уже это делали для оператора case блок схема выглядит так http://programmersforum.ru/showthread.php?t=26840
там чуток вниз пролестайте и увидите.

Вернуться к началу
 Профиль  
Cпасибо сказано 
За это сообщение пользователю lexus666 "Спасибо" сказали:
nikita0008
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:47 
Не в сети
Профи
Аватара пользователя
Зарегистрирован:
01 ноя 2010, 18:12
Сообщений: 384
Cпасибо сказано: 61
Спасибо получено:
10 раз в 7 сообщениях
Очков репутации: 7

Добавить очки репутацииУменьшить очки репутации
lexus666
а вот как мне изобразить что В не равно нулю

Вернуться к началу
 Профиль  
Cпасибо сказано 
 Заголовок сообщения: Re: Составим программу на Паскаль
СообщениеДобавлено: 24 мар 2011, 22:51 
Не в сети
Beautiful Mind
Аватара пользователя
Зарегистрирован:
24 янв 2011, 11:30
Сообщений: 1752
Откуда: Мамазия
Cпасибо сказано: 130
Спасибо получено:
595 раз в 479 сообщениях
Очков репутации: 375

Добавить очки репутацииУменьшить очки репутации
nikita0008 может я что то путаю, но мне помнится еще надо одно условие воткнуть на б. Что если б=0 то на конец програмы. И это к стати нужно записать, Вы абсолютно правы.

Вернуться к началу
 Профиль  
Cпасибо сказано 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему    На страницу 1, 2, 3  След.  Страница 1 из 3 [ Сообщений: 22 ]

 Похожие темы   Автор   Ответы   Просмотры   Последнее сообщение 
Паскаль, код, помощь

в форуме Информатика и Компьютерные науки

Seira

3

215

20 ноя 2020, 16:05

Паскаль. Перевод из 10-й в 16-ю СС

в форуме Информатика и Компьютерные науки

sfanter

1

1198

23 июл 2014, 21:52

Паскаль. Условный оператор

в форуме Информатика и Компьютерные науки

sfanter

1

496

14 июл 2014, 12:47

Паскаль. Кодировка символов

в форуме Информатика и Компьютерные науки

sfanter

4

792

23 июл 2014, 14:31

Паскаль. Одномерный массив

в форуме Информатика и Компьютерные науки

sfanter

14

912

28 окт 2015, 07:45

Ищу программу

в форуме Информатика и Компьютерные науки

Gerren

0

333

14 окт 2017, 06:22

Паскаль. Перевод из десятичной СС в двоичную

в форуме Информатика и Компьютерные науки

sfanter

0

574

19 июл 2014, 05:01

Паскаль. Оператор for. Среднее арифметическое

в форуме Информатика и Компьютерные науки

sfanter

7

1215

18 июл 2014, 16:54

Паскаль. Оператор выбора case

в форуме Информатика и Компьютерные науки

sfanter

3

476

15 июл 2014, 14:39

Паскаль. Repeat-Until. Простое число

в форуме Информатика и Компьютерные науки

sfanter

2

678

19 июл 2014, 20:04


Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  

Яндекс.Метрика

Copyright © 2010-2023 MathHelpPlanet.com. All rights reserved