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

  • Аватар

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

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

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

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

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

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

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

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

    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 - 7 мес. назад:

    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 - 7 мес. назад:

    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 мес. назад:

    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 - 4 мес. назад:

    永遠の雨,

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

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

  • Аватар root - 4 мес. назад:

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

    «2ˆN»

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

    Стоимость покупки
    Пирожок в столовой стоит a рублей и b копеек. Определите, сколько рублей и копеек нужно заплатить за n пирожков.
    Входные данные
    Программа получает на вход три числа: a, b, n.
    Выходные данные
    Программа должна вывести два числа: стоимость покупки в рублях и копейках.
    var a,b,c,w:longint;
    begin
    readln(a,b,c);
    w:=(a*100)+b;
    w:=w*c;
    a:=w div 100;
    w:=w mod 100;
    writeln(a,’ ‘,w);
    end.

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

    Не про не к ночу будь помянут паскаль, но про общезначимую проблему правильного и обоснованного выбора типов данных:

    longint для копеек (в пакете с рублями, то есть в ситуации, когда наибОльшее действительное значение равно 99) — это сильно.

    Послезнанием пока не делюсь ☺

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

    Разность времен
    https://informatics.msk.ru/mod/statements/view3.php?id=2296&chapterid=2952#1

    var a,b,c,d,e,f,g,h,i:longint;
    begin
    readln(a,b,c,d,e,f); 
    
    b:=b*60;
    a:=(a*60)*60;
    
    e:=e*60;
    d:=(d*60)*60;
    
    h:=a+b+c;
    g:=d+e+f;
    
    i:=g-h;
    writeln(i);
    end.
    
  • Аватар LukasTrickster - 3 мес., 3 нед. назад:

    Автопробег
    https://informatics.msk.ru/mod/statements/view3.php?id=2296&chapterid=2953#1

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

    дело в том, что на информатиксе при попытке выставить не longint выдаёт ошибку и ставит не 100 баллов

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

    CHEWBACCA, а я предупреждал, что кармадрочерство — зло.
    И ещё бОльшее зло в умножении уровней абстракции без достаточных на то оснований.

    Впрочем, аналогичные и даже более грубые ляпы давно ходят по нормативным документам. А иногда и в инструкциях встречаются. ☹
    Например опус от профессионалов синекуры «информационной безопасности» о недопустимости использования групповых учётных записей.

    Локальный компиллятор в помощь!
    Максимальные значения для типа данных longint в паскале от архитектуры зависят?

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

  • Аватар 永遠の雨 - 3 мес., 3 нед. назад:
    [/pascal]
    https://informatics.mccme.ru/mod/statements/view.php?id=2585#1
    Var A,b:integer;
    Begin
    b:=0;
    Read(A);
    While A <> 0 do
    Begin
    Read(A);
    b:=b+1;
    End;
    Write(b)
    End.
    [pascal]
  • Аватар LukasTrickster - 3 мес., 2 нед. назад:

    Високосный год
    https://informatics.msk.ru/mod/statements/view3.php?id=276&chapterid=253#1

    var a:longint;
    begin
    read(a);
    
     if (a mod 4=0) and (a mod 100<>0) or (a mod 400=0)
     then write('YES')
     else write('NO');
    
    end.