Ты в условном операторе не указал что должно проверяться... И к тому же нет begin и end;. Также переменную t: string; сделай, так как иначе не выйдет.
У тебя: readln; <- к тому же не указал что надо писать. if t then <- что это такое? Ошибка. writeln('Введите коеффициент "a"'); readln (a); writeln('Введите коeффициент "b"'); readln (b); writeln('Введите коeффициент "c"'); readln (c); d := b*b-4*a*c;
Должно быть:
program Pr1;
const H = 'Здравствуйте, '; var a,b,c,d: real; name, t: string;
Begin writeln('Введите свое имя:'); readln(name); writeln(H, name, ', вас приветствует программа-калькулятор квадратного уравнения' ); writeln('Введите коеффициент "a"'); readln (a); writeln('Введите коeффициент "b"'); readln (b); writeln('Введите коeффициент "c"'); readln (c); d := b*b-4*a*c; if d=0 then begin writeln ('X1,X2 =', (-b+sqrt(d)/(2*a))); end; if d<0 then begin writeln ('D<0, корней нет'); end; if d>0 then begin writeln('D = ', b*b-4*a*c); writeln ('X1 =', (-b+sqrt(d)/(2*a))); writeln ('X2 =', (-b-sqrt(d)/(2*a))); end; writeln ('Хотите воспользоваться калькулятором еще раз? Введите T(Да)\F(Нет)'); readln(t);
t := t.ToLower;
if t = 'да' then begin writeln('Введите коеффициент "a"'); readln (a); writeln('Введите коeффициент "b"'); readln (b); writeln('Введите коeффициент "c"'); readln (c); d := b*b-4*a*c; end else за использование!');
if d=0 then begin writeln ('X1,X2 =', (-b+sqrt(d)/(2*a))); end;
if d<0 then begin writeln ('D<0, корней нет'); end;
if d>0 then begin writeln('D = ', b*b-4*a*c); writeln ('X1 =', (-b+sqrt(d)/(2*a))); writeln ('X2 =', (-b-sqrt(d)/(2*a))); end; end.
Компьютерная сеть - это совокупность компьютеров, взаимосвязанных через каналы передачи данных для обеспечения обмена информацией и коллективного доступа пользователей к аппаратным, программным и информационным ресурсам сети.
В общем случае для создания компьютерных сетей требуется наличие линии связи между компьютерами (канала передачи данных), специального аппаратного обеспечения (сетевого оборудования) и специального программного обеспечения (сетевых программных средств). Компьютерные сети предназначены:
• для обмена данными между ПК;
• для совместного использования вычислительных ресурсов. Ресурсы бывают трех типов:
• аппаратные (принтер, емкости жестких дисков);
• программные;
• информационные.
Когда все участники небольшой компьютерной сети пользуются общим принтером, то они разделяют общий аппаратный ресурс. В сети может находиться один компьютер с увеличенной емкостью жесткого диска (файл-сервер), на котором участники сети хранят свои архивы и результаты работы. В этом случае аппаратным ресурсом является внешняя память сетевого компьютера. Другой распространенный пример: предоставление услуг хостинга - возможности размещенияweb-страниц и других пользовательских файлов на сервере в Интернет.
Пример совместного использования программных ресурсов: для выполнения очень сложных и продолжительных расчетов возможно подключение к удаленной большой ЭВМ, при этом существует возможность отправить на нее вычислительное задание, а по окончании расчетов точно так же получить результат обратно.
Информационные ресурсы образуют данные (текст, графические изображения, аудио- и видеоинформация), хранящиеся на удаленных компьютерах. Пример: Интернет воспринимается как гигантская информационно-справочная система.
Различают следующие виды компьютерных сетей:
• локальные, которые используются для обмена информацией между ПК, расположенными на ограниченной территории (удаленными на небольшие расстояния) в пределах одного здания или в рамках одной организации. При этом, как правило, используются проводные линии связи;
• региональные, связывающие компьютеры отдельной страны или экономического региона;
• глобальные, используемые для связи компьютеров разных стран, континентов.
Глобальная сеть Интернет - это всемирное объединение различных региональных и корпоративных компьютерных сетей, образующих единое информационное пространство благодаря использованию общих стандартных протоколов передачи данных.
Основной стандартный протокол в Интернете – TCP/IP(-InternetProtocol).
Протокол - совокупность правил и соглашений, регламентирующих формат и процедуру передачи данных между двумя или несколькими независимыми устройствами или процессами. Выбор протокола ТСРЛР был обусловлен исторически.
