Важная информация
Показано с 1 по 6 из 6

Тема: Вычислить и вывести на экран в виде таблицы значение функции F

  1. #1 Вычислить и вывести на экран в виде таблицы значение функции F 
    Новичок
    Регистрация
    14.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ! зачет! TURBO PASCAL!
    Вычислить и вывести на экран в виде таблицы значение функции F на
    AX^2+B+C A<0 и С неравно 0
    F(x)= -A/X-C при A>0 и C неравно 0
    BX/C-A в остальных случаях
    где A,B,C- действительные чимла
    Значение a,b,c,Xnach, Xkon,дельта X ввести с клавиатуры!
    PS F(x) там обьединение в фигурную скобку
    Последний раз редактировалось Konstantin Shcherba; 14.12.2011 в 23:40. Причина: Название темы должно быть осмысленным. Пока устное предупреждение.
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Скорее всего так:
    Код pascal:
    program aaa;
    uses crt;
    var a,b,c:real;
    xx,x,xk,xn,dx:integer;
    begin
    clrscr;
    textcolor(10);
    writeln('Vvedite A');
    readln(a);
    writeln('Vvedite B');
    readln(b);
    writeln('Vvedite C');
    readln(c);
    writeln('Vvedite Xnach');
    readln(xn);
    writeln('Vvedite Xkon');
    readln(xk);
    writeln('Vvedite Delta X');
    readln(dx);
    for xx:=round(xn / dx) to round(xk / dx) do
    begin
    x:=xx*dx;
    if (a>0)and(c<>0) then writeln('F(',x,')=',-a/x-c) else  writeln('F(',x,')=',b*x/c-a);
    end;
    readln;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    14.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо огромное! сделай еще хотя бы 1 пожалуйста!
    заранее благодарен!

    №2
    В одномерном массиве, состоящем из n вещественных элементов, вычислить сумму положительных элементов массива, упорядочить элементы по убыванию.
    №3 Описать структуру с именем STUDENT, содержащую следующие поля:

    a. ФИО
    b. Номер группы
    c. Успеваемость (массив из 5 элементов)
    Написать программу, выполняющую вывод на дисплей ФИО и Номеров групп для всех студентов имеющих оценки 4 и 5, если таких нет, вывести соотвествующее сообщение.
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Сейчас вторую сделаю.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  5. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Код pascal:
    program abc;
    uses crt;
    var mass:array[1..100]of real;
    var i,j,n:integer;
    summ,tmp:real;
    begin
    clrscr;
    textcolor(10);
    Writeln('Vvedite N');
    Readln(n);
    summ:=0;
    For i:=1 to n do begin
    Writeln('Vvedite element ');
    Readln(mass[i]);
    if mass[i]>0 then summ:=summ+mass[i];
    end;
    for i:=1 to n-1 do
    for j:=1 to n-1 do
    if mass[j]<mass[j+1] then begin
    tmp:=mass[j];
    mass[j]:=mass[j+1];
    mass[j+1]:=tmp;
    end;
    Writeln('summa=',summ);
    for i:=1 to n do Writeln('#',i,'= ',mass[i]);
    readln;
    end.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  6. #6  
    Новичок
    Регистрация
    14.12.2011
    Сообщений
    7
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    спасибо огромное!
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 3
    Последнее сообщение: 08.04.2012, 19:25
  2. Ответов: 3
    Последнее сообщение: 23.12.2011, 00:01
  3. Вычислить значение функции
    от оля в разделе Turbo Pascal
    Ответов: 9
    Последнее сообщение: 15.12.2011, 23:05
  4. Вычислить значение функции
    от Макс в разделе QBasic
    Ответов: 1
    Последнее сообщение: 06.12.2011, 04:08
  5. Ответов: 2
    Последнее сообщение: 24.05.2011, 04:37
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •