Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.58/12: Рейтинг темы: голосов - 12, средняя оценка - 4.58
1 / 1 / 0
Регистрация: 05.01.2012
Сообщений: 41
1

Вывести название соответствующей карты вида «шестерка бубен», «дама червей»

05.01.2012, 17:49. Показов 2461. Ответов 1
Метки нет (Все метки)

Мастям игральных карт присвоены порядковые номера: 1 — пики, 2 — трёфы, 3 — бубны, 4 — червы. Достоинству карт, старших десятки, присвоены номера: 11 — валет, 12 — дама, 13 — король, 14 — туз. Даны два целых числа N (6..14), M(1..4). Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз трёф» и т.п.
Заранее спасибо
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.01.2012, 17:49
Ответы с готовыми решениями:

Вывести название соответствующей карты вида «шестерк бубен», «дама червей», «туз треф»
Case15. Мастям игральных карт присвоены порядковые номера: 1 — пики 2 — трефы, 3 — бубны, 4 —...

Вывести название соответствующей карты вида «шестерка бубен», «дама червей», «туз треф» и т.п
Мастям игральных карт присвоены порядковые номера: 1 — пики, 2 — трефы, 3 — бубны, 4 — червы....

Вывести название соответствующей карты вида "Шестёрка бубен", "дама червей", "туз треф" и т.п
Нужно подробное решение задач но не очень заумное чтоб я понял! Помогите пожалуйста мастями...

Вывести название соответствующей карты вида «шестерка бубен»
Мастям игральных карт присвоены порядковые номера: 1 — пики, 2 — трефы, 3 — бубны, 4 — червы. ...

1
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
05.01.2012, 18:18 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
31
uses crt;
var n,m: integer;
 
begin
repeat
write('Dostoinstvo karty: ');
readln(n);
until (n>=6) and (n<=14);
repeat
write('Mast" karty: ');
readln(m);
until (m>=1) and (m<=4);
case n of
6:  write('шестерка ');
7:  write('семерка ');
8:  write('восьмерка ');
9:  write('девятка ');
10: write('десятка ');
11: write('валет ');
12: write('дама ');
13: write('король ');
14: write('туз ');
end;
case m of
1:  write('пик ');
2:  write('трёф ');
3:  write('бубен ');
4:  write('червей ');
end;
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.01.2012, 18:18

Вывести название соответствующей карты
Никак не могу понять как делать задачу,пожалуйста помогите. Мастям игральных карт присвоены...

Определить полное название соответствующей карты
(Используйте оператор выбора switch или вложенные операторы if) Дан номер масти m (1 m 4) и номер...

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

Вывести строку – название соответствующей цифры
Дано целое число от 0-9.Вывести строку - название соответствующей цифры на русском языке...


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

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

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