Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Числовые массивы Помогите пожалуста с задачкой: Дан числовой массиф A, состоящий из n элементов. Найти среднее арифметическое положительных элементов этого массива. https://www.cyberforum.ru/ pascal/ thread173000.html Pascal Связанные списки2
На железнодорожном узле есть основной путь и ответвление от него (ветка), которое заканчивается тупиком. На пути слева от ветки вперемешку собраны грузовые и пассажирские вагоны. Требуется собрать все пассажирские вагоны справа, оставив все грузовые вагоны слева при условии, что число вагонов , которые умещаются в ветке ограниченно. Написать программу имитации формирования составов, используя...
Pascal Связанные списки1 https://www.cyberforum.ru/ pascal/ thread172993.html
1. Автомобили на стоянке выстраиваются друг за другом в одну линию. Длина стоянки S. Известны длина каждого автомобиля, момент его прибытия и длительность пребывания на стоянке. Если в момент прибытия автомобиля на стоянке нет свободного участка, длина которого не меньше длины автомобиля, то он уезжает (дополнительным расстоянием для маневров можно пренебречь). Моменты приезда автомобилей...
Pascal Найдите все делители натурального числа N 1) Вычеслить P=1*1/2*1/4*1/8.... Произведение содержит n множителей. Значение n вводится с клавиатуры. 2) Найдите все делители натурального числа N. https://www.cyberforum.ru/ pascal/ thread172986.html
Pascal Выяснить, будет ли массив возрастающим
1) Дан массив вещественных чисел. Выяснить,3 будет ли он возрастающим. 2) Дан массив из N целых чисел. Найти количество его минимальных элементов. Напр. 2 3 5 6 7 2 1 0 4 0 => 2
Pascal Линейные алгоритмы https://www.cyberforum.ru/ pascal/ thread172957.html
Puporev, можешь теперь помочь? :-*
Pascal Найти число чередований знака https://www.cyberforum.ru/ pascal/ thread172941.html
В массиве Z(m) найти число чередований знака, то есть число переходов с минуса на плюс или с плюса на минус. Например, в последовательности 0, -2, 0, -1, 0, 2, -1, 0, 0, 3, 2, -3 четыре чередования (как известно, нуль не имеет знака).
Pascal Линейные алгоритмы
Написать программу, которая находит сумму последних цифр двух трехзначных чисел.:flirt:
Pascal Линейные алгоритмы Решите мне пжл ;) Завтра на пару... :gwink: http://s51.***********/i131/1010/38/06487d22303a.png https://www.cyberforum.ru/ pascal/ thread172932.html Pascal Составить программу https://www.cyberforum.ru/ pascal/ thread172925.html
Составить программу записывающую в файл одномерный массив случайных целых чисел,а затем считывающую его с диска и выполняющую запись четных элементов массива в другой файл.
Pascal Не могу найти ошибки в программах
Не могу понять что не так. Задача №1, на использование оператора for: Условие :http://s43.***********/i099/1010/6e/c396dfc8eeee.jpg Проблема: Почему-то не считает. program opfor; uses crt; var ak,bk,b1,p:real; k:integer;
Pascal Сортировка слиянием https://www.cyberforum.ru/ pascal/ thread172887.html
Здравствуйте, мне необходимо отсортировать элементы массива по возрастанию способом слияния. Я побегал по форуму и наткнулся на тему https://www.cyberforum.ru/pascal/thread33243.html но почему то мне показалось, что там нет именно подходящей для меня сортировки слиянием. Подскажите пожалуйста, какую использовать, что бы отсортировать массив этим способом.
2857 / 1986 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
06.10.2010, 00:01 0

день недели - Pascal - Ответ 1007218

06.10.2010, 00:01. Показов 1339. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Blake_102 как решение

Решение

Даж спрашивать такое стрёмно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Uses
 CRT;
Var
 day:integer;
begin
ClrScr;
write('Введите номер дня: ');
 readln(day);
 case day of
  1: writeln('Понедельник');
  2: writeln('Вторник');
  3: writeln('Среда');
  4: writeln('Четверг');
  5: writeln('Пятница');
  6: writeln('Суббота');
  7: writeln('Воскресенье')
  else writeln('В неделе семь дней!!!');
 end;
readkey
end.


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

Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало года
Известна дата и день недели некоторого события. Определить, на какой день недели приходится начало...

День недели
Помогите пожалуйста, нужно написать прогу: вводишь число, месяц, год, а она в ответ выводит: день...

Определить день недели по дате
01.01.1980 года вторник и этот год високосныи.программа должна определять день недели

День недели по числу и месяцу.
Похожих решение нашел массу, одно из них на этом же форуме. Например:...

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

Определить день недели по введенному дню
1 мая 2006 года – это день недели понедельник. Вводится любая дата месяца май. Определить день...

Определить день недели своего рождения
По введенной текущей дате (число, месяц и год), текущем дне недели, дате (число, месяц и год)...

Определить день недели, соответствующий заданной дате
Вам дана некоторая дата в 21веке. Определить день недели, соответствующии этой дате. Учтите, что 1...

Определить день недели по введенному числу месяца
Прощу помощи у программистов ) Задача такая: Введите с клавиатуры число от 1 до 31 ( день...

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