Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

Помогите с паскалем , вот задание ,пожалуйста

10-11 класс

Lime1200 18 нояб. 2016 г., 5:52:39 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
LINA56
18 нояб. 2016 г., 6:26:35 (7 лет назад)

var
  S: real;
  i, k, l: integer;
begin
  S := 1;
  for i := 1 to 12 do
  begin
    k := 1; l := 1;
    while (k <= i) do
    begin
      l := l * 3;
      k := k + 1;
    end;
    S := S + 1 / l;
  end;
  writeln(S);
end.
-------------
function len(s: integer): byte;
var
  i, l: byte;
begin
  l := s;
  while (l > 0) do
  begin
    l := l div 10;
    inc(i);
  end;
  len := i;
end;

var
  i: integer;
begin
  i := 3;
  repeat
    i := i * 3;
  until (len(i) = 6);
  writeln(i);
end.
---------------
var
  D, x: real;
  y: integer;
begin
  readln(x);
  if (x > 0) then
    for y := 1 to 5 do
      D := D + (y + cos(x))
  else
  begin
    D := 1;
    while (y <= 10) do
    begin
      D := D * (y - x);
      inc(y);
    end;
  end;
  writeln('D = ', D);
end.

Ответить

Другие вопросы из категории

какие из перечисленных ниже устройств входят в состав "минимальной конфигурации" компьютера?:

принтер, процессор, клавиатура, звуковая карта, монитор, оперативная память, устройство CD-ROM? Почему?
(на угад б я так смогла наставить, меня больше интересует вопрос "почему?" Не разочарует только полный ответ)

сравните 2Мбайт и 2056Кбайт
Известны длины сторон двух прямоугольников. Вычислить Площади прямоугольников и сравнить их .Определить,является ли прямоугольники квадратами. Выясни

ть поместится ли один прямоугольник внутрь другого. ( Программный код нужно писать в Паскале!)

1) Одномерный массив из 6 элементов заполнить случайным образом числами от 5 до 17. Поменять местами 5-ый и 7-ой элементы массива, а 4-ый элемент

увеличить в 3 раза. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.

Пожалуйста, помогите составить программу массива.

Читайте также

помогите пожалуйста нужна программа Паскаль вот задача (При каждом переходе через волшебный мост мужик, имеющий b рублей, удваивает эту сумму за счет

капитала черта (а рублей), стерегущего этот мост, после чего он должен уплатить черту дань в размере с рублей. Процесс этот продолжается до полного разорения одного из участников.Сколько будет совершено переходов моста?). вот блок схема пожалуйста сроочноо

программа на C++ в визуальном режиме (есть несколько вариантов кода программы)

доброй ночи, уважаемые программисты и успевающие в учебе студенты. помогите, пожалуйста, написать программу на C++ (в визуальной вкладке).

ВОТ ЗАДАНИЕ:
дано три переменные вещественного типа. если их значения упорядочены по возрастанию или убыванию, то удвоить их; иначе заменить значение каждой переменной на противоположное. вывести значения переменных.


я прикрепила несколько тестовых файлов (блокнот) в которых есть несколько вариантов решение этого задание (то есть коды программ), а вы скажите какой из них лучше всего подходит, а также скажите какие компоненты нужно кинуть на форму-дизайн (то есть какие кнопки, и что на них писать). в этих 3 файлов есть написанный код программы, нужно написать: на какие кнопки что писать и какой вариант решение больше подходит.

заранее огромное спасибо всем за помощь!!!

Помогите с паскалем, у меня практика, это очень срочно...

1. Вычислите выражение при заданных константах: A=16.5; b=3.4; x=0.61; S=x^3tg^2(x+b)^2+a/√x+b; Q=bx^2-a/e^a^x-1





2.

Составить программу вычисления значения функции. На экран вывести функцию (записанную на Паскале) вместе с результатом.


у={a+b+cx^2,если 1<=x<2
(a*sin(xb))^2,если 2<=x<3
под корнем |a+bx^2|+c ,если 3<=x<4
a*ln|b+c/2x| ,если 4<=x<5
e^esinx+c^3 ,если 5<=x<6


Пожалуйста...



Вы находитесь на странице вопроса "Помогите с паскалем , вот задание ,пожалуйста", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.