Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Trojan52
0 / 0 / 0
Регистрация: 24.06.2013
Сообщений: 71
1

Задача в Паскале

30.10.2013, 17:44. Просмотров 558. Ответов 6
Метки нет (Все метки)

Задача состоит в следующем:
Большее из трех чисел заменить суммой,меньшее-произведением,среднее-не менять.
Выполнить задачу нужно без массивов и прочего, только стандартный if...else(else if)!
Помогите, пожалуйста, послезавтра сдавать.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.10.2013, 17:44
Ответы с готовыми решениями:

Задача на паскале
Задача: Даны 2 пересекающихся круга. Вычислить: а). площадь объединения кругов; б). площадь...

Задача на Паскале
Всем доброго времени суток!:) Необходимо написать программу на Паскале,вот условие задачи:...

Задача в паскале.
Необходимо придумать задачу с командой "повторить", записать для цикла с предусловием и...

Задача на паскале
Дано а, х, z. Если х + z не равно а, вычислить Y = arcsin(x) + tg(a/z) Если х – z = a, вычислить...

задача в Паскале
Помогите решить задачу на паскале из 3 массивов 1)создать массив из 20 целых чисел с клавиатуры....

6
APALoff
1641 / 1070 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
30.10.2013, 17:49 2
1. Большее из трех чисел заменить суммой,меньшее-произведением - суммой и произведением чего???
2. Выполнить задачу нужно без массивов и прочего - "прочего" чего???
0
Trojan52
0 / 0 / 0
Регистрация: 24.06.2013
Сообщений: 71
30.10.2013, 18:12  [ТС] 3
Цитата Сообщение от APALoff Посмотреть сообщение
1. Большее из трех чисел заменить суммой,меньшее-произведением - суммой и произведением чего???
2. Выполнить задачу нужно без массивов и прочего - "прочего" чего???
1. Сумма и произведение этих 3 чисел.
2.Использовать только структуру if...else(else if)
0
oksi5697
13 / 13 / 3
Регистрация: 17.11.2011
Сообщений: 122
30.10.2013, 19:26 4
Как-то так:

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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program Project;
var a,b,c,max,min:integer;
begin
    writeln('Enter a,b,c:');
    readln(a,b,c);
    //find max, min
    if (a>b) then
      begin
        max:=a; min:=b;
      end
      else
      begin
        max:=b; min:=a;
      end;
 
    if (a>c) then
      begin
        max:=a; min:=c;
      end
      else
      begin
        max:=c; min:=a;
      end;
 
    if (b>c) then
      begin
        max:=b; min:=c;
      end
      else
      begin
        max:=c; min:=b;
      end;
    //actions
    if (max=a) then
    begin
        if (min=b) then
          begin
              a:=a+b+c;
              b:=a*b*c;
          end;
        if (min=c) then
           begin
              a:=a+b+c;
              c:=a*b*c;
          end;
    end;
    if (max=b) then
    begin
        if (min=c) then
          begin
              b:=a+b+c;
              c:=a*b*c;
          end;
        if (min=a) then
           begin
              b:=a+b+c;
              a:=a*b*c;
          end;
    end;
    if (max=c) then
    begin
        if (min=a) then
          begin
              c:=a+b+c;
              a:=a*b*c;
          end;
        if (min=b) then
           begin
              c:=a+b+c;
              b:=a*b*c;
          end;
    end;
    writeln(a,b,c);
end.
0
Trojan52
0 / 0 / 0
Регистрация: 24.06.2013
Сообщений: 71
30.10.2013, 22:04  [ТС] 5
Цитата Сообщение от oksi5697 Посмотреть сообщение
Как-то так:
Не правильно работает! Не понимаю почему!
0
Cyborg Drone
Модератор
7065 / 3695 / 2652
Регистрация: 17.08.2012
Сообщений: 11,780
31.10.2013, 03:10 6
Цитата Сообщение от Trojan52 Посмотреть сообщение
Не правильно работает!
Ещё бы. oksi5697, к сожалению, у Вас ошибки. Все не буду указывать, долго писать, но например:
Цитата Сообщение от oksi5697 Посмотреть сообщение
Pascal
1
2
  a:=a+b+c;
  c:=a*b*c;
В первом операторе переменную a модифицировали, а во втором использовали уже модифицированную. То есть, фактически у Вас написано
Pascal
1
2
  a:=a+b+c;
  c:=(a+b+c)*b*c;
Сдаётся мне, что Вы имели ввиду нечто другое, а получилось то, что я только что написал.

Всё гораздо проще. Вот:
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
program num3;
 
var a, b, c, p, s, min, max: integer;
 
begin
  writeln('Enter numbers:'); //вводим
  write('a = ');
  readln(a);
  write('b = ');
  readln(b);
  write('c = ');
  readln(c);
  if (a = b) or (a = c) or (b = c)
    then writeln('Error: numbers not different') //есть равные числа, по условию таковых быть не должно
    else //нет равных чисел, работаем
      begin
        p := a * b * c; //сразу вычисляем произведение
        s := a + b + c; //и сумму
        min := a; //текущий минимум
        max := a; //и максимум
        if b < min then min := b; //ищем минимум
        if c < min then min := c;
        if b > max then max := b; //ищем максимум
        if c > max then max := c;
        //сравниваем числа по одному с минимумом и максимумом и заменяем на что требуется
        if a = min then a := p else if a = max then a := s;
        if b = min then b := p else if b = max then b := s;
        if c = min then c := p else if c = max then c := s;
        writeln('Result:'); //печатаем всё, что наделали...
        writeln('a = ', a);
        writeln('b = ', b);
        writeln('c = ', c)
      end;
  readln
end.
1
Trojan52
0 / 0 / 0
Регистрация: 24.06.2013
Сообщений: 71
31.10.2013, 08:43  [ТС] 7
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
Всё гораздо проще. Вот:
Спасибо,Вам, большое. Я писал что-то подобное и оно работало хорошо до того момента, когда я вводил наименьшее число в середине, мой код выдавал его без изменений!
0
31.10.2013, 08:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.10.2013, 08:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

задача в паскале с файлами
я ни знаю как ее написать помогите пожалуйста : Дан файл f , элементы которого являются целыми...

Транспортная задача на паскале.
Помогите решить задачу на Pascal она не из простых, но надо срочно!!!(желательно 3 способа: полным...

Задача в паскале ( матрицы ).
Прошу помочь мне решить задачу в паскале очень надо плизззззз :P Даны целые положительные числа M...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.