Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Вычислить значение выражения Решить 2умя способами: с использованием цикла с параметром и одного из двух других типов цикла Даны действительное число а, натуральное число n. Вычислить: P=a(a+1)*....*(a+n-1) https://www.cyberforum.ru/ turbo-pascal/ thread246264.html Turbo Pascal Подсчитать количество элементов массива, значения которых больше заданного числа К
Помогите решить с парочкой задач на массивы. 1. Подсчитать количество элементов значения которых больше заданного числа К (К ввести с клавиатуры) 2. Заменить все положительные элементы массива на 0, а остальные вывести на экран 3. Вывести на экран номера элентов массива, значения которых равны заданному числу М, а сами значения из массива удалить. На экран вывести заданный и получившийся...
Turbo Pascal Проверить, верно ли, что каждый член последовательности больше своего номера Исходные данные вводить из текстового файла. и рез-т работы программы также поместить в текстовый файл. 1) дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за первый семестр. напечатать номера отличников(оценки не ниже 8). 2) Дана последовательность чисел а1, а2...а n. проверить верно ли что каждый член этой последовательности больше своего номера. Благодарю за ранее!!! https://www.cyberforum.ru/ turbo-pascal/ thread246242.html Turbo Pascal Free Pascal и Pascal ABC https://www.cyberforum.ru/ turbo-pascal/ thread246213.html
Здравствуйте! Не могли бы вы подсказать чем отличается Free Pascal и Pascal ABC. На чём лучше писать? Спасибо!
Определить, доплыла ли лодка до берега Turbo Pascal
соствить программу которая работает с любым ускорением и сообщает что лодка не доплыла до озера. это программа которая была до нее, которая работает с отрицательным ускорением) program aggaa; uses wincrt; var S,v1,v2,a1,a2,t,t1,t2:real; L:boolean; procedure KWUR(a,b,c:real; var L:boolean; var x1,x2:real); var D:real; begin D:=sqr(b)-4*a*c; 		Turbo Pascal Вычислить значение выражения Доброго всем времени суток. Поскажите. как задать такую формулу: https://www.cyberforum.ru/ turbo-pascal/ thread246192.html
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread246179.html
Задание смотрите во вложении там вордовый документ! 		Пошаговая детализация Turbo Pascal
найти длины диагоналей прямоугольника, противоположные вершины которого находятся в точках A(x1,y1) и B(x2,y2). При неправильном вводе значений, вывести на экран сообщение об ошибке и предложением повторно ввести правильные данные. Результат отобразить на экране. Добавлено через 4 часа 15 минут Вот готовая программа ее нужно решить через процедуру: uses crt; var x1,x2,y1,y2:real; function...
Turbo Pascal Записи, Задать правельно значения, Запутался [Pascal] https://www.cyberforum.ru/ turbo-pascal/ thread246145.html
Задача: Составить структуру, содержащую информацию о студентах факультета: указав фамилию и год рождения, а также, если это мужчина, то сообщить, военнообязанный ли он, а если это женщина, то указать, замужем ли она, городские, иногородние, имеющие жилплощадь, нуждающиеся в общежитии. Определить количество студентов нуждающихся в общежитии.Я запутался как описать "да, нет" , "город , село" и... 		Turbo Pascal записать цикл по примеру https://www.cyberforum.ru/ turbo-pascal/ thread246143.html
Здравствуйте помогите записать цикл по данному примеру
Не могу решить контрольную Turbo Pascal
Циклические вычислительные процессы. Вычисление значений функции при различных значениях аргумента (табулирование функции) Составьте блок-схемы алгоритмов решения задач и программы на языке PASCAL разными способами с использованием: 1) операторов условного (IF) и безусловного переходов (GOTO); 2) цикла с предусловием (WHILE); 3) цикла с постусловием (REPEAT); 4) цикла с параметром (FOR); ... 		Turbo Pascal Реализовать цикл While при помощи операторов for to https://www.cyberforum.ru/ turbo-pascal/ thread246117.html
добрый день существует часть цикла, реализованная при помощи операторов while do A:=l; b:=2; while (a>l) and (b<=12) do B:=b+l-a; А:=а+1; существует ли возможность реализовать данный цикл при помощи операторов for to
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
21.02.2011, 16:07 0

По заданному числу и номеру месяца вывести количество дней до конца года - Turbo Pascal - Ответ 1388042

21.02.2011, 16:07. Показов 2555. Ответов 11
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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

uses crt;
var d,m,g,i,k,k2:integer;
    vis:boolean;
begin
clrscr;
repeat
write('Год: ');readln(g);
until g>0;
{определим високосный или нет}
vis:=((g mod 100<>0)and(g mod 4=0))or(g mod 400=0);
repeat
write('Месяц: ');readln(m);
until m in [1..12];
repeat
k:=0;
write('День: ');readln(d);
if(d<1)or(d>31) then k:=1;
if(m in [4,6,9,11]) and(d>30)then k:=1;
if(m=2) and vis and(d>29) then k:=1;
if(m=2) and not vis and(d>28) then k:=1;
until k=0;
if vis then k2:=60 else k2:=59;
case m of
1:k:=d;
2:k:=31+d;
3:k:=k2+d;
4:k:=k2+31+d;
5:k:=k2+61+d;
6:k:=k2+92+d;
7:k:=k2+122+d;
8:k:=k2+153+d;
9:k:=k2+184+d;
10:k:=k2+214+d;
11:k:=k2+245+d;
12:k:=k2+275+d;
end;
if vis then write('До конца года осталось дней=',366-k)
else write('До конца года осталось  дней=',365-k);
readln
end.


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

По номеру месяца для текущего года вывести количество дней в этом месяце
Составить блок-схему алгоритма и программу: 1.1. Перераспределить значения переменных X и Y так,...

По номеру месяца для текущего года вывести количество дней в этом месяце
Составить блок-схему алгоритма и программу: 1.3. По номеру месяца для текущего года вывести...

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

По заданному номеру месяца m вывести на печать название времени года.
По заданному номеру месяца m вывести на печать название времени года.

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

По заданному номеру месяца вывести на печать название времени года
2.По заданному номеру месяца m вывести на печать название времени года.Выполнить в Турбопаскале.

По номеру месяца вывести количество дней в месяце
Я знаю вам не сложно, а мне очень очень нужно!!! Пожалуйста помогите!!! 1. Составить блок-схему...

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

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

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