)) дано вещественное число a и целое число n (> 0 вывести все целые степени числа a от 1 до n.

var

  a, r: real;

  n, s: integer;

begin

  s : = 1;

  write('a = '); readln(a);

  write('n = '); readln(n);

  r : = a;

  while r < = n do

  begin

      writeln(s);

      inc(s);

      r : = r * a;

  end;

  if a > n then

      writeln(a , ' в любой степени > = 1 будет больше числа ', n);

end.

     

 

Language Integrated Query (LINQ - Language Integrated Query) - проект Microsoft по додаванню синтаксису мови запитів, що нагадує SQL, в мови програмування платформи .NET Framework. LINQ випущена разом з Visual Studio 2008 у кінці листопада 2007 року.

LINQ є набором функцій, що розширюють можливості запиту в синтаксисі мови C# і Visual Basic. LINQ надає стандартні шаблони для створення запитів і оновлення даних; технологія може бути розширена для підтримки потенційно будь-якого типу джерел даних (масиви, колекції, бази даних, документи XML, сутності (Entity)).  

Архітектура LINQ показана на рис. 18.1.

Принцип LINQ полягає в тому, що усі елементи мови повинні виконувати одну і ту саму роботу незалежно від джерела даних. Проте, не дивлячись на те, що синтаксис працює з усіма типами джерел даних, постачальник запиту, що зв'язує дані з самим джерелом даних, може реалізувати цю поведінку по різному.

{pascalabc}

program puzzle;

var  

  r,day: integer;  

  week: array[1..7] of string;

  i: integer;

  s: string;

begin

  week[7]: ='воскресенье';

  week[6]: ='суббота';

  week[5]: ='пятница';

  week[4]: ='четверг';

  week[3]: ='среда';

  week[2]: ='вторник';

  week[1]: ='понедельник';

  s: ='**** -=alphaeus=- ****';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; writeln('ок, задумайте день недели (номер от 1 до 7)');

  writeln('удвойте этот номер');

  writeln('увеличьте результат на 5');

  writeln('умножьте полученное число на 5');

  writeln('теперь то, что получилось, умножьте на 10');

  writeln('введите полученный результат'); readln(r);

  day: = round((r-250)/100);

  writeln('**************************************');

  case day of

    1..7: writeln('       вы задумали ',week[day]);

    else writeln('что-то пошло не либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')

  end;

  writeln('**************************************');

end.