1 / 1 / 0
Регистрация: 30.11.2008
Сообщений: 48
1

Таблицу значений функции разложить на две колонки — отрицательные отдельно, положительные отдельно

30.11.2008, 16:56. Показов 1262. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Молю о помощи.X и Y должны быть в виде таблицы,а т.к. она не помещается в экран,надо разложить на две колонки-отрицательные отдельно,положительнве отдельно.




Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program funkcija;
var x,y,z:real;
begin
x:=-5;
while x<=5 do
      begin
      z:=(1+x*x-3*x);
      if z<0 then writeln('x=',x:3:1,'  ','y=nav')
      else
      begin
      y:=sqrt(1+x*x-3*x);
      writeln('x=',x:3:1,' ','y=',y:1:3);
      end;
x:=x+0.2;
end;
readln;
end.
Вложения
Тип файла: txt DOMA61.txt (293 байт, 13 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.11.2008, 16:56
Ответы с готовыми решениями:

Отдельно положительные и отрицательные элементы массива.
Вывести на печать отдельно положительные элементы массива X(16) и отдельно отрицательные элементы.

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

Сложить отдельно все положительные элементы этого массива, отдельно все отрицательные
Написать программу, которая сначала вводит десять чисел в одномерный массив, а затем складывает...

Из двух массивов выделить в два массива отдельно отрицательные и положительные числа
Заполнить два массива, размером 20 и 30 элементов, соответственно, случайными целыми числами в...

2
Почетный модератор
64302 / 47597 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
01.12.2008, 07:45 2
Вот сделал, только некрасиво х=0, оно как бы лишнее, не влезает. Строк 25*2=50, а итераций 51. Если есть предложения, переделаем.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
program funkcija;
uses crt;
var x,y,z:real;
    i,j:integer;
begin
clrscr;
x:=-5; i:=0;j:=0;
while x<=5 do
   begin
     if x<0 then
       begin
         j:=j+1;
         gotoXY(1,j);
         write('x=',x:3:1);
         z:=(1+x*x-3*x);
         if z<0 then write('  ','y=nav')
         else write(' ','y=',sqrt(1+x*x-3*x):1:3);
       end;
     if x>=0 then
       begin
         i:=i+1;
         gotoXY(40,i);
         write('x=',x:3:1);
         z:=(1+x*x-3*x);
         if z<0 then write('  ','y=nav')
         else write(' ','y=',sqrt(1+x*x-3*x):1:3);
       end;
     x:=x+0.2;
  end;
readln
end.
           else
      begin
      y:=sqrt(1+x*x-3*x);
 
         if z<0 then writeln('x=',x:3:1,'  ','y=nav')
         else writeln('x=',x:3:1,' ','y=',y:1:3);
        end;
      if x>=0 then
        begin
         i:=i+1;
         gotoXY(40,i);
         if z<0 then writeln('x=',x:3:1,'  ','y=nav')
         else writeln('x=',x:3:1,' ','y=',y:1:3);
 
        end;
      end;
x:=x+0.2;
end;
readln;
end.
1
1 / 1 / 0
Регистрация: 30.11.2008
Сообщений: 48
01.12.2008, 15:19  [ТС] 3
Нет,нет,спасибо вам большое.Вышло очень хорошо.
0
01.12.2008, 15:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.12.2008, 15:19
Помогаю со студенческими работами здесь

Переписать отдельно в разные массивы положительные и отрицательные элементы заданного массива
Переписать отдельно в разные массивы положительные и отрицательные элементы заданного массива

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

Сложить отдельно все положительные и отрицательные элементы массива отдельно
Кому не лень помогите пожалуйста сделать эти задачи. Хотя бы несколько. Буду очень признателен. 1)...

Cтрока: Составить программу, которая запрашивает отдельно имя и отдельно фамилию, а затем выводит их как одну символьную строку.
Составить программу, которая запрашивает отдельно имя и отдельно фа¬милию, а затем выводит их как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru