С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
forsage
0 / 0 / 0
Регистрация: 21.07.2010
Сообщений: 9
1

Выдать полное название комплекта шаров

21.07.2010, 18:27. Просмотров 858. Ответов 3
Метки нет (Все метки)

Здравствуйте. уже неделю бьюсь, всё никак не могу осилить, помогите кому не лень

Задание 1:
Составьте программу, которая запрашивает цвет шаров (один из символов: 'ж' — жёлтый, 'к' — красный, 'с' — синий, 'з' — зелёный) и их количество (от 5 до 12) и выдаёт полное название комплекта шаров.
Протокол:
Введите цвет и количество шаров: к 8
Восемь красных шаров

Задание 2
Составьте программу по следующему сценарию: в центре экрана нарисован светофор с тремя серыми (негорящими) «глазками». При нажатии на одну из клавиш (<с> — стой, <г> — готовься, <и> — иди) зажигается соответствующий «глазок».
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
21.07.2010, 18:27
Ответы с готовыми решениями:

Составьте программу, которая запрашивает колличество сотен, десятков и единиц в загаданном числе и выводит его полное название
Составьте программу, которая запрашивает колличество сотен, десятков и единиц в...

Возможно ли разделить кости домино на 2 комплекта (сумма всех чисел на костях должна быть равной)?
нужна программа, которая проверяет, возможно ли разделить 34 кости домино,...

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

Объявить класс «Вокзал» с указанием полей: название вокзала, местонахождение (название города), число направлений, поток пассажиров.
Объявить класс «Вокзал» с указанием полей: название вокзала, местонахождение...

Выдать название дня недели
Написать программу, которая по номеру дня недели (целому числу от 1 до 7)...

3
Puporev
Модератор
55500 / 42591 / 29441
Регистрация: 18.05.2008
Сообщений: 100,748
21.07.2010, 19:06 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Про светофор посмотрите здесь и чуть подправьте под свое условие.
http://www.cyberforum.ru/pascal/thre...read68411.html

Добавлено через 16 минут
1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
uses crt;
var c:char;
    k:byte;
    s:string;
begin
clrscr;
repeat
writeln('Выберите цвет (ж,к,с,з) и количество шаров(5-12):');
readln(c,k);{вводим через пробел типа ж 11}
until(c in['ж','к','с','з'])and(k in [5..12]);
s:='шаров';
case c of
'ж':s:='желтых '+s;
'к':s:='красных '+s;
'с':s:='синих '+s;
'з':s:='зеленых '+s;
end;
case k of
 5:s:='пять ';
 6:s:=s+'шесть'+s;
 7:s:='семь '+s;
 8:s:='восемь '+s;
 9:s:='девять '+s;
10:s:='десять '+s;
11:s:='одиннадцать '+s;
12:s:='двенадцать '+s;
end;
write(s);
readln
end.
1
forsage
0 / 0 / 0
Регистрация: 21.07.2010
Сообщений: 9
23.07.2010, 10:53  [ТС] 3
ещё один вопрос.
нужен массив 5x9, который вывод числа в таком виде:
1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9

ну и так 5 раз...
0
Puporev
Модератор
55500 / 42591 / 29441
Регистрация: 18.05.2008
Сообщений: 100,748
23.07.2010, 11:00 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
for i:=1 to 5 do
 begin
  for j:=1 to 9 do
   begin
     a[i,j]:=j;
     write(a[i,j]:3);
   end;
  writeln;
 end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.07.2010, 11:00

Вершина характеризуется названием и высотой. Выдать название самой высокой вершины
Не имею понятия как её решить!?

Полное название тега <br>
Учу Java и тут в JLabel что бы на новую строчку переносить слова необходимо...

Полное название полей
Доброго времени суток! У меня такая ситуация. Есть запрос, объединяющий 3...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru