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

Решить Задачу номер 2 способами вайл и repeat в турбо паскале

Помогите решить Задачу номер 2 способами вайл и repeat в турбо паскале .

  • для while

    var x,y :real;
    begin X:=0;
      while (x>=0)and (x<=(2 *Pi)) do begin
        y:=sin(x);
        writeln(‘x= ‘,x,’ y=’,y); {эту строку можно удалить, если ненадо значения выводить}
        X:=x+Pi/10;
        end;
    end.   

    Для repeat

    var x,y :real;
    begin X:=0;
      repeat    
        y:=sin(x);
        writeln(‘x= ‘,x,’ y=’,y);
        X:=x+Pi/10;
      until (X>2*Pi);
    end.  

Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный

Написать программу в паскале: Дано натуральное число n. Заменить порядок следования цифр числа n на обратный.

  • var
      n,x:string;
      i:integer;
    begin
    write(‘Введите число n: ‘);
    readln(n);
    for i:=length(n) downto 1 do x:=x+n[i];
    writeln(‘Обратное число: ‘,x)
    end.

    или можно так:

    var
      n:string;
    begin
    write(‘Введите число n: ‘);
    readln(n);
    writeln(‘Обратное число: ‘,ReverseString(n) )
    end.

  • var a, N: integer;
    begin 
        writeln(‘Введите число’); 
        readln(N); a:=0; 
        while N>0 do begin 
            a:=a*10+N mod 10;  
            N:=N div 10; 
          end; 
       writeln (a); 
       readln; 
    end.

Решить красворд Наглядный способ представления числовых данных. 9 букв рисунки, схемы, диаграммы позволяют представлять информацию

помогите решить красворд 
1. Наглядный способ представления числовых данных.  9 букв 
2. рисунки, схемы, диаграммы позволяют представлять информацию……
3. Позволяет представить, как устроены окружающие объекты и как они связаны с друг другом. 8 букв 
4. Помогает читателю очень быстро понять, о чём идёт речь, и создать в его представлении определённый образ. 11 букв 
5. Любое словесное высказывание, напечатанное, написанное или существующее в устной форме. 5 букв 
7. Диаграмма, данные на которые изображаются в виде секторов круга. 8 букв 
8. Форма представления однотипных данных. 7 букв
9. Диаграмма, данные на которой изображаются в виде вертикальных прямоугольников. 10 букв

  • Диаграмма, анимация, наглядно, таблица, схема, иллюстрации, текст, таблица, круговая, стол

  • диаграмма,анимация,наглядно,таблица,схема,иллюстрации,текст,таблица,круговая,столбчатая

Написать задачу на языке Паскаль:Даны действительные числа a, b, c, d. Если ac>d, то каждое число заменить средним арифметическим всех

Помогите написать задачу на языке Паскаль:
Даны действительные числа a, b, c, d. Если a<b<c<d, то каждое число заменить наибольшим из них. Если a>b>c>d, то каждое число заменить средним арифметическим всех значений. В противном случае все числа заменяются своими квадратами

  • var a,b,c,d,sr:real;
    begin
    read(a,b,c,d);
    sr:=(a+b+c+d)/4;
    if (a<b) and (b<c) and (c<d) then
      begin
      a:=d;
      b:=d;
      c:=d;
      end
    else
    if (a>b) and (b>c) and (c>d) then
      begin
      a:=sr;
      b:=a;
      c:=a;
      d:=a;
      end
    else
      begin
      a*=a;
      b*=b;
      c*=c;
      d*=d;
      end;
    write(a,’ ‘,b,’ ‘,c,’ ‘,d);
    end.
  • var
        a, b, c, d, sr: real;

    begin
        read(a, b, c, d);
        sr := (a + b + c + d) / 4;
        if (a < b) and (b < c) and (c < d) then
        begin
            a := d;
            b := d;
            c := d;
        end
        else if (a > b) and (b > c) and (c > d) then
        begin
            a := sr;
            b := sr;
            c := sr;
            d := sr;
        end
        else
        begin
            a := a * a;
            b := b * b;
            c := c * c;
            d := d * d;
        end;
        write(a, ‘ ‘, b, ‘ ‘, c, ‘ ‘, d);
    end.

