Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
1 / 1 / 0
Регистрация: 25.11.2009
Сообщений: 15
1

П о могите составить программу в Паскале!

26.11.2009, 00:02. Просмотров 735. Ответов 2
Метки нет (Все метки)


Надо написать программу в Паскале, которая определяет вид треугольника
-если равносторонний то пишет 1
-если равнобедренный то 2
-если обычный то 3
-если не может быть такого треугольника то 0
используя самые простые операторы
у меня есть некоторые соображения, если что не правильно подскажите
1 вариант:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a, b, c:integer;
begin
readln(a,b,c);
if (a+b<=c) or (a+c<=b) or (c+b<=a) then writeln('0');
halt;
if (a=b) and (b=c) and (a=c) then writeln('1');
halt;
if (a=b) or (b=c) or (a=c) then writeln('2');
halt;
writeln('3');
 
end.
2 вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,b,c:integer;
begin
readln(a,b,c);
if (c<=(a+b)) or (a<=(b+c)) or (b<=(a+c))
then if (a=b) or (a=c) or (b=c)
   then if (a=b) and (b=c)
    then writeln('obichnii')
    else writeln('ravnobedrenii')
   else writeln('ravnostoronni')
else writeln('oshibka')
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2009, 00:02
Ответы с готовыми решениями:

составить программу на паскале
разработать, ввести в ЭВМ и отладить программу для рассчета суммы вклада в банке, если известы...

составить программу на паскале
Напишите программу на языке Паскаль для вычисления суммы четных чисел натурального ряда от 1 до n.

составить программу на паскале
С помощью оператора if определить, находится ли точка на плоскости в замкнутой области. Если...

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
2
28 / 28 / 7
Регистрация: 03.10.2009
Сообщений: 122
26.11.2009, 00:17 2
2-й код не правильный
допиши проверку на "треугольник" к первому коду, после чего уже проверяй равенство сторон
0
6 / 6 / 1
Регистрация: 26.11.2009
Сообщений: 19
26.11.2009, 01:11 3
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
program treugolnik;
 
uses crt;
var a, b, c : integer ;
 
 
BEGIN
clrscr;
 
 writeln ('Введите три числа');
 
 read (a, b, c);
 
  if (((a + b) > c) and ((a + c) > b) and ((b + c) > a)) then
    begin
        writeln (' с этими данными можно построить треугольник ');
  if ((a = b) and (a = c)) then writeln (' Треугольник равносторонний ');
  if ((a = b) and (a <> c)) or ((b = c) and (b <> a)) or ((c = a) and ( a <> b)) then 
 writeln(' Треугольник равнобедренный ')
    end
  else writeln (' С этими данными построить треугольник нельзя ');
 
  readln;
  readln;
 
END.
Это мой вариант решения подобной задачи, я думаю разберешься, где и что нужно заменить...
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2009, 01:11

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

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

Ветвление с шагом. составить программу в паскале.
Там функция с несколькими условиями. и с шагом.

Составить программу вычисления функции в Паскале
с введением function f(x)=1.25\sqrt{1-x}-0.89 cos(\sqrt{1-x})

не могу составить простую программу на паскале
Найти количество различных цифр в одномерном массиве. например массив 1 2 3 4 5 1 2 3 количество...


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

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

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