ОЧЕНЬ СРОЧНО ПОМОГИТЕ!!!!ЗАВТРА ГОС ЭКЗАМЕН(((

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » ОЧЕНЬ СРОЧНО ПОМОГИТЕ!!!!ЗАВТРА ГОС ЭКЗАМЕН((( (решите задачки по паскалю пож****)

[b][b][color=red]1. Визначити скільки метрів сітки потрібно, щоб загородити великий сад майже прямокутної форми із сторонами a, b, і скільки добрив (d) треба придбати, якщо на 1 м2 потрібно с кг?
2. Напишіть програму, що порівнює два дійсних числа й виводить повідомлення про те, яке з них є найменшим, або , якщо числа однакові, повідомляє про це.
3. Для заданого номера місяця вивести на екран назву пори року. Для розв’язання задачі використайте алгоритмічну конструкцію „вибір”.
4. Напишіть програму для обчислення периметра (р) і площі (s) трикутника за трьома відомими сторонами a, b, c. Програма повинна перевіряти правильність вхідних даних, тобто, чи існує трикутник.
5. Розв’язати квадратне рівняння (a ≠ 0) ax2 + bx + c = 0.Якщо d < 0, то вивести повідомлення „коренів немає”.

6. Елементи числової послідовності описуються формулою ai = 3 + cos2i. Обчислити та вивести на екран номери і значення перших n = 10 елементів.
7. Нехай елементи числової послідовності описуються формулою ai = 1 – 2cos3i, і = 1,2,…,12. Вивести на екран номери лише додатних елементів.
8. Один долар коштує 8,15 гривні. Вивести на екран у вигляді таблиці вартість 1,2,…10 доларів.
9. Скільки елементів послідовності ai = 1 – cosi, де і = 1,2,…,20, задовольняють умову 0<ai<1?[/col[/b]or][/b]

№1 | Автор: 17282118 | 2012-04-27, 20:19 | Репутация: [ + 0 ]

Quote (17282118)

2. Напишіть програму, що порівнює два дійсних числа й виводить повідомлення про те, яке з них є найменшим, або , якщо числа однакові, повідомляє про це.

var
a,b:byte;
begin
read(a,b);
if a=b then writeln('odinakovie') else
if a>b then writeln(a) else writeln(b);
end.

Quote (17282118)

8. Один долар коштує 8,15 гривні. Вивести на екран у вигляді таблиці вартість 1,2,…10 доларів.

var
i:byte;
a:real;
begin
a:=8.15;
for i:=1 to 10 do
wriet(a*i,' ');
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2012-05-05, 19:52 | Репутация: [ + 211 ]

Страница 1 из 1
1

прикладная математика