Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Матрица https://www.cyberforum.ru/ pascal/ thread54810.html
Преобразование прямоугольной матрицы Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании. а) Сформировать из строк В матрицу С, расположив их так,...
Требуется посчитать сумму целых чисел от 1 до N. Pascal
сделал. тестил раз 10 писал разные числа все робит но на сайте http://www.********/ непроходит 3-й тест где ошибка или недочет??? вот условие: Требуется посчитать сумму целых чисел от 1 до N....
Найти сумму значений наибольших элементов строк матрицы Pascal
помогите пожалуйста решить задачу дана действительная матрица размера m*n. найти сумму значений наибольших элементов ее строк.
Pascal Системы счисления Пожалуйста помогите с лабораторной! Даны натуральные числа N, M (2<=M<=16). Вывести на экран запись числа N в системе счисления с основанием M (нельзя использовать строковые переменные, массивы и... https://www.cyberforum.ru/ pascal/ thread54797.html
Pascal однонаправленные списки https://www.cyberforum.ru/ pascal/ thread54796.html
Нужна помощь)) Сформировать два однонаправленные списки S1 и S2. Объединить их в один S3. Вывести все списки на печать.
Pascal Помагите решить задачу на 3 циклов
Помагите решить задачу на 3 циклов(for to do, while do, repeat until) ПЛИЗ
Pascal Выделить предложение с наименьшим количеством слов
Задача№5: Выделить предложение с наименьшим количеством слов. Вывести на печать подряд (без пробелов) все слова этого предложения. Задача№6: Для заданного числа N>1 построить последовательность...
Pascal таблицы значений функции Помогите ,cоставить программу для вычисления и печати таблицы значений функции y= f(x) на отрезки с шагом 0.1 (x+1)ln(2.1x + 4x) https://www.cyberforum.ru/ pascal/ thread54783.html
Pascal Рекурсия. Наибольшая цифра числа. https://www.cyberforum.ru/ pascal/ thread54782.html
помогите решить задачу с помощью рекурсии (нахождение наибольшей цифры натурального числа)
Pascal Задание из методички на динамические массивы. Помогите! Задача на динамические массивы.. Вводится число К. Найдите К-ное по счёту число, у которого ни одна цифра не повторяется. Ипользовать Динамические массивы. При решении не... https://www.cyberforum.ru/ pascal/ thread54778.html
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,135
06.10.2009, 21:32 0

Знаки зодиака

06.10.2009, 21:32. Показов 3643. Ответов 8
Метки (Все метки)

Ответ

Давид, Так не пойдет, знак может меняться 20, 21, 22 и 23 числа, поэтому здесь не упростишь. Кроме того нужно проверять ввод, иначе введет юзер 35.15 и что?
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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
program zodiac;
Uses crt;
var d,m,k:byte;
begin
clrscr;
repeat
write('месяц: ');
readln(m);
until m in [1..12];
repeat
k:=0;
write('день: ');
readln(d);
if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
or((m in [4,6,9,11])and(d>30))or(d<1)then k:=1;
until k=0;
case m of
1:case d of
  1..19:write('Козерог');
  20..31:write('Водолей');
  end;
2:case d of
  1..18:write('Водолей');
  19..29:write('Рыбы');
  end;
3:case d of
  1..20:write('Рыбы');
  21..31:write('Овен');
  end;
4:case d of
   1..21:write('Овен');
   22..30:write('Телец');
   end;
5:case d of
   1..2:write('Телец');
   21..31:write('Близнецы');
   end;
6:case d of
   1..21:write('Близнецы');
   22..30:write('Рак');
   end;
7:case d of
   1..22:write('Рак');
   23..31:write('Лев');
   end;
8:case d of
   1..22:write('Лев');
   23..31:write('Дева');
   end;
9:case d of
   1..22:write('Дева');
   23..30:write('Весы');
   end;
10:case d of
   1..22:write('Весы');
   23..31:write('Скорпион');
   end;
11:case d of
   1..22:write('Скорпион');
   23..30:write('Стрелец');
   end;
12:case d of
   1..21:write('Стрелец');
   22..31:write('Козерог');
   end;
end;
readln
end.


Вернуться к обсуждению:
Знаки зодиака
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.10.2009, 21:32
Готовые ответы и решения:

Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не 77,90 или 99.
Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не...

Заменить в строке знаки "+" на знаки "-", а знаки "-" удалить
2. Заменить в строке знаки &quot;+&quot; на знаки &quot;-&quot;, а знаки &quot;-&quot; удалить. я сделала,но ошибка..не...

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

По дате рождения опредилить знак зодиака
По дате рождения опредилить знак зодиака!

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