Доброго всем вечера/дня! , с Информатикойзаписать программу в ПАСКАЛЬ! Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1

Доброго всем вечера/дня!Пожалуйста,помогите с Информатикой

записать программу в ПАСКАЛЬ(!)
Дано вещественное число — цена 1 кг конфет. Вывести стоимость 1, 2, …, 10 кг конфет.
И если не сложно,то с подробными объяснениями!!!

Всем заранее спасибо!!!)

  • program konfety;   
        var t: real;       
             i: integer;        
    begin
        WriteLn(‘Введите стоимость 1 кг конфет (в рублях): ‘);
        Read(t);
        for i := 1 to 10 do
            WriteLn(‘Стоимость ‘, i, ‘ кг конфет: ‘, i*t);
    end.

    Смысл такой:  — цена 1 кг конфет (вещественный тип real)
    — счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .

    WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.

    Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной  то значение, которое мы ввели.

    Далее идет цикл , который по сути вот что делает: 
    Для каждого целого i от 1 до 10 сделай вот что:
        Выведи на экран строку ‘Стоимость ‘, потом значение i, потом строку ‘кг конфет: ‘, потом число i умноженное на t

    После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.

    А дальше у нас end (последний end. всегда с точкой).

    Конец.

Дано: n-натуральное число longint. Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале

Дано: n-натуральное число (longint). Вычислить среднее геометрическое цифр больших единицы. Составить программу в Паскале 

  • var a,s,k:longint;
    begin
    readln(a);
    while (a<>0) do begin
      if a mod 10 <> 1 then begin
        k+=1;
        s+=a mod 10;
      end;
      a:=a div 10;
    end;
    writeln(s/k);
    end.
  • var
       n:longint;
       i,s,p,y:integer;
       t:string;
       x:real;
    begin
    write(‘Введите число: ‘);
    readln(n);
    p:=1;
    t:=IntToStr(n);
    for i:=1 to length(t) do
      begin
      y:=StrToInt(t[i]);
      if y>1 then
        begin
        s:=s+1;
        p:=p*y
        end;
      end;
    x:=exp(ln(p)/s);
    writeln(‘Среднее геом. цифр больших единицы: ‘,x)
    end.

, с информатикой. за любую помощь большое. Для объекта задан эффект «Выход». Что произойдет с объектомпосле окончания ан

Пожалуйста, помогите с информатикой..за любую помощь спасибо большое…
1.Для объекта задан эффект «Выход». Что произойдет с объектом
после окончания анимации?

a
. объект останется на слайде в неизменном виде
б. объект будет изменен в размере
в. объект не будет отображаться на слайде
г. объект будет перекрашен
2.
Цветное (с палитрой из 256 цветов) растровое графическое изображение имеет
размер 100*100 точек. Какой объем памяти займет это изображение? 

а. 10 000 бит
б
.25 600 байт
в. 9,77 Кбайт
г. 80 000 байт
3.Какое из указанный действий невозможно выполнить щелчком по
управляющей кнопке?

а. Загрузка Web-страницы с указанным адресом URL.
б. Запуск программы. 
в
. Переход к полноэкранному показу другой
презентации.
г. Открытие документа Word или таблицы Excel.
д. Все указанные действия можно выполнить.

  • Во 2 г
    Так как 256 = 2^8 значит i=8
    V = 8 * 100 * 100 = 80 000

Если умножить число 777 на число 143, то получится 6тизначное число, записываемое единицами. Найдите числа, на которые умножить число 777 чтобы

Если умножить число 777 на число 143, то получится 6тизначное число, записываемое единицами. Найдите числа, на которые нужно умножить число 777 чтобы получить 6тизначные числа записываемые:2ками, 3ками, 4ками, 5ками, 6ками, 7ками, 8ками, 9ками.Какой закономерности подчиняются эти числа?

  • 777*143=111111
    777*286=222222
    777*429=333333
    777*572=444444
    777*715=555555
    777*858=666666
    777*1001=777777
    777*1144=888888
    777*1287=999999
    —-
    Зависимость такая:
    143*1=143
    143*2=286
    143*3=429
    143*4=572

    143*9=1287
    т.е. 143*(n+1)