Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 из 11
Поиск: