begin clrscr; writeln('Что вы хотите сделать?'); writeln('1-сложить 2-отнять 3-разделить 4-умножить'); readln(c); if c = 1 then begin read(a, b); writeln(a + b) end else if c = 2 then begin read(a, b); writeln(a - b) end else if c = 3 then begin read(a, b); writeln(a / b) end else if c = 4 then begin read(a, b); writeln(a * b); end else write('Так, стоп, че за фигня? Где то тут меня надурили...'); readkey end.
Но короче и понятнее это написать так: uses crt;
var a, b, c: integer;
begin ClrScr; Writeln('Что вы хотите сделать?'); Write('1-сложить 2-отнять 3-разделить 4-умножить'); Readln(c); if (c >= 1) and (c <= 4) then begin Write('Введите через пробел два натуральных числа: '); Read(a, b); case c of 1: Writeln(a + b); 2: Writeln(a - b); 3: Writeln(a / b); 4: Writeln(a * b) end; end else Write('Так, стоп, че за фигня? Где то тут меня надурили...'); ReadKey end.
Графические информационные модели Карта как информационная модель. Во-первых, карта описывает конкретную местность, которая является для нее объектом моделирования. Во-вторых, это графическая информация. Карта созда-ется с определенной целью: с ее можно добраться до нужного населенного пункта. Кроме того, используя линейку и учитывая масштаб карты, можно определить расстояние между различны-ми пунктами. Однако никаких более подробных сведений о населенных пунктах, кроме их положения, эта карта не дает. Образные модели Образные модели (рисунки, фотографии и др. ) представляют собой зрительные образы объектов, зафиксированные на каком-либо носителе информации (бумаге, фото- и кинопленке и др.) . Широко используются образные информационные модели в обучении, где требуется классификация объектов по их внешним признакам (вспомните учебные плакаты по ботанике, биологии и физике) . Информационные модели. Информационные модели представляют объекты и процессы в образной или знаковой форме, а также в форме таблиц, блок-схем, графов и т. д. Материальные модели. Предметные модели позволяют представить в материальной наглядной форме объекты и про-цессы, недоступные для непосредственного исследования (очень большие или очень маленькие объекты, очень быстрые или очень медленные процессы и др.) . Материальные и информационные модели Все модели можно разбить на два больших класса: материальные модели и информационные мо-дели.
begin
Writeln(17*'_','.888888888.');
Writeln(17*'_','88"P""T"T888_8o');
Writeln(13*'_','o8o_8.8"8_88o."8o_8o');
Writeln(12*'_','88_._o88o8_8_88."8_88P"o');
Writeln(11*'_','88_o8_88_oo.8_8 88_8_888_88');
Writeln(11*'_','88_88_88o888"_88"__o888_88');
Writeln(11*'_','88."8o."T88P.88"._88888_88');
Writeln(11*'_','888."888."88P".o8_8888_888');
Writeln(11*'_','"888o"8888oo8888_o888_o8P"');
Writeln(12*'_','"8888. ""888P"P.888".88P');
Writeln(13*'_','"88888ooo__888P".o888');
Writeln(15*'_','""8P"".oooooo8888P');
Writeln(6*'_','.oo888ooo.____8friga888P8');
Writeln('____o88888"888"88o.__"8888"".8f___.oo888o o..');
Writeln('_____8f88"_"88_88888._______8r".o88888888" 888.');
Writeln('_____"8r88o.""o_88"88o.____oi".888"888" 88_"88P');
Writeln(6*'_','T8i8C.oo._"8."8"8___og"o888_o88"_" .=888"');
Writeln(7*'_','88g88888o_"8_8_8__.a_.8"88_8"".o888 o8P');
Writeln(8*'_','"8a88C.o8o__8_8__8"_8_o"_...o""" 8888');
Writeln(10*'_','"88888888_"_8_.8__8___88888888888 "');
Writeln(12*'_','"8888888o__.8o="_o8o..o(8oo88".');
Writeln(16*'_','"888"_88"____88FRIGA88"".');
Writeln(20*'_','o8P_______"888"""');
Writeln(14*'_','...oo88');
Writeln('_____"8oo...oo888""')
end.