Администраторы группы

  • Аватар

Олимпиада по информатике. Готовимся побеждать!

Открытая группа активность: 3 дн., 13 ч. назад

Группа для тех, кто намеревается побеждать на районных и региональных олимпиадах по информатике.
Здесь можно будет найти олимпиадные задания, задачи повышенной сложности, обсудить оптимальные алгоритмы решений
Памятка для участников олимпиады

Сайт Информатикс – регистрирууемся, решаем, продвигаемся в рейтинге

Программирование на Pascal. (записей: 7)

← Форум группы   Все форумы
  • Аватар Alcaine - 3 мес. назад:

    Здесь будут выкладываться различные коды на языке программирования Pascal.

  • Аватар CHEWBACCA - 3 мес. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=319#1
    По данному действительному числу a и натуральному n вычислите сумму 1+a+a^2+…+a^n, не используя формулу суммы геометрической прогрессии. Время работы программы должно быть пропорционально n.

    var n,i,a,c,b:longint;
    begin
    readln(a,n);
    b:=1;
    c:=0;
     for i:=1 to n do
     begin
      b:=b*a;
      c:=c+b;
     end;
      writeln(c+1);
    end.
    
  • Аватар CHEWBACCA - 3 мес. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=321#1
    По данному числу n вычислите сумму 4(1-1/3+1/5-1/7+…+(-1)^n/(2n+1)).

    var a,b,c:real;
    i,n: longint;
    begin
     readln(n);
     c:=-1;
     b:=0;
     for i:=1 to n do
     begin
      a:=(c*-1)/(2*i+1);
      b:=b+a;
      c:=-c;
     end;
      b:=1-b;
      writeln(b*4);
    end.
    
  • Аватар CHEWBACCA - 3 мес. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=320#1
    По данному числу n вычислите сумму 1+1/2^2+1/3^2+…+1/n^2.

    var a,b:real;
    i,n: integer;
    begin
     readln(n);
     a:=1;
     b:=4;
     for i:=1 to n do
      a:=(a*-1)/(2*n+1);
      writeln(a*b);
    end.
    

    Тут явно еще требуется доработка….

  • Аватар 永遠の雨 - 4 дн., 3 ч. назад:

    https://informatics.msk.ru/mod/statements/view3.php?id=278&chapterid=352#1
    Напишите программу, вычисляющую 2 N.

    var
    	n,a :integer;
    	m: longint;
    	begin
    	 readln (n);
    	 m:=1;
    	 for a:= 1 to n do
    	 	m:=m*2;
    	 writeln (m)
    
    	 end.
    
  • Аватар root - 3 дн., 13 ч. назад:

    永遠の雨,

    1. Опять типо «движок» обгрыз ввод?
    Рекомендую использовать фичу стандарта html типа «таблицы спецсимволов».
    Или тупо подходящие тэги.
    «2N» должно смотреться куда лучше.

    2. Ещё есть жизненно-злободневный вопрос. О валидации введённых данных функцией readln.
    Хотя, он наверное не совсем про тип данных integer.
    Но A, B, C, D, E и F — вполне себе целые числа ☺

  • Аватар root - 3 дн., 13 ч. назад:

    Как занятно выглядит ситуация смеси BB-кодов с html-тэгами…

    «2ˆN»