Страница 4 из 6 ПерваяПервая 123456 ПоследняяПоследняя
Показано с 46 по 60 из 79

Тема: Информатика: помощь по предмету

  1. #46
    Администратор, Консультант по математике
      За вклад в развитие форума 2006, Лучший знаток физики 2007, Самый активный автор месяца. Август 2007, Лучший консультант 2007, Лучший супермодератор 2007, Народный модератор раздела "Наука и Образование" 2008, Лучший супермодератор 2008, Лучший консультант 2008
    Аватар для Trotil
    Регистрация
    15.12.2005
    Адрес
    град Москва
    Сообщений
    5,890
    Записей в блоге
    26
    Спасибо
    я - 57; мне - 380
    Частное - это целое число...

    P.S. Я сегодня детально не смогу помочь (мало времени). Какой срок сдачи задачния?
    Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.

  2. #47
    Мышка
    Гость
    Trotil
    До понедельника помогите пожалуйста!!! Хотя бы парочку задачек.

  3. #48
    Фанат Симс
      Симс2-модельер. Зима 2007: карнавальные наряды для девочек
    Аватар для Deep Sin
    Регистрация
    15.06.2006
    Сообщений
    2,000
    Записей в блоге
    2
    Спасибо
    я - 223; мне - 310
    3. Написать программу, которая проверяет, делится ли на три целое число, введенное с клавиатуры.

    var n:integer;
    begin
    readln(n);
    if n mod 3=0 then writeln('да') else writeln('нет');
    readln;
    end.

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

    var a,b,c:integer;
    x1,x2,d:real;
    begin
    readln(a,b,c);
    if a=0 then writeln('уравнение не квадратное') else begin
    d:=sqrt(b*b-4*a*c);
    if d<0 then writeln('уравнение не имеет корней');
    if d=0 then begin x1:=(-1*b)/(2*a); writeln(x1);end;
    if d>0 then begin x1:=(-1*b)-d/(2*a); x2:=(-1*b)+d/(2*a);writeln(x1,' ',x2);end;
    end
    readln;
    end.

    4. Написать программу, которая вычисляет сумму первых n членов ряда 1,2,3,5,7,... Количество суммируемых членов ряда задается во время работы программы.

    Не поняла последовательности... Может, вместо 7 стоит 8?

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

  4. #49
    Мышка
    Гость
    Deep Sin
    Спасибо большое!!! Действительно очень помогла!!!!

  5. #50
    rassel
    Гость
    Помогите пожалуйста. Надо написать программу в TurboPasсal, которая нарисует месяц.

  6. #51
    Администратор, Консультант по математике
      За вклад в развитие форума 2006, Лучший знаток физики 2007, Самый активный автор месяца. Август 2007, Лучший консультант 2007, Лучший супермодератор 2007, Народный модератор раздела "Наука и Образование" 2008, Лучший супермодератор 2008, Лучший консультант 2008
    Аватар для Trotil
    Регистрация
    15.12.2005
    Адрес
    град Москва
    Сообщений
    5,890
    Записей в блоге
    26
    Спасибо
    я - 57; мне - 380
    Ключевая функция:

    Ellipse(X,Y,BAngle,Eangle,XRad,YRad);

    X,Y - координаты центра, Bangle и Eangle - начальный и конечный углы дуги (в радианах), XRad,Yrad - горизонтальный и вертикальных радиус эллипса.
    Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.

  7. #52
    alena-yalymova
    Гость
    Здравствуйте. Пожалуйста помогите решить 4 задачки в Паскале. Я в этом вообще ни чего не понимаю. Если можно то сделайте до 5.04.2007 (субботы)
    №1. Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7
    №2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2
    №3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.
    №4 Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.

  8. #53
    alena-yalymova
    Гость
    Здравствуйте. Пожалуйста помогите решить 4 задачки в Паскале. Я в этом вообще ни чего не понимаю. Если можно то сделайте до 5.04.2007 (субботы)
    #1. Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7
    #2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2
    #3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.
    #4 Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.

  9. #54
    Пушистое чудо
    Гость

    Внимание Помогите с ДЗ, плиз. Срочно!

    Можете кто-нибудь помочь написать 2 программки по информатике?

    1)Дан двухмерный массив. определить есть ли в данном массиве столбец, в котором равное количество положительных и отрицательные элементов.
    (Free Pascal)

    2) Сформировать двухерный массив:
    1 2 3 4 5 6
    2 3 4 5 6 1
    3 4 5 6 1 2
    4 5 6 1 2 3
    5 6 1 2 3 4
    6 1 2 3 4 5
    (Free Pascal)

  10. #55
    Груша
    Гость
    Помогите мне пожалуйста=((
    Не могу понять почему не работает программа=(( Паскаль постоянно выдаёт ошибки...
    Вот задача и прога
    2)Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти столбец с наименьшей суммой элементов и заменить все элементы этого столбца этой суммой.
    Реш.
    Uses Crt;
    Const NMAX=100;
    Type
    Vector=array[1..NMAX] of integer;
    Matrix=array[1..NMAX] of Vector;

    var
    a:matrix;
    n,m:byte;
    b:vector;

    Procedure InputM(var M:matrix;str:byte;sto:byte);
    var
    i,j: integer;
    begin
    for i := 1 to str do
    for j := 1 to sto do
    m[i,j]:=random(20);

    end;


    procedure PrintM(var M: Matrix;str:byte; sto:byte;s:string);
    var
    i,j: integer;
    begin
    writeln(s);
    for i := 1 to str do
    begin
    for j := 1 to sto do write(M[i,j]:4,' ');
    writeln;
    end;
    end;

    Procedure Summ(var M:matrix;str:byte;sto:byte;s1:string);
    var j,i:byte;
    s:word;
    begin
    writeln(S1);
    for j:=1 to sto do
    begin
    s:=0;
    for i:=1 to str do
    begin s:=s+m[i,j]; end;
    b[j]:=s;
    write(b[j],' ');
    end;
    end;

    Function MinJ(var V: Vector;sto:byte):byte;
    var
    min,mini: integer;
    j: integer;
    begin
    min := V[1];
    mini := 1;
    for j := 2 to sto do
    if V[j]<min then
    begin
    min := V[j];
    mini := j;
    end;
    MinJ:=mini;
    end;
    Function MinS(var V: Vector;sto:byte):byte;
    var
    min,mini: integer;
    j: integer;
    begin
    min := V[1];
    mini := 1;
    for j := 2 to sto do
    if V[j]<min then
    begin
    min := V[j];
    mini := j;
    end;
    MinS:=min;
    end;


    procedure MinSt(var M1: Matrix; str:byte);
    var
    i: integer;
    mini: integer;
    begin
    for i := 1 to str do
    begin
    M1[i,MinJ(b,m)] := MinS(b,m);
    end;
    end;

    Begin
    CLRSCR;
    writeln('‚ўҐ¤ЁвҐ Ї®а冷Є ¬ ваЁжл');
    read(n,m);
    InputM(a,n,m);
    PrintM(a,n,m,'?б室- п ¬ ваЁж ');
    summ(a,n,m,'‘г¬¬л Ї® бв®«Ўж ¬');
    writeln;
    Writeln('Ќ®¬Ґа бв®«Ўж б ¬Ё-Ё¬ «м-®© б㬬®©');
    Writeln(MinJ(b,m));
    Writeln('ЊЁ-Ё¬ «м- п б㬬 ');
    Writeln(minS(b,m));
    writeln;
    MinSt(a,n);
    PrintM(a,n,m,'Њ ваЁж Ї®б«Ґ § ¬Ґ-л');
    readkey;
    end.

  11. #56
    Старожил
    Приз симпатий форумчан 2010 (Душка форума), Новогодний костюмер 2011
      "Новичок 2006" , Лучший модератор раздела "Искусство и Литература" 2006, Народный модератор 2006, Народный лидер клуба 2007, Лучший модератор раздела "Творчество" 2007, Лучший консультант 2008, Народный лидер клуба 2008, Лучший модератор раздела "Творчество" 2008, "За вклад в развитие форума 2008", Лучший организатор конкурсов и викторин 2008, Душка форума 2008, Самый полезный участник раздела "Наука и Образование" 2009, Лучший консультант 2009, Лучший модератор раздела "Творчество" 2009, Душка форума 2009, Самый полезный участник раздела "Наука и Образование"2010, Лучший блоггер miXei.RU 2010, Лучший модератор раздела "Творчество" Проза 2011. Проницательное око
    Аватар для Оладушка
    Регистрация
    05.03.2006
    Адрес
    Первопрестольная, улица Ср
    Сообщений
    7,802
    Записей в блоге
    36
    Спасибо
    я - 1,215; мне - 1,167
    Груша, не надо дублировать темы, это запрещено нашими правилами. Достаточно того, что ты оставила свой вопрос здесь. Если кто-то сможет тебе помочь, то обязательно ответит.

  12. #57
    Груша
    Гость
    Ясно буду знать=_)

  13. #58
    Группа удаления Аватар для *Sky*
    Регистрация
    15.07.2009
    Адрес
    Россия
    Сообщений
    87
    Спасибо
    я - 4; мне - 0

    Информатика

    Пожалуйста, помогите решить задание. Я эту тему вообще не поняла, а завтра надо уже сдавать(

    1)
    Построить таблицу истинности:

    a)не А и B или B и C
    _
    А ^ B v B ^C
    A=1
    B=0
    C=1

    b) A и B и C или не C
    _
    A v B v C ^ C

    2)
    Логическое уравнение
    _ ____
    a) (x1+x3)*x1=x1*x2*x3
    __ __ __
    b) x2*x3+x1*x2=(x1+x2)*x2

    В первом черточка над С

    Во втором
    a)черточка над х3 после равно х1,х2
    b)черточка над х2,х2 после равно и после скобок над х2

  14. #59
    Фанат Симс Аватар для -.безумный Шляпник
    Регистрация
    06.11.2009
    Сообщений
    287
    Спасибо
    я - 121; мне - 45
    До экзамена осталось 2 дня. Одну задачу я сделала, но осталась вот эта. Как к ней подступиться не знаю. Задачу надо сделать в екселе, используя в ней формулы ВПР и СУММЕСЛИ.

    Составить таблицы следующего вида:
    Справочник библиотечных изданий
    Инвентарный номер Наименование книги Автор Цена

    Справочник читателей
    Номер чита-тельского би-лета Инвентарный номер Дата выдачи Фактическая дата возвра-та Номер телефона

    Заполнить первые две таблицы. С помощью справочных таблиц должна автоматически заполняться результирующая таб-лица.
    Возврат книг в библиотеку
    Номер читательского билета Дата возврата Штраф

    Штраф в размере 10 % взимается тогда, когда книга нахо-дится у читателя больше месяца.
    Привести круговую диаграмму о наличии в библиотеке книг одного и того же автора, автоматически корректируемую при изменении данных в исходной таблице.
    Вывести наименование самой дорогой книги, хранящейся в библиотеке.

  15. #60
    VeeOla
    Гость
    Помогите решить задание такое: Y=a/n 〖*x〗^2+b*x+ln⁡〖x/n〗 на интервале xЄ [a1; a2]

Страница 4 из 6 ПерваяПервая 123456 ПоследняяПоследняя

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •