Составьте диалоговую программу по предложенному сценарию: - ! меня зовут электроша. а тебя ? - ваня. - приятно с тобой, ваня, познакомится. а давай поиграем в города. назови столицу франции. если в ячейку введена строка "токио", то вывести на экран "ты хорошо играешь", иначе - вывести "ты ошибся" решить по системе паскаля

Var
name : string;
city     : string;

begin
writeln("Привет! Меня зовут Электроша. А тебя?");
readln(name);
writeln("Приятно с тобой, "+name+" познакомиться. А давай поиграем в города. Назови столицу Франции.");
readln(city);
if(city = "Париж") then writeln("Ты хорошо играешь.")
   else writeln("Ты ошибся!");

readln();

end.

Можно код сделать покороче, если ты об этом.

program tri;

var

a, b, c: real;

begin

writeln('Введите a,b,c:');

readln(a, b, c);

if (a > 0) and (b > 0) and (c > 0) then

begin

if (a = c) and (b = c) and (a = b) then

writeln('Треугольник равносторонний') ;

if (((a = b) and (b <> c)) or

((b = c) and (b <> a)) or

((c = b) and (c <> a))) then

writeln('Треугольник равнобедренный');

if (a <> b) and (c <> b) and (a <> c) then

writeln('Треугольник произвольный') ;

end

else

writeln('такого треугольника нет') ;

end.

Ну вот, на 5 строчек короче, но смысл тот же.

Изменения:

Использовал if.. else вместо двух if при проверке положительности сторон. Собрал 3 if при проверке на равносторонность в один if.

Компьютер, как и говорится в его названии (computer - вычислитель) служит для автоматизации процессов вычисления и обработки информации (которую можно, как оказалось, представлять количественно, в виде цифр).

Это позволяет автоматизировать большое количество рутинной работы, которая раньше выполнялась вручную.

Например, можно не тратить бумажки для хранения данных, а использовать базу данных, ускоряя доступ к данным посредством математических свойств данных.

Или не считать вручную выручку за квартал на предприятии, а использовать MS Excel для автоматических расчетов. Тот же Excel позволяет сразу вместе с расчетами полученные данные оформить в виде документа и отправить "на стол" начальству, а не идти из одного офиса в другой.

Помимо офисной работы автоматизируется также процесс производства. Начиная от черчения чертежей в Autocad (а не вручную, как раньше) и заканчивая полностью или наполовину автоматизированным производством деталей, посредством разработки встраиваемых систем или написания пакета программ для автоматизации.

Или сопровождение процесса работы. Например, расчет давления в подводящих трубах во избежание взрыва основной трубы. (Делается посредством решения огромной системы линейных уравнений с огромной разрежанной матрицей).

В целом, потенциал развития и применения компьютерных технологий огромен.