|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
08.06.2010, 16:32 | #1 (permalink) |
Новичок
Регистрация: 08.06.2010
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Нужно написать программы для Pascal
1. Треугольник задается длинами своих сторон. Определите тип треугольника. Указание: не забудьте убедиться в существовании такой фигуры. 2. Вводится число, представленное в двоичной системе счисления. Если представление числа правильное, выведите инверсный и дополнительный коды этого числа. 3. Рассчитайте и постройте таблицу квадратов для последовательности чисел 1, 16, 31, 46, ..., 436 в двух парах колонок |
08.06.2010, 16:32 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные посты уже размещались на нашем форуме, вот их список Нужно написать программу расчета вознаграждения Помогите написать программу на PASCAL Нужно написать программу в Pascal Нужно написать принцип работы данной программы Срочно нужно написать программу на языке Bash |
08.06.2010, 18:16 | #2 (permalink) | |||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR a,b,c,d:REAL; BEGIN Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); Write('c= '); ReadLn(c); If a<b then begin d:=a; a:=b; b:=d; end; If a<c then begin d:=a; a:=c; c:=d; end; If a>(b+c) then WriteLn('The triangular does not exist!') else begin If (b*b+c*c)>a*a then WriteLn('The triangular is acute-angled one') else If (b*b+c*c)<a*a then WriteLn('The triangular is obtuse-angled one') else WriteLn('The triangular is right-angled one'); end; ReadLn; END. Цитата:
Цитата:
Код:
VAR a,b:LongInt; i:Integer; BEGIN For i:=1 to 15 do begin a:=1+(i-1)*15; b:=1+(i+14)*15; WriteLn(a:3,a*a:8,b:16,b*b:8); end; ReadLn; END. |
|||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|