Архив рубрики: Информатика

Даны числа A и В. Вычислить произведение P = 3*A+1*B·4*A+2*B· …· 53*A+51*B. Решение задачи в Паскале

Даны числа A и В. Вычислить произведение  P = (3*A+1*B)·(4*A+2*B)· …· (53*A+51*B).

Решение задачи в Паскале

  • var a,b,ml,i:longint;
    begin
    readln(a);
    readln(b);
    ml:=1;
    for i:=1 to 51 do begin
         ml:=ml*((i+2)*a+i*b);
         // можно тут добавить чтобы увидеть writeln(ml);
    end;
    writeln(ml);
    end.

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

Уууу.! напишите программу для создания и закрашивания кораблика !

Прошууууу………………
ПОМОГИТЕ!!!!!!!!!
Пожалуйста напишите программу для создания и закрашивания кораблика  !!!

  • если это надо сделать в pascal abc то вот:
    uses  graphABC;
    begin  setpencolor(clblue); 
     line(200,50,300,50);
    line(300,50,300,200);
    line(300,200,200,200);
    line(200,200,200,50);
    line(400,50,500,50);
    line(500,50,500,200);
    line(500,200,400,200);
    line(400,200,400,50); 
     setpencolor(clblack);
    line(500,50,600,200);
     line(300,50,400,200);
     setpencolor(clgreen);
     line(300,200,400,200); 
    line(100,200,200,200); 
    line(100,200,200,400); 
    line(200,400,500,400); 
    line(500,400,600,200); 
    line(600,200,500,200); 
    setpencolor(clred); 
    Circle(250,300,30);
     circle(250,300,15);
    end.

1 Количество единиц в двоичной записи десятичного числа 1023 2 количество значащих нулей в двоичной записи десятичного числа 501

Помогите пожалуйста)

1) Количество единиц в двоичной записи десятичного числа 1023 

2) количество значащих нулей в двоичной записи десятичного числа 501

  • 1) 1023 = 1111111111, 10 единиц
    2) 501 = 111110101, 2 значащих нуля

    Решение

    Первая задача
    Из десятичной в двоичную можно переводить двумя способами:

    1.     
    Сразу переводить в двоичную делением.


    2.     
    Переводить в 16-ичную, после уже в двоичную.

    Первый способ:

    В скобках высчитывается остаток от деления.

    1)     
    1023 div 2 = 511 (1023
    – (511*2) = 1)


    2)     
    511 div 2 = 255 (511 – (255*2) = 1)


    3)     
    255
    div 2 = 127 (255 – (127*2) = 1)


    4)     
    127
    div 2 = 63 (127 – (63*2) = 1)


    5)     
    63
    div 2 = 31 (63 – (31*2) = 1)


    6)     
    31
    div 2 = 15 (31 – (15*2)
    = 1)


    7)     
    15
    div 2 = 7 (15 – (7*2) = 1)


    8)     
    7
    div 2 = 3 (7 – (2*3) = 1)


    9)     
    3
    div 2 = 1 (3 – (1*2) = 1)


    Итого 1023 (10) = 1111111111 (2)

     

    Второй способ: сначала переводим в 16-ичную

    1)     
    1023 div 16 = 63 (1023 – (63*16) = 15)


    2)     
    63
    div 16 = 3 (63 – (3*16) = 15)


    3 (16) = 0011 (2)

    15 = F (16) = 1111 (2)

    1023 (10) = 3FF (16) = 001111111111 (2)
    Отбрасываем незначащие
    нули в начале числа и получаем 1111111111 (2)

    Вторая задача
    Во втором задании перевод так же можно совершить 2мя
    способами, но я воспользуюсь вторым, так как он короче и быстрее.

    1)     
    501 div 16 = 31 (501 – (31*16) = 5)


    2)     
    31
    div 16 = 1 (31 – (1*16) = 15)


    1 (16) =
    0001 (2)

    5 (16) =
    0101 (2)

    15 = F (16)
    = 1111 (2)

    501 (10) =
    1F5 (16) = 000101011111 (2).

    Отбрасываем незначащие нули в начале числа, получаем
    101011111 (2)

  • 1) Семь
    2) Три
    Решение могу записать в комментарии, если нужно

!ответить на теств ячейку введены символы СУММG4:HКАК Excel воспримет эту информацию? аформула—стекстбошибка—дчислов ячейки

