Xwab
Форумыnavigate_nextДругие языки программирования

помогите составить программы на языке Pascal
Сообщения
spiders

Задача1: Дан номер месяца (1-январь 2-февраля и тд.). Вывести на экран количество дней в этом месяце для невисокосного года. P.S. долго морочился, но не справился .
добавлено спустя 4 минуты:
Задача2: Даны углы треугольника. Определить каким является данный треугольник. (остроугольный, тупоугольный, прямоугольный).

05 Мар 2013, 17:14
Avarskiy

Что именно тут не понятно?

05 Мар 2013, 17:15
spiders

ну вот программу не могу составить

05 Мар 2013, 17:17
Виктор

1
var a:integer;
begin
readln(a);
case a of
1,3,5,7,8,10,12:writeln ('31');
2:writeln ('28');
4,6,9,11:writeln ('30')
else writeln('err');
end;
readln end.


__________
посл.ред. 05 Мар 2013, 17:21; всего 2 раз(а) 05 Мар 2013, 17:18
Avarskiy

Первый. Создаешь массив month = array[1..12] of integer;
И заполняешь его, какому месяцу, какой день.
добавлено спустя 54 секунды:
Виктор, тоже можно.

05 Мар 2013, 17:19
Виктор

Я не проверял синтаксические ошибки, так накалякал

05 Мар 2013, 17:21
Avarskiy

Второй: Если все углы меньше 90 градусов, то острый, если хотя бы один равен 90 градусов, то прямоугольный, если хотя бы один больше 90 градусов, то тупоугольный. Вроде не ошибся.

05 Мар 2013, 17:22
Виктор

2

var a,b,c:integer;
begin
readln(a,b,c);
if(a+b+c<>180) then
     writeln('Это не треугольник')
else
     begin
     if(a=90)or(b=90)or(c=90) then
          wrineln('Прямоугольный')
     else if(a>90)or(b>90)or(c>90) then
          writeln('Тупоугольный')
     else
          writeln('Остроугольный');
     end;
readln
end.


__________
посл.ред. 05 Мар 2013, 17:27; всего 1 раз 05 Мар 2013, 17:25
spiders

Виктор, огромное спасибо. нашел свою ошибку
добавлено спустя 1 минуту:
Avarskiy, брат мне геометрия не нужна, я саму программу имел ввиду.

05 Мар 2013, 17:27
Виктор

spiders, обращайся

05 Мар 2013, 17:27
Ответить на тему