Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
06.11.2007, 15:11
|
|
Познающий
Регистрация: 20.08.2007
Сообщений: 54
Провел на форуме:
290115
Репутация:
25
|
|
Заставка оператор создайте заставку :
******************
* Программа *
* вычесления чисел *
* Автор: *
* *
* *
******************
На Паскале создайте пожалуйсто, если такое ваще реально создать. Буду очень благодарен
И еще : Вывести сумму числа введенного с клавиатуры с числом 10
|
|
|
06.11.2007, 15:45
|
|
Участник форума
Регистрация: 30.09.2006
Сообщений: 165
Провел на форуме:
535407
Репутация:
57
|
|
))))
тоесть заставку? всмысле под винду - и там типа в спящем режиме выводит вреальном времени? Или просто перед выполнением программы вывсти на экран)))
|
|
|
|
06.11.2007, 15:54
|
|
Познающий
Регистрация: 20.08.2007
Сообщений: 54
Провел на форуме:
290115
Репутация:
25
|
|
ну наверное перед выполнением программы вывести на экран и это две разные программы
|
|
|
|
06.11.2007, 16:01
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
Сообщение от TOLIA
И еще : Вывести сумму числа введенного с клавиатуры с числом 10
Код:
var
s:string;
a:integer;
begin
writeln('Vvedi 4islo');
readln(s);
a:=strtoint(s)+10;
writeln('rezultat '+inttostr(a)+' ...');
Writeln('Press Enter to continue');
Readln;
end.
И вот по поводу заставки!
P.S.Не бойся гугля он не кусается!
Последний раз редактировалось ZirroCool; 06.11.2007 в 16:06..
|
|
|
|
06.11.2007, 16:15
|
|
Познающий
Регистрация: 20.08.2007
Сообщений: 54
Провел на форуме:
290115
Репутация:
25
|
|
Спасибо, а вставить этот код в Делпхи 7 нормально будет ?
|
|
|
|
06.11.2007, 16:31
|
|
Участник форума
Регистрация: 16.09.2006
Сообщений: 139
Провел на форуме:
513709
Репутация:
144
|
|
Да не то что нормально,а в самый раз!))
|
|
|
|
09.11.2007, 00:25
|
|
Участник форума
Регистрация: 12.01.2007
Сообщений: 262
Провел на форуме:
4608122
Репутация:
874
|
|
2 helat
Сообщение от helat
http://www.kursovik.com/programming/109011.html
Расчет количества дней между датами
Программа расчитывает количество дней между двумя датами, заданных тремя чслами - год, месяц, день.
Расчет ведется по всем правилам, с учетом високосных годов.
нужен сабж на паскале (Pascal)
Вот тоже решил написать свой вариан. Когда тестил, использовал ссылку которую ты привел. Также проверил програмку от G1yuK (от Dumkopff запустить неудалось). Вывод такой - програмка приведенная по ссылке и предложеная G1yuK ошибается на единицу если второй (большей) датой ставим високосный год. Тестил на таких примерах:
1984.01.01 Первая дата
1984.02.29 Вторая дата
Результат = 59
Если ставим
1984.01.01 Первая дата
1984.03.01 Вторая дата
Результат = 59 (Тоже !!!!)
Хотя 1984 год есть високосный и разница между 1 января и 1 марта - 60 дней.
Если взять даты:
1984.01.01 Первая дата
1984.12.31 Вторая дата
Результат = 364 (неверно, должно быть 365!!!)
Если ставим
1984.01.01 Первая дата
1985.01.01 Вторая дата
Результат = 366 (Правильно, НО КУДА ДЕЛСЯ 365 день?)
Еще ты жаловался на "мудреный" код от Dumkopff.
Привожу свою реализацию. Алгоритм и код очень простой, и у меня нету этой ошибки в високосным годом. Прошу потестить может и я где ошибся 
Да и еще программа простая но есть минусы: не проверяет правильность введеной даты, не проверяет соответсвие дней месяцу т.е. можно написать 2000.02.35. Но при корректном вводе считает правильно (я надеюсь).
Код:
uses crt;
type
mymas=array[1..12] of integer;
const d1:mymas=(0,31,59,90,120,151,181,212,243,273,304,334); {Dlya NE vicokosnogo}
d2:mymas=(0,31,60,91,121,152,182,213,244,274,305,335); {Dlya vicokosnogo}
var data:string[10];
d:mymas;
god,mes,den,kol_v:integer;
kol_dney:array[1..3] of longint;
er,i:integer;{for error and cikl :)}
begin
clrscr;
for i:=1 to 2 do
begin
readln(data); {GGGG.MM.DD}
Val(Copy(data,1,4),god,er);
Val(Copy(data,6,2),mes,er);
Val(Copy(data,9,2),den,er);
{Proverka na "visokosnost"}
if ((god mod 4)=0) and (((god mod 100)<>0)or((god mod 400)=0)) then d:= d2 {Dlya vicokosnogo}
else d:= d1;{Dlya NE vicokosnogo}
kol_v:=((god-1) div 4)-((god-1) div 100)+((god-1) div 400);
kol_dney[i]:=god*365+kol_v+d[mes]+den;
end;
kol_dney[3]:=kol_dney[2]-kol_dney[1];
writeln(kol_dney[3],' Days');
write('HAI+IMUTE ''Enter'' DLYA BUXODA');
readln;
end.
Последний раз редактировалось Red_Red1; 09.11.2007 в 00:29..
|
|
|
|
Арифметическое выражение - Pascal |
09.11.2007, 18:11
|
|
Новичок
Регистрация: 08.11.2007
Сообщений: 2
Провел на форуме:
7470
Репутация:
0
|
|
Арифметическое выражение - Pascal
Помогите пжалста)
Строка символов представляет собой арифметическое выражение, состоящее из чисел, знаков арифметических операций(*, / , + , - ) и открывающихся и закрывающихся круглых скобок.Проверить его корректность
Реализация Pascal.
При этом соблюдается следующее:
1) Первым и последним символами должны быть числа или закрывающаяся скобка.
2) Перед и после арифметической операции должны быть числа или откр. скобка
3) Если скобка открывается, то она обязательно должна закрыться, кол-во скобок не ограничено.
4) Первой арифм. операцией должна выполнятся в скобках, затем умножение, деление, сумма, разность.
Слегка нудновато...но все же  |
|
|
|
12.11.2007, 03:24
|
|
Новичок
Регистрация: 11.11.2007
Сообщений: 2
Провел на форуме:
1029
Репутация:
0
|
|
Люди помогите плис с 3мя задачами на паскале
1)
дан 3х мерный массив Q(mxnxq) длинного типа. Умножить каждую строку страницы на столбец U(q) целого типа и посчитать в полученной матрице кол-во положительных, отрицательных и нулевыхэлементов
2)
в символьной строке заменить все гласные буквы на "_" , рассчитать кол-во цифр, русских, английских букв, а также остальных символов.
3)
список строк содержит наименования учебных дисциплин. Отфильтровать все недопустимые символыи сформировать список, содержащий только предметы, наименования которых начинаютса с согласной буквы. В сформированном списке рассчитать число слов и букв в каждом наименовании
|
|
|
|
12.11.2007, 21:47
|
|
Участник форума
Регистрация: 30.08.2006
Сообщений: 181
Провел на форуме:
1058786
Репутация:
45
|
|
Задание.
1. Определить структурный тип, содержащий следующие поля:
- символьный массив, используемый для хранения строки, например, с именем студента,
- указатель на тип char – для организации динамического массива, хранящего строку, например, с фамилией студента.
Остальные поля выбрать по варианту, приведенному в таблице 2.
Использовать одну из переменных для хранения некоторого идентификатора (номера); указатель на несимвольный тип – для организации динамического массива целых или плавающих чисел; другую переменную – для хранения размера этого массива;
Дополнить структурный тип любыми полями по своему выбору.
1. Переменная типа double;
2. Указатель на тип double;
3. Переменная символьного типа.
2. Определить функции:
• инициализации структуры;
• заполнения массива чисел;
• вывода на экран массива чисел;
• ввода информации в строки имени и фамилии и другие поля;
• вывода на экран всех полей структуры, кроме массива чисел;
• функцию освобождения динамической памяти.
У половины функций, по выбору студента, одним из аргументов должен быть указатель на структуру, у второй половины – ссылка на структуру.
3. Определить функцию main(), в которой создать:
• объект ранее определенного структурного типа
• указатель на этот структурный тип.
С помощью указателя создать динамический массив объектов структурного типа из 3-х – 4-х элементов.
Для объекта последовательно вызывать функции инициализации, заполнения массива чисел, ввода данных в остальные поля, показа массива, показа полей.
Для каждого элемента массива структур выполнить в цикле (for) функции инициализации, заполнения массива и ввода данных.
Вывести на экран содержимое полей каждого элемента массива структур в цикле (for) с помощью соответствующих функций.
В конце функции main() вызвать функцию освобождения памяти для объекта структурного типа и в цикле для каждого элемента массива объектов.
Удалить динамический массив.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
