Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Блок-схемы(Pascal)

32K
23 октября 2007 года
Natarli
4 / / 23.10.2007
Помогите решить задачки._ Во время сильного дождя на остановке стояло 12 человек. Подкатавший автобус забрызгал грязью 4-го, 5-го, 6, 7 и 8-го человека. Остальные попрыгали в колючие кусты, причем, 3-ий, 9-ый и 12-ый так и не смогли выбраться из них. Составить алгоритм (блок-схему), который бы определял по введенному с клавиатуры номеру пассажира его местонахождение: едет пассажир или сидит в кустах._ Я просто не знаю кто такие блок-схемы!А время поджимает!Плиззз!!!
14K
23 октября 2007 года
A.Victor
52 / / 07.10.2007
Код:
#include <iostream.h>

void main()
{
int choise=0;
cout<<"Enter Your Choise(from 1 to 12): ";
cin>>choise;
switch(choise)
{
case 1:case 2: case 10: case 11: cout<<"Under rain !"<<endl; break;
case 3:case 9: case 12: cout<<"In Bushes !"<<endl; break;
case 4:case 5: case 6; case 7: case 8: cout<<"In Bus !"<<endl; break;
default: cout<<"No such choise !!!"<<endl;
}
}


Это поможет :cool:
274
24 октября 2007 года
Lone Wolf
1.3K / / 26.11.2006
Человек же написал. не знает что такое блок-схема....
Почитай тут
14K
24 октября 2007 года
A.Victor
52 / / 07.10.2007
Человек написал составти алгоритм я и составил !!!
32K
25 октября 2007 года
Natarli
4 / / 23.10.2007
Цитата: A.Victor
Код:
#include <iostream.h>

void main()
{
int choise=0;
cout<<"Enter Your Choise(from 1 to 12): ";
cin>>choise;
switch(choise)
{
case 1:case 2: case 10: case 11: cout<<"Under rain !"<<endl; break;
case 3:case 9: case 12: cout<<"In Bushes !"<<endl; break;
case 4:case 5: case 6; case 7: case 8: cout<<"In Bus !"<<endl; break;
default: cout<<"No such choise !!!"<<endl;
}
}


Это поможет :cool:



А что это такое?Это на каком языке?Я пытаюсь изучить Паскаль.Никаких других языков я не знаю.Но всё равно спасибо!:)

320
25 октября 2007 года
m_Valery
1.0K / / 08.01.2007
Цитата: Natarli
А что это такое?Это на каком языке?Я пытаюсь изучить Паскаль.Никаких других языков я не знаю.Но всё равно спасибо!:)



А это потому что ты не читаешь Правила раздела Студентам и не указываешь язык в названии темы.Отредактировал.

32K
26 октября 2007 года
Natarli
4 / / 23.10.2007
Спасибо!:)
257
28 октября 2007 года
kosfiz
1.6K / / 18.09.2005
Код:
const
  fset = [4, 5, 6, 7, 8];
  sset = [3, 9, 12];

var
  n: byte;
begin
readln(n);
if (n > 0) and (n < 13) then
  begin
    if n in fset then
      writeln('zabrizgan')
    else
      if n in sset then
        writeln('v kustah')
      else
        writeln('vezunchik');
  end
else
  writeln('n not correct');
readln;
end.
32K
14 ноября 2007 года
Natarli
4 / / 23.10.2007
Классно спасибо!А главное с юмором.!!!!Но у меня там есть еще одна задачка !?:) Поможешь?И как оказалась мне нужно просто нарисовать блок -схемы на простом математическом языке.Не на Паскале.:)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог