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

Создание программы по блок-схеме

25.11.2017, 20:48. Показов 1021. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте, форумчане. Есть картинка с блок-схемой, надо составить программу на Паскале по ней. Пытался составить, но не получается. После поиска здесь нашел варианты, но они не до конца дополнены условиями.

Моя программа:


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
program triangle;
 var a,b,c:real;
 L:boolean;
begin
 writeln('Введите сторону a');
 readln(a);
 writeln('Введите сторону b');
 readln(b);
 writeln('Введите сторону c');
 readln(c);
  begin
  if (a+b>c) and (a+c>b) and (c+b>a)then
  writeln('Треугольник построить можно')
  else
  if (a+b<c) and (a+c<b) and (c+b<a)then
  writeln('Треугольник построить нельзя');
  end;
  if (a=c) and (c=b) then
  writeln('Это равносторонний треугольник')
  else
  L:=false;
  writeln('равнобедренный');
  if ((a=b)and(a<>c)) or ((a=c)and(a<>b)) or ((b=c)and(b<>a)) then
    writeln('Это равнобедренный треугольник');
    if L=true then
    writeln('прямоугольный');
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(c)+sqr(b)=sqr(a)) then
   writeln('Треугольник прямоугольный');
   if L=false then
   writeln('произвольный');
end.


И есть еще пара задачек.

 Комментарий модератора 
Остальные задания оформляйте в отдельных темах.


Заранее спасибо!

Схема:
Миниатюры
Создание программы по блок-схеме  
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2017, 20:48
Ответы с готовыми решениями:

Написание программы по блок-схеме
Помогите пожалуйста написать программу на Pascale.

Код программы по блок-схеме
Используя предложенную блок-схему напишите, пожалуйста, код программы, выведите значение переменной...

Состалвение программы по блок-схеме
Я незнаю как составить пробывал вот так ║program nik; ║uses crt; ║var x,y:real;...

Написание программы по блок-схеме
Помогите пожалуйста написать программу на Pascale.

6
ZX Spectrum-128
25.11.2017, 21:04
  #2
 Комментарий модератора 
emulzone, соблюдайте Правила форума!
0
1 / 1 / 0
Регистрация: 25.11.2017
Сообщений: 37
26.11.2017, 11:32  [ТС] 3
Неправильно написал название темы, надо наоборот. Исправьте, пожалуйста, на "Создание программы по блок-схеме".
0
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
26.11.2017, 16:54 4
Цитата Сообщение от emulzone Посмотреть сообщение
Исправьте
Сделано.
0
5072 / 2643 / 2350
Регистрация: 10.12.2014
Сообщений: 10,013
27.11.2017, 09:44 5
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
program triangle; // <---------- нет необходимости в данной строке! ----------
 var a,b,c:real;
 L:boolean;
begin
 writeln('Введите сторону a');
 readln(a);
 writeln('Введите сторону b');
 readln(b);
 writeln('Введите сторону c');
 readln(c);
  begin // <---------- зачем эта операторная скобка? ----------
  if (a+b>c) and (a+c>b) and (c+b>a)then
  writeln('Треугольник построить можно')
  else
  if (a+b<c) and (a+c<b) and (c+b<a)then
  writeln('Треугольник построить нельзя');
  end; // <---------- и эта тоже не нужна! ----------
  if (a=c) and (c=b) then // <---------- А дальнейший код программы не соответствует блок-схеме ;–)
  writeln('Это равносторонний треугольник')
  else
  L:=false;
  writeln('равнобедренный');
  if ((a=b)and(a<>c)) or ((a=c)and(a<>b)) or ((b=c)and(b<>a)) then
    writeln('Это равнобедренный треугольник');
    if L=true then
    writeln('прямоугольный');
    if (sqr(a)+sqr(b)=sqr(c)) or (sqr(a)+sqr(c)=sqr(b)) or (sqr(c)+sqr(b)=sqr(a)) then
   writeln('Треугольник прямоугольный');
   if L=false then
   writeln('произвольный');
end.
Добавлено через 8 минут
По блок-схеме будет вот так:
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
begin
  var a := ReadReal('Введите сторону a =');
  var b := ReadReal('Введите сторону b =');
  var c := ReadReal('Введите сторону c =');
  if (a+b>c) and (a+c>b) and (c+b>a) then
    begin
      writeln('Треугольник построить можно');
      if (a=b)and(b=c) then
        WriteLn('равносторонний')
      else
        begin
          var L := False;
          if (a=b) or (a=c) or (b=c) then
            begin
              WriteLn('равнобедренный');
              L := True;
            end;
          if (abs(sqr(a)+sqr(b)-sqr(c))<1e-7)or(abs(sqr(a)-sqr(b)+sqr(c))<1e-7)or(abs(-sqr(a)+sqr(b)+sqr(c))<1e-7) then
            begin
              WriteLn('прямоугольный');
              L := True;
            end;
          if Not L then
            WriteLn('произвольный');
        end;
    end
  else
    writeln('Треугольник построить нельзя');
end.
P.S. Внесены некоторые коррективы относительно работы с PascalABC.NET и действительными и булевыми значениями.
1
1 / 1 / 0
Регистрация: 25.11.2017
Сообщений: 37
27.11.2017, 18:36  [ТС] 6
Спасибо большое за варианты! Ну, знаете как бывает, учитель хочет, чтобы было по его схеме, а не так как может быть.
0
5072 / 2643 / 2350
Регистрация: 10.12.2014
Сообщений: 10,013
28.11.2017, 07:00 7
Это не варианты а:
— первая программа ваша, в которой указаны ошибки и с какого места начинается несоответствие
— вторая программа — приведена в соответствии с указанной блок-схемой!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.11.2017, 07:00
Помогаю со студенческими работами здесь

доделать эту программу по блок схеме. На блок схеме продолжение.
Помогите пожалуйста доделать эту программу по блок схеме. На блок схеме продолжение. const m=5;...

Принцип работы программы по блок схеме
объясните как она работает полность

Написать код программы по блок-схеме
Пожалуйста, помогите. :cry::cry::cry:

Создание листинга программы по блок-схеме
Доброго времени суток! Не получается выполнить это маленькое заданьице. Помогите советом картинка

Создание кода по блок схеме
Прощу помощи в создании кода VB по данной ниже блок схеме. Код чем проще тем лучше, если можно с...

MathCAD -составление программы по блок-схеме
Здравствуйте, не могу выполнить задание по практике. Искал в интернете, не смог разобраться....


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

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

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