срочно!!помогите!!
ответить на тест
1.в ячейку введены символы СУММ(G4:H5).КАК Excel воспримет эту информацию?
а)формула—с)текст
б)ошибка—д)число
2.в ячейки F6,F7,G6,G7 введены соответств.числа:10,3,4,2..в ячейке введена формула =СУММ(F6:G7).КАКОЕ ЧИСЛО БУДЕТ В ЯЧЕЙКЕ H5?
А)19—с)7
б)15—д)5
3.в ячейки B4,B5,C4,C5 введенЫ соответств. числа:10,7,6,5.в ячейку введена формула =СРЗНАЧ(В4:С5).Какое число будет в ячейке С7?
а)2—с)15
б)7—д)28
4.выберите верную запись формулы для электронной таблицы
а)С3+4*D4—с)А5В5+23
б)С3=С1+2*С2—д)=А2*А3-А4
5.В ячейку Е2 введена формула =С2+D1.Содержимое Е2 скопировали в ячейку Е6.какая формула буде в Е6?
а)=С5+D4—c)=C7+D6
б)=С6+D5—д)=С4+D3
6.при перемещении или копировании в электронной таблице абсолютные ссылки
а)преобразуются вне зависимости от нового положения формулы
б)не изменяются
с)преобраз.в зависимости от нового положения формулы
д)преобраз.в зависимости от правил,указанных в формуле
7.в каком адресе не может меняться номер столбца
а)13S—c)H42
б)Z$9—д)$S35
8/При перемещении или копировании в электр таблице относит ссылки
а)преобраз вне зависимости от нового положения формулы
б)преобраз в завис от длины формулы
с)не изменяются
д)преобраз. в зависимости от нового положения формулы




  • 1


    c) текст





    2


    А) 19





    3


    б) 7





    4


    д) =A2*A3-A4





    5


    б)=C6+D5





    6


    б) не изменяются





    7


    д) $s35





    8


    д) преобраз. в зависимости от нового положения формулы


Через какое минимальное количество лет сумма цифр года будет такой же, как и у текущего 2011 года? Выберите правильный ответ: A 1 Б

Через какое минимальное количество лет сумма цифр года будет такой же, как и у текущего 2011 года?

Выберите правильный ответ:               

 
 
 
 
 
 A) 1
 Б) 5
 В) 9
 Г) 18
 Д) 25

 

  • 2011-сумма цифр 4.
    Переберем варианты ответа.
    2011+1=2012, сумма — 5 — не подходит
    2011+5=2016, сумма -9 — не подходит
    2011+9=2020, сумма 4 —  подходит
    2011+18=2029, сумма 13 — не подходит
    2011+25=2036, сумма 11 — не подходит
    Ответ:В 

Ребят, . написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C10, не меньших 10

Ребят, помогите очень срочно. Нужно написать программу на паскале. Вычислить среднеарифметическое четных элементов массива C(10), не меньших 10

  • var
    c:array[1..10] of integer;
    SrAr:real;
    k, i, s:integer;
    begin
    s:=0;{Обнуляем счетчик элементов(к) и сумму(s)}
    k:=0;
    randomize;
    for i:=1 to 10 do {заполняем массив}
     c[i]:=random(50);
    for i:=1 to 10 do
     if (c[i] mod 2=0) and (c[i]>10) then {если элемент массива четный и больше 10 увеличиваем счетчик к, увеличиваем сумму s} 
       begin
       k:=k+1; 
       s:=s+с[i];
       end;
    SrAr:=s/k;
    for i:=1 to 10 do {выводим массив}
    write(c[i], ‘ ‘);
    writeln;
    writeln(‘Sr.Arifmeticheskoe=’, SrAr:5:2);
    end.

Написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям. Вид экрана:вычисление сто

написать программу определения стоимости разговора по телефону с учетом скидки 20% представляемой по субботам и воскресениям.
Вид экрана:
вычисление стоимости разговора по телефону (2р. — 1мин)
введите исходные данные
длительность разговора (целое число минут) 3
день недели ( 1-пон …. 7-воскр)? 6
предостовляется скидка 20%
стоимость разговора 4.80р

  • program gt;
    var n,a:integer;
    s:real;
    begin
    readln(n);
    readln(a);
    case a of
    1..5:
    s:=n*2;
    6:
    s:=10.4;
    7:
    s:=10.8;
    end;
    writeln(s);
    end.

    n-число минут
    a-день недели
    если case не проходили то можно сделать if
    program gt;
    var n,a:integer;
    s:real;
    begin
    readln(n);
    readln(a);
    if(a<6)then s:=n*2;
    if(a=6)then s:=10.4;
    if(a=7)then s:=10.8;
    writeln(s);
    end.

Pascal. Массивы. Найти максимальный элемент и его номер

Pascal. Массивы. Найти максимальный элемент и его номер.

  • program D1KPxx0;
    uses crt;
    var
    a:array [1..10] of integer;
    i,max,k:integer;
    begin
    for i:=1 to 10 do
    begin
    a[i]:=random(101);
    write(a[i],’ ‘);
    end;
    max:=a[1];
    for i:=1 to 10 do
    if max<a[i] then
    begin
    max:=a[i];
    k:=i;
    end;
    writeln(‘    ‘,max);
    writeln(k);
    end.

    Первый элемент считается нулевым) хотя проверь все))) может в конце просто K+1 вывести надо) не помню) мне влом)

  • В переменной max_num находится текущее максимальное значение массива, а в max_index – его индекс