Переписать текст в word и выполнить задания для каждого абзаца. Языки программирования Всю вторую половину года мы подробно обсуждали в нашем журнале различные методологии и технологии создания программного обеспечения. Начав тему концептуальной статьей «Сбор и базар», в которой анализировался относительно новый подход к разработке ПО, известный как стиль «базара», мы продолжили разговор, рассмотрев более традиционные технологии разработки и различные стандарты, по которым сертифицируется качество процессов разработки. Однако мы еще не остановились подробно на таком основном инструментарии разработки ПО, каким являются языки программирования. Пришло время заполнить этот пробел. Конечно, мы и раньше печатали статьи с описанием отдельных языков программирования, однако на этот раз мы решили собрать вместе краткие характеристики около 20 языков, чтобы дать возможность нашим читателям получить по возможности целостное представление о современном состоянии этой важнейшей области компьютерной технологии. Конечно, на практике используется гораздо больше двадцати языков. А если учесть еще языки, создаваемые с чисто исследовательскими целями, то их множество станет совершенно необозримыми. Мы просто физически не могли бы затронуть все языки. И все же мы надеемся, что наш образ будет полезен. Возможно, кому-то сведенные воедино в нашем образе короткие характеристики языков скорректировать картину современного программирования. А если, прочитав одно из описаний, вы заинтересуетесь языком и захотите познакомиться с ним подробнее, мы будем считать свою задачу выполненной. Большинство обзоров сопровождаются примерами программ. Их цель – продемонстрировать характерный вид кода, написанного на рассматриваемых языках программирования, и пояснить некоторые заложенные в них идеи. Для того чтобы облегчить сопоставление различных языков, мы постарались на каждом из них реализовать один и тот же пример. Нами была выбрана задача, в которой требовалось ввести со стандартного ввода или из файла ряд целых чисел, а затем вывести только нечетные из них, причем в обратном порядке следования. Это одна из простых задач, которая существенным образом требует для своего решения работы с массивами, циклами, ветвлением и вводом/выводом, а также позволяет продемонстрировать вызовы подпрограмм. При этом она обозрима и легко воспринимается.
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen; var a,b,c,d:integer; begin writeln ( 'Введите число, которое будем возводить в степень' ); readln (a); c:=a; writeln ( 'Введите число, обозначающее степень, в которую будем возводить'); readln (b); for d:= 2 to b do a:=a*c; if b=0 then writeln(1) else writeln (c,' в степени ',b,' = ',a); end.
Непонятно, что за "надписи".
Предположим, что
1. "бабушка попросила"
2. "взяла лукошко"
3. "подошла к кусту"
4. "сорвала ягоду"
5. "сварили варенье"
тогда логика задачи будет следующей
бабушка попросила
Если Маша согласилась тогда
взяла лукошко
подошла к кусту
Если куст с ягодами Тогда
Пока (на кусте есть ягоды) и (лукошко пустое) Цикл
сорвала ягоду
КонецЦикла
КонецЕсли
сварили варенье
КонецЕсли
В принципе, если несколько кустов, нужен цикл обхода по кустам пока не наполнится лукошко.
Я бы написал по другому
Program vozvedenie_v_stepen;
var a,b:integer;
begin
writeln ('Введите число, которое будем возводить в степень');
readln (a);
writeln ('Введите число, обозначающее степень, в которую будем возводить');
readln (b);
Writeln (a,' в степени ',b,' = ',exp(b*ln(a)));
end.
Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...
Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.