Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2018, 16:47   #1
Александр121
Форумчанин
 
Регистрация: 17.09.2017
Сообщений: 265
По умолчанию 100р нужно исправить код.

запускаю программу когда в воду дату например 10.01.1990 всё работает
потом в ввожу время рождения например 10.00.00 и программа крашится


вот условия задачи если нужно

Создать программу работы с типом TDateTime. Она должна запрашивать дату и время рождения студента, выводить
текущие дату/время, запрашивать желаемое время дальнейшего обучения, выводить дату/время и день недели конца
обучения.

Код:
program Prg_2_3;
{$APPTYPE CONSOLE}
uses
   SysUtils;
var
   Date_1,Date_2,Time,DateTime:string;
   DateTime_1,DateTime_2:TDateTime;
   Day:integer;
begin
 
 
 
 
 
 
  writeln('Vvedite datu rozhdenija v formate den.mesjac.god');
  readln(Date_1);
  writeln;
  writeln('Vvedite vremja rozhdenija v formate chasy.minuty.sekundy');
  readln(Time);
  writeln;
  DateTime:=Date_1+Time;
  DateTime_1:=StrToDateTime(DateTime);
  DateTime_2:=Now;
  writeln('Segodnja ',DateTimeToStr(Now));
  writeln;
  writeln('Skolko dnej eshhe hotite uchitsja?');
  readln(Day);
  writeln;
  DateTime_2:=DateTime_2+Day;
  Day:=DayOfWeek(DateTime_2);
  writeln('Vy stanete sovsem umnym ',DateToStr(DateTime_2));
  writeln('Jeto budet dennedeli nomer ',Day);
  readln;
end.
Александр121 вне форума Ответить с цитированием
Старый 19.04.2018, 17:03   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

попробуйте так:
Код:
program Prg_2_3;
{$APPTYPE CONSOLE}
uses
   SysUtils;
var
   Date_1,Date_2,sTimeBirth,DateTime:string;
   DateTime_1,DateTime_2:TDateTime;
   Day:integer;
   is_valid : boolean;
begin
  repeat
    writeln('Vvedite datu rozhdenija v formate den.mesjac.god');
    readln(Date_1);
    writeln('Vvedite vremja rozhdenija v formate chasy:minuty:sekundy');
    readln(sTimeBirth);
    is_valid := TryStrToDateTime(Trim(Date_1)+' '+Trim(sTimeBirth), DateTime_1);
    if Not is_valid then WriteLn('Oshibka vvoda! Nevernая data / vremay !');
  until is_valid;
  writeln('Vy rodilisb v ', FormatDateTime('dd.mm.yyyy hh:mm:ss', DateTime_1));

  DateTime_2:=Now;
  writeln('Segodnja ',DateTimeToStr(Now));
  writeln;
  writeln('Skolko dnej eshhe hotite uchitsja?');
  readln(Day);
  writeln;
  DateTime_2:=DateTime_2+Day;
  Day:=DayOfWeek(DateTime_2);
  writeln('Vy stanete sovsem umnym ',DateToStr(DateTime_2));
  writeln('Jeto budet dennedeli nomer ',Day);
  readln;
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 19.04.2018, 17:10   #3
Avazart
Форумчанин
 
Аватар для Avazart
 
Регистрация: 13.08.2011
Сообщений: 184
По умолчанию

Serge_Bliznykov, Попробуйте не давать ответов во фрилансе.
Avazart вне форума Ответить с цитированием
Старый 19.04.2018, 17:36   #4
Александр121
Форумчанин
 
Регистрация: 17.09.2017
Сообщений: 265
По умолчанию

работа выполнена)) напишите как с вами можно связаться)
Александр121 вне форума Ответить с цитированием
Старый 19.04.2018, 18:03   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Avazart Посмотреть сообщение
Попробуйте не давать ответов во фрилансе.
а может я деньги зарабатываю?!


Цитата:
Сообщение от Александр121 Посмотреть сообщение
напишите как с вами можно связаться)
написал в личку.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужно исправить код melkaya9112 Помощь студентам 1 09.12.2010 00:56
нужно исправить код Alt_Shift Общие вопросы C/C++ 4 14.11.2010 16:16
[C++ масиви] Нужно исправить код basav1k Помощь студентам 1 02.06.2010 22:21
[C++ масиви] Нужно исправить код loloverg Общие вопросы C/C++ 1 01.06.2010 19:16