Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Определить, сколько нулей находится до минимального значения в массиве https://www.cyberforum.ru/ turbo-pascal/ thread1356563.html
Определить сколько нулей находиться до минимального значения в массиве E и среднее арифметическое положительных чисел, находящихся после минимального значения Эту программу надо написать со встроенным ассемблером и эту же программу модульным программированием! 		Найти среди элементов массива два, разность которых имеет наибольшее значение Turbo Pascal
Сформировать целочисленный массив из 75 элементов. Значение элементов должны находиться в диапазоне от -5 до 20. Найти среди элементов массива два, разность которых имеет наибольшее значение. и блок-схему. Добавлено через 11 часов 19 минут UpUp..
Turbo Pascal Сортировка массивов (Сортировка слов по алфавиту) https://www.cyberforum.ru/ turbo-pascal/ thread1356527.html
Объясните мне сортировку слов по алфавиту .Сравнивать целиком слова нельзя ?Есть ли какой нибудь быстрый способ?Какие то полезные функции или еще что то при сортировки?Такой же вопрос к сортировки строки по возврастанию длины слов . 		Turbo Pascal Преобразовать массив так, чтобы сначала располагались все элементы, целая часть которых не превышает единицу В одномерном массиве, состоящем из n вещественных элементов, вычислить\ 1)Преобразовать массив таким образом, чтобы сначала располагались все элементы, целая часть которых не превышает единицу, а потом – все остальные. uses crt; type mas=array of real; var n:mas; i,j,k:integer; p,s,x:real; begin clrscr; https://www.cyberforum.ru/ turbo-pascal/ thread1356490.html
Написать программу, меняющую местами все четные и нечетные слова в строке Turbo Pascal
Задана строка символов , содержащая два или более слов ,разделенных пробелами.Написать программу ,меняющую местами все четные и нечетные слова в строке ,предполагая ,что за один раз можно менять местами не более двух символов. Не совсем понятно задание .Четные ,нечетные слова в смысле по счету?И как менять за один раз не более двух символов? 		Turbo Pascal Вставка нового элемента списка после элемента (Нужно объяснение) Дано задание объяснить все строчки этого кода, понял только саму идею, может кто-то поможет. type Ptr=^count; count=Record Key:integer; Next:ptr; end; var p,q,first,l:ptr; n,m,k,i:integer; begin writeln('Размер списка'); https://www.cyberforum.ru/ turbo-pascal/ thread1356482.html
Turbo Pascal Сумма трехзначного числа 1 апреля в газете "Кузнецкий рабочий" была опубликована реклама, в которой предлагались компьютеры втрое дешевле, чем в других местах. Адрес сообщался по телефону, про номер которого было сказано: "Сумма трехзначного числа, вы- ражаемого первыми тремя цифрами, и второго, выражаемого тремя последними цифрами, меньше 1000". Сколько времени у вас уйдет на выяснение адреса, если на один... https://www.cyberforum.ru/ turbo-pascal/ thread1356420.html Определить средний балл по институту Turbo Pascal
решите пожалуйста задачу в паскале и нарисуйте блок-схему кому не трудно. Дана ведомость абитуриентов, сдавших вступительные экзамены в институт. В каждой строке данной ведомости записана фамилия абитуриента и полученные им оценки по отдельным 5 дисциплинам. Необходимо определить средний балл по институту и распечатать список абитуриентов, средний балл которых выше среднего балла по институту.
Turbo Pascal Определить, сколько куплено тех и других тетрадей Вера купила тетради по N рублей и по Т рублей за тетрадь, всего на сумму S рублей. Сколько куплено тех и других тетрадей? Найти все решения https://www.cyberforum.ru/ turbo-pascal/ thread1356310.html Turbo Pascal Подсчитать количества элементов в матрицах Х, Y и Z, значения которых находятся в интервале [–3, 15] https://www.cyberforum.ru/ turbo-pascal/ thread1356277.html
Задания к работе. В приведенных заданиях ввод исходных данных и их контрольный вывод оформить как процедуры, а обработку – в виде функции или процедуры.
Нужен полет фейерверка и его взрыв Turbo Pascal
Салют должен вылетать снизу и взрываться 		Turbo Pascal В масиве поменять местами два фрагмента массива От позиции k до позиции p и до позиции s . например , если есть массив 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 k=5, m=8, p=13, s=19 то результатом перестановки будет масив 1 2 3 4 13 14 15 16 17 18 19 9 10 11 12 5 6 7 8 20 https://www.cyberforum.ru/ turbo-pascal/ thread1356230.html
Эксперт Pascal/Delphi
2386 / 1298 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
20.01.2015, 07:20 0

Определить номер недели с начала года по введенной дате - Turbo Pascal - Ответ 7126398

20.01.2015, 07:20. Показов 2179. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено D1986 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

var
  d,m,n,i,w:integer;
begin
  write('Введите день:');readln(d);
  write('Введите месяц:');readln(m);
  n:=d;
  for i:=1 to m-1 do
    case i of
      1,3,5,7,8,10: n:=n+31;
      2: n:=n+28;
      else n:=n+30;
    end;
  w:=n div 7;
   if n mod 7<>0 then w:=w+1;
    writeln(w,' неделя');readln;
end.


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

Работа с датой: по введенной дате определить время года, номер декады месяца
написать программу установки и вывода даты, используя понятие класса. По введенной дате определить...

По текущей дате и дню недели определить день недели с такой же датой заданного года
По текущей дате и дню недели определить день недели с такой же датой заданного года. (C++ )

По дате вычислить номер дня с начала года (с Pascal на Assembler)
Требуется перевести данную программу на язык Assembler; Сделал только часть. Не могу понять как...

По введенной дате определить день недели
мы вводим число,месяц, год, а программа нам выдает какой это будет день недели.

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

Определить день недели по введенной дате
Цель задачи: Вводим дату и программа показывает день недели. var a,b,c: integer; ...

По введенной дате определить день недели
всем привет, начинаю учиться писать программки, вот получила задачу,нужно написать программу где...

По введенной дате рождения определить день недели
Используя оператор выбора Select Case: По введенной дате рождения сообщить пользователю, в какой...

Как определить день недели по введенной дате
У меня есть ,например,значение дня,месяца и года. int day=5,month=11,year=2000 Можно ли с...

По введённой дате определить квартал года
по введённой дате определить квартал года

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

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