Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Подпргораммы. Для матрицы отпечатать номер каждой строки, оба элемента которой имеют четные значения Для матрицы из 2 столбцов и 10 строк отпечатать номер каждой строки, оба элемента которой имеют четные значения, и число таких строк. Сделать с помощью подпрограмм Добавлено через 35 минут Программа: Uses CRT; Var A: array of integer; I, j, x, k: integer; begin https://www.cyberforum.ru/ turbo-pascal/ thread439172.html Одномерный массив (pascal) Turbo Pascal
Здравствуйте. Помогите пожалуйста написать программу. Надо создать одномерный массив из любых чисел найти максимальный и минимальный элементы и те числа которые идут до максимального и после минимального обнулить
Turbo Pascal Убрать верхний овал https://www.cyberforum.ru/ turbo-pascal/ thread439141.html
Доброго времени суток! Необходимо убрать верхний овал uses Graph, Crt; { CRT нужен для функции keypressed } type oval = object { объект овал } { --- внутренние поля и методы объекта } private { --- поля } { цвет линий } 		Turbo Pascal массив https://www.cyberforum.ru/ turbo-pascal/ thread439139.html
пожалуйста переделайте программу через лож или истину program ex1; const n=5; m=5; type matr=array of integer; var a: matr; procedure GenM (var z: matr); var i,j: byte;
Turbo Pascal Задачи в Pascal, составление алгоритмов(построение таблицы)
Народ помогите решить такую задачу...............препод по ИТ будет завтра рвать и метать.............(построение таблицы)Составьте алгоритм, по которому будут найдены значения элементы таблицы A, если A определяется по формуле A=2*i 		Turbo Pascal Перевод натурального числа из десятичной системы счисления в двоичную https://www.cyberforum.ru/ turbo-pascal/ thread439109.html
написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в двоичную.
Turbo Pascal Получить все шестизначные счастливые номера получить все шестизначные счастливые номера. Счастливым номером называют такое шестизначное число, в котором сумма его первых трех цифр равна сумме его последних трех цифр. Определить процедуру для расчета суммы цифр трехзначного числа. https://www.cyberforum.ru/ turbo-pascal/ thread439106.html Turbo Pascal Изменение кода построения графиков
Посмотрите пожалуйста прикрепленный файл В нем построены 3 графика на одной оси в интервале.За основу взят код с этог форума. Как прикрутить к нему диапазон ? Прошу помощи.т.к. мои познания в этой области близки к нулю
Turbo Pascal Получить 100 наиболее часто встречающихся слов файла и частоту их появления https://www.cyberforum.ru/ turbo-pascal/ thread439099.html
Даны символьный файл f, содержащий произвольный текст длиной более 5000 слов. Слова в тексте разделены пробелами и знаками препинания. Получит 100 наиболее часто встречающихся слов и частоту их появления. Помогите пожалуйста)) 		Turbo Pascal Проверка (экзамен) Надо дать ответы! https://www.cyberforum.ru/ turbo-pascal/ thread439046.html
. Создать файл автовладельцев. Для каждого автовладельца известны: номер, марка автомобиля, фамилия и адрес. Написать программу, выясняющую, есть ли а Turbo Pascal
Создать файл автовладельцев. Для каждого автовладельца известны: номер, марка автомобиля, фамилия и адрес. Написать программу, выясняющую, есть ли автовладельцы, имеющие более одного автомобиля. 		Turbo Pascal Описать в коде ход каждой шахматной фигуры https://www.cyberforum.ru/ turbo-pascal/ thread439021.html
Нужна помощь. Нужно написать программу для каждой шахматной фигуры. Нужно чтобы при запуске спрашивалась какая фигура ,а потом где стоит. После должно появиться поле, где отмечено, где стоит фигура и куда она может бить. Нужно чтобы она была как на картинке.
15 / 15 / 7
Регистрация: 01.02.2012
Сообщений: 47
02.02.2012, 13:04 0

Восточный календарь - Turbo Pascal - Ответ 2451151

02.02.2012, 13:04. Показов 7976. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено mart1z как решение

Решение

Цитата Сообщение от mart1z Посмотреть сообщение
Сказали, что можно сделать через CASE
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

Program AHB;
 uses crt;
 var
 year,k,a:integer;
 begin
 clrscr;
 Writeln('Введите год: ГГГГ');
 readln (year);
 k:=((((year+6) mod 10)+2)div 2);
 a:=((year+8) mod 12+1);
 Write (year);
 case k of
 1: Write (' Зелёный ');
 2: Write (' Красный ');
 3: Write (' Жёлтый ');
 4: Write (' Белый ');
 5: Write (' Чёрный ');
 end;
 Case a of
 1: Write (' Крыса ');
 2: Write (' Бык ');
 3: Write (' Тигр ');
 4: Write (' Кролик ');
 5: Write (' Дракон ');
 6: Write (' Змея ');
 7: Write (' Лошадь ');
 8: Write (' Баран ');
 9: Write (' Обезьяна ');
 10: Write (' Петух ');
 11: Write (' Собака ');
 12: Write (' Свинья ');
 end;
 Writeln;
 readkey;
 end.
Ну, как то так... у вас уже всё было для написания, наверное кроме желания

Вернуться к обсуждению:
Восточный календарь Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 02.02.2012, 13:04
Готовые ответы и решения:

Восточный календарь
Составить программу, которая определяет, на какой год восточного календаря приходится какой – либо...

Восточный календарь
в восточном календаре принят 60=-летний цикл, состоящий из 12-летних подциклов, обозночаемых...

Доработать программу: восточный календарь
В восточном календаре года носят названия животных: крыса быка тигра зайца дракона змеи лошади овцы...

По номеру года определить и напечатать его название (восточный календарь)
В старом японском календаре был принят 60-летний цикл. Как раз для выхода на пенсию. Он состоял из...

1
02.02.2012, 13:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 02.02.2012, 13:04
Помогаю со студенческими работами здесь

Восточный календарь
Нужна помощь,ну или кто может написать код программы,про Восточный календарь! Сам текст: В...

Восточный Календарь
Давным давно, в одной альтернативной вселенной, в восточном календаре был принят 6060-летний цикл,...

задание 7. Восточный календарь
не могу разобраться и сделать задание кто поможет? В восточных календарях был принят 60-летний...

Восточный календарь: вывести название года
Давным давно, в одной альтернативной вселенной, в восточном календаре был принят 60-летний цикл,...

Восточный календарь: ввести животное, вывести годы
помогите,пожалуйста,с задачей! вводим в консоле животное - получаем года, которые соответствуют...

Восточный календарь. По номеру года определить его название
В восточном календаре принят 60-летний цикл, состоящий из 12 - летних подциклов, обозначаемых...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru