При регистрации вы получаете доменное имя третьего уровня. Сайты с подобными доменами индексируются поисковыми системами хуже чем домены второго уровня, и в поисковой выдаче будут представлены на более низких позициях. Стоит помнить об этом, если вы все же планируете использовать свой сайт в коммерческих целях.Низкая скорость загрузки сайта. На бесплатном хостинге количество пользователей ресурсов сервера значительно больше, чем на платном, поэтому в особо нагруженные часы вашему сайту может не хватить ресурсов, что повлияет на скорость его загрузки. Этот фактор также может негативно сказаться на продвижении сайта в поисковых сетях.Отсутствие прав собственника и реклама. Фактически вы не являетесь собственником своего web-ресурса и в худшем случае хостер может заблокировать или удалить его по собственному желанию. Также, как уже было упомянуто выше, хостер имеет право разместить рекламу на вашем сайте.Маленькое дисковое пространство. Для начала работы вам может хватить того объема ресурсов, который предоставляет бесплатный хостинг. Однако, если вам потребуется больше места для ваших файлов, вам придется искать хостинг с большим объемомо ресурсов.При возникновении вопросов по работе вашего хостинга вам, скорее всего, придется решать их своими силами. Техническая поддержка присутствует на бесплатном хостинге, однако время ожидания ответа растягивается на несколько дней, что не допустимо в работе коммерческого проекта.Соответствие системным требованиям. Бесплатный хостинг может не поддерживать различные скрипты языков программирования, необходимых для корректной работы вашего сайта или CMS.
Delphi у меня 7-й версии. будет чем проект открыть? Код модуля в файле Unit1.pas.
P.S. Что-то zip не грузится, код - ниже:
procedure TForm1.Button1Click(Sender: TObject); var N1, N2, N3: Real; begin //Проверок на введённе значения для простоты не делаю N1:=StrToFloat(Edit1.Text); N2:=StrToFloat(Edit2.Text); N3:=StrToFloat(Edit3.Text);
if N1<0 then N1:=N1*N1*N1*N1 else N1:=N1*N1; if N2<0 then N2:=N2*N2*N2*N2 else N2:=N2*N2; if N3<0 then N3:=N3*N3*N3*N3 else N3:=N3*N3;
Пронумеруем дни недели числами от 0 до 6 (0-Вс, 1-Пн, .. 6-Сб).
var dow:0..6; begin Write('Введите номер дня недели (0-Вс, 6-сб): '); Read(dow); case dow of 0:Writeln('Воскресенье, выходной'); 1:Writeln('Понедельник, 6 уроков'); 2:Writeln('Вторник, 6 уроков'); 3:Writeln('Среда, 7 уроков'); 4:Writeln('Четверг, 6 уроков'); 5:Writeln('Пятница, 6 уроков'); 6:Writeln('Суббота, 6 уроков'); else Writeln('Введено неверное значение') end end.
Тестовое решение: Введите номер дня недели (0-Вс, 6-сб): 5 Пятница, 6 уроков