Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Вводится число. Определить, является ли оно степенью двойки. Вводится число. Определить, является ли оно степенью двойки. P.S. Сойдёт и консольный вариант! Я уж как нибудь "пере-оформлю" в визуальный вариант! 8) https://www.cyberforum.ru/ pascal/ thread4924.html Подскажите какуюнибудь программку или способ как легко вычислить координаты любой точки на экране. Pascal
Так для того чтобы нарисовать фигуру в графическом модуле..необходимо указать координаты, которые самому надо высчитать. Но рисовать 600 на 800 не катит, а 6 и 8 а потом деля их запаришься, да и не мало целых значений диагоналей. Подскажите какуюнибудь программку или способ как легко вычислить координаты любой точки на экране. Заранее благодарен.
Pascal Код для выведения обводки и фона на экран https://www.cyberforum.ru/ pascal/ thread4919.html
Здраствуйет уважаемая администрация и программисты. Я хочю обратится к вам с вопросом связанным с модулем Graph. Я в принципе понял мой вопрос, но хочю убедиться что это так. Я использовал код для выведения обводки и фона на экран =; Фон появился а обводки нет ни прикаком стиле или цвете. Даже при отключённом фоне всё равно обводки нет! Как я понял обводка обводит фигуры в программе и поэтому не...
Pascal Удалить из матрицы все столбцы, в которых нет нулевого элемента Пожайлуста помогите сделать эту задачу с процедурой или функцией Использовать подпрограммы (null, ввода, вывода, обрабатывающей части). Дан массив целых чисел А, где M, N=10. Удалить все столбцы, в которых нет нулевого элемента. https://www.cyberforum.ru/ pascal/ thread4918.html
Pascal Для указанных стран СНГ ввести информацию и напечатать название государства
Помогите исправить эту программу пожайлуста. 2.Определена запись: Record name:array of char; {название государства} sqr : real; {площадь территории} peop, sch, hosp, inst: word{численность населения, число школ, больниц, вузов} end; Используя предложенную структуру записи, составить программу, которая для указанных государств СНГ вводит информацию и печатает название государства,...
Pascal Найти и вывести все слова, у которых число гласных букв превышает число согласных https://www.cyberforum.ru/ pascal/ thread4915.html
Доброй ночи :] Помогите решить следующие задачи: 1)Дан массив из Н слов произвольной длины, но не превышающих 60 символов. Символами могут быть только заглавные латинские буквы. Найти и вывести все слова, у которых число гласных букв превышает число согласных набросок: begin string = masiv; for i=1 to n do for j=1 to length(string) do begin
Pascal Описать функцию, которая возвращает количество разных цифр входящих в запись числа арод кто может помочь напесать на Pascale 7.0 две програмки! 1. Описать функцию, которая возвращает количество разных цифр входящих в запись числа типа Longint. 2. Использовать подпрограммы (null, ввода, вывода, обрабатывающей части). Даны 3 матрицы целых чисел: (4*3), (4*4), (3*3). Распечатать ту из них, в которой находится максимальное среднее геометрическое положительных элементов... https://www.cyberforum.ru/ pascal/ thread4912.html Pascal Ребятки, помогите привлекательной и обоятельной студентке 1 курса!!!!
Ребятки, помогите привлекательной и обоятельной студентке 1 курса!!!!ТАК ТЯЖЕЛО..............!!!!!!!!!!!!! :roll: ВОТ: 1Составить блок схему и написать программу обработки двухмерного массива А(n, m), где n=5, m=6 , состоящего из целых чисел, взятых случайным образом из диаппзона, в алгоритме использовать подпрограмму. проедположив, что столбцы таблицы являются координатами векторов,...
Pascal Определить max и min элементы массивы и переставить их местами 1. С клавиатуры вводится последовательность из n чисел. Определить номер минимального числа последовательности. n-ввести с клавиатуры. 2. Дан массив целых чисел размерностью n. Определить max, min элементы и переставить их местами. 3. Дан двумерный массив целых чисел. Вычислить сумму всех положительных элементов в каждой строке. 4. Дан файл, в который записаны строки, переписать в другой... https://www.cyberforum.ru/ pascal/ thread4906.html Pascal Помогите решить две задачи, они довольно лёгкие, но мне не по зубам. https://www.cyberforum.ru/ pascal/ thread4903.html
Помогите решить две задачи, они довольно лёгкие, но мне не по зубам. Задача №1 Распечатать фамилии детей детского сада, которые родились в определённом месяце, Указать их возраст и группу. Задача№2 Из диапазона целых чисел выделить: 1 Множество чисел, делящихся без остатка на k, или на L (k, L – простые числа); 2 Множество чисел, делящихся на k* без остатка. Chiliaka@mail.ru
Сортировка столбцов матрицы по возрастанию сумм элементов столбца Pascal
Помогите пожалуйста разобраться с задачей: d vfccbdt mxn нужно отсартировать по возрастанию сумм столбцы: program pop; uses crt; var B,C:array of integer; i,j,m,z,n,sum,k,d:integer; E,T:array of integer; begin randomize; ClrScr;{ну вводим кол-во строк и столбцов в массиве} Writeln('wwedite kol-vo strok'); readln(m);
Pascal Заполнить матрицу произвольного размера по образцу https://www.cyberforum.ru/ pascal/ thread4845.html
Ре
1 / 1 / 0
Регистрация: 21.01.2010
Сообщений: 8
0

Определить, является ли номер дня допустимым для данного месяца. - Pascal - Ответ 21136

13.12.2007, 16:20. Показов 1830. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
подскажите сто делать дальше!!!!
УСЛОВИЕ: Вводятся пары чисел (первое – номер дня, второе – номер месяца). Определить, является ли номер дня допустимым для данного месяца. Программа завершает работу, если первое число равно 777.
программа не работает!!!(((((((((((
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
PROGRAM PGR_3;
      USES CRT;
     VAR A, B:INTEGER;
BEGIN
      CLRSCR;
     WRITELN ('VVEDITE A');
     READLN (A);
     WHILE A;777 DO;
      WRITELN ('VVEDITE A, OKONCHIVAUSHEESYA 777');
             READLN (A);
BEGIN
     WRITELN ('VVEDITE B');
             READLN (B);
      IF (B=1)OR
        (null, B=3)OR
         (null, B=5)OR
          (null, B=7)OR
           (null, B=8)OR
            (null, B=10)OR
             (null, B=12)THEN
              (null, A=31)
 
     IF (B=4) OR
        (null, B=6)OR
          (null, B=9)OR
            (null, B=11)THEN
              (null, A=30);
      IF (B=2)THEN
         (null, A=28);
P=1 THEN WRITELN ('PODXODIT');
END;
   READKEY;
END.


Вернуться к обсуждению:
Определить, является ли номер дня допустимым для данного месяца. Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2007, 16:20
Готовые ответы и решения:

Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате
Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате....

Определить номер месяца M и дня недели D по порядковому номеру дня в году
Вводится число T-порядковый день в году.Определить номер месяца M и дня недели D, соответствующих...

Получить номер дня и месяца и определить дату следующего дня (считая, что год невисокосный)
Всем привет! Буду очень благодарен если поможете составить программу в PascalABC. Условие звучит...

Выведите номер дня недели для данного дня года
Помогите,пожалуйста...Среда Free Pascal Дан порядковый номер дня года (отсчет идет с 1-го...

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

Вводится номер месяца М и дня Д. Определить день недели с датой М и Д
Вводится номер месяца М и дня Д. Определить день недели с датой М и Д, считая, что год начинается...

Вводится номер месяца М и дня Д. Определить день недели с датой М и Д
Напишите код Вводится номер месяца М и дня Д. Определить день недели с датой М и Д, считая, что...

Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня
Известны год и номер месяца рождения человека, а также год и номер месяца сегодняшнего дня (январь...

Получить день и номер месяца и определить дату следующего дня (считать год невисокосным)
Напишите программу, которая получает день и номер месяца и определяет дату следующего дня....

Дан порядковый номер дня месяца, вывести на экран количество дней оставшихся до конца месяца
Дан порядковый номер дня месяца, вывести на экран количество дней оставшихся до конца месяца...

Определить номер дня недели для заданного номера дня года
Дано целое число k (1<=k<=365). Присвоить целочисленной величине n значение 1, 2, ... , 6 или 0 в...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru