Procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
Вот пример всем программыprogram znanijatop;const null = 0;
procedure s(n,ans:integer);
begin
if n<>0 then begin
ans:=ans+n+n-1;
s(n-1,ans);
end
else
writeln(ans);
end;
var n:integer;
begin
writeln('vvedite n');
readln(n);
s(n,null);
end.
12022, 1222, 989, 90899, 9000
Виды операционных систем
Вычислительная техника - Инструкция пользователя ПК
Операционная система - это комплекс программ, который обеспечивает управление аппаратными средствами компьютера, организует работу с файлами (в том числе запуск и управление выполнением программ), а также реализует взаимодействие с пользователем.
Windows – семейство проприетарных операционных систем корпорации Майкрософт (Microsoft), базирующихся на основе графического интерфейса пользователя
Плюсы: широко известна, существует много приложений написанных именно под эту ОС
Недостатки: платная, большое количество вирусов, написанных под эту ОС. В настоящее время ИжГТУ закуплена лицензия на использование данной ОС попрограмме MSDN AA (использование лицензии допустимо только для учебного процесса)
Linux - это бесплатная современная операционная система, создаваемая независимыми разработчиками по всему миру.
Плюсы: бесплатный, нет необходимости покупать как сам пакет (можно скачать из Интернета, взять диск у знакомых и т.д.), так и лицензию на него, доступный, легко осваиваемый, удобный в использовании, содержит в своем составе весь необходимый для работы набор прикладных программ, безопасный (почти не существует вирусов).
Недостатки: в ряде случаев в среде Linux невозможно найти полноценные аналоги прикладных программ для Windows, необходимость изучения новой для большинства пользователей среды.
Для использования внутри ВУЗа рекомендуется применять дистрибутив ALT Linux или openSUSE.
Program task;
var i,a,b,h:longint;
begin
writeln('a?');
readln(a);
writeln('b?');
readln(b);
writeln('h?');
readln(h);
i:=a;
while (i<=b) do begin
writeln(sin(i)*sin(i));
i+=h;
end;
readln;
end.
Program n1;
//Название программы
var i,n,sum: integer;
//Объявление переменных
begin
//Начало
readln(n);
//Ввод n (количество чисел) и и переход на следущую строку
sum:=0;
//Присваивание переменной sum знаяения 0 (изначально сумма равна 0)
for i:=1 to n do sum:=sum+2*i;
//В цикле от 1 до n к переменной
//sum прибавляем 2*i, т.е. 1*2+2*2+3*2+..n*2=2+4+6+..+2n;
writeln(sum);
//Ввод sum (cумма первых n целых положительных четных чисел)
//и и переход на следущую строку
end.
//Конец
