Программа на ветвление.

@Keeny · Регистрация: 29.10.2009

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток!
Помогите пожалуйста написать программу на FreePascal'е.
Ввод 3 действительных чисел,программа должна возвести в квадрат не отрицательные числа,а положительные в 4 степень.
Заранее вам благодарен.

@Давид · 29.10.2009, 20:10

Keeny, Пожалуйста!проверяйте!

Pascal

program masiv;
uses crt;
var a,b,c:integer;
begin
clrscr;
Writeln (' Vvedite a,b,c ');
Readln (a,b,c);
If a>0 then writeln ('Kvadrat chisla ',a, ' =',sqr(a))
       else writeln ('A^4 = ',a*a*sqr(a));
If b>0 then writeln ('Kvadrat chisla ',b, ' =',sqr(b))
       else writeln (a,' ^4 = ',b*b*sqr(b));
If c>0 then writeln ('Kvadrat chisla ',c, ' =',sqr(c))
       else writeln (c,' ^4 = ',c*c*sqr(c));
Readln
end.

@Давид · 29.10.2009, 20:11

Keeny, Подправил немного!

Pascal

program chisla;
uses crt;
var a,b,c:integer;
begin
clrscr;
Writeln (' Vvedite a,b,c ');
Readln (a,b,c);
If a>0 then writeln ('Kvadrat chisla ',a, ' =',sqr(a))
       else writeln ('A^4 = ',a*a*sqr(a));
If b>0 then writeln ('Kvadrat chisla ',b, ' =',sqr(b))
       else writeln ('B^4 = ',b*b*sqr(b));
If c>0 then writeln ('Kvadrat chisla ',c, ' =',sqr(c))
       else writeln ('C^4 = ',c*c*sqr(c));
Readln
end.

@Keeny · 29.10.2009, 20:32 **[ТС]**

Спасибо вам большое!
Программа работает.Как я понимаю,команда clrscr очищает экран,для этого нужно активировать модуль crt,правильно?

Добавлено через 5 минут
А вы можете изобразить блок-схему данной программы?С этим у меня всегда были проблемы...

@Keeny · 29.10.2009, 21:08 **[ТС]**

Приемлимый вариант?

@Давид · 29.10.2009, 21:39

Keeny, Модуль активирован...USES crt ---> это его подключение!!!
Да он очищает экран!
Вот мой вариант алгоритма....уберите лишнее только!чего вы не используете в учебной дисциплине!

@Keeny · 29.10.2009, 21:39 **[ТС]**

Так вы можете сказать,правильная у меня схема или нет?

@Давид · 29.10.2009, 21:39

Картинка!

@Keeny · 29.10.2009, 21:41 **[ТС]**

Ага,спасибо,вы мне очень помогли.

@Давид · 29.10.2009, 21:41

Keeny, я бы в вашей схеме во всех выводах написал - какое число и как возводим в степень!!!!!не просто "КВАДРАТ" или "ЧЕТВЕРТАЯ" --- укажите какое именно число!

@Puporev · 29.10.2009, 21:42

Сообщение от Keeny

возвести в квадрат не отрицательные числа,а положительные в 4 степень.

Интересно как все решали задачу с таким загадочным условием?

@Давид · 29.10.2009, 21:44

Puporev, я сразу увидел что условие некорректное!!!!но сделал вывод что отрицательное в 4 степень а положительное во вторую....все равно смысл тотже - а переделать нетрудно!

@Keeny · 29.10.2009, 21:52 **[ТС]**

Давид, я только начал изучать язык,как говориться 'Hello,world!'

Добавлено через 2 минуты

Сообщение от Puporev

Интересно как все решали задачу с таким загадочным условием?

Извините,опечатка.

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	29.10.2009, 21:44	12
	Puporev, я сразу увидел что условие некорректное!!!!но сделал вывод что отрицательное в 4 степень а положительное во вторую....все равно смысл тотже - а переделать нетрудно! 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
	29.10.2009, 21:52 [ТС]	13
	Давид, я только начал изучать язык,как говориться 'Hello,world!' Добавлено через 2 минуты Сообщение от Puporev Интересно как все решали задачу с таким загадочным условием? Извините,опечатка. 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
		1
	Программа на ветвление. 29.10.2009, 19:57. Показов 3313. Ответов 12 Метки нет (Все метки) Всем доброго времени суток! Помогите пожалуйста написать программу на FreePascal'е. Ввод 3 действительных чисел,программа должна возвести в квадрат не отрицательные числа,а положительные в 4 степень. Заранее вам благодарен. 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
	29.10.2009, 20:32 [ТС]	4
	Спасибо вам большое! Программа работает.Как я понимаю,команда clrscr очищает экран,для этого нужно активировать модуль crt,правильно? Добавлено через 5 минут А вы можете изобразить блок-схему данной программы?С этим у меня всегда были проблемы... 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
	29.10.2009, 21:08 [ТС]	5
	Приемлимый вариант? Миниатюры 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	29.10.2009, 21:39	6
	Keeny, Модуль активирован...USES crt ---> это его подключение!!! Да он очищает экран! Вот мой вариант алгоритма....уберите лишнее только!чего вы не используете в учебной дисциплине! 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
	29.10.2009, 21:39 [ТС]	7
	Так вы можете сказать,правильная у меня схема или нет? 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	29.10.2009, 21:39	8
	Картинка! Миниатюры 0

@Keeny 0 / 0 / 0 Регистрация: 29.10.2009 Сообщений: 6
	29.10.2009, 21:41 [ТС]	9
	Ага,спасибо,вы мне очень помогли. 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	29.10.2009, 21:41	10
	Keeny, я бы в вашей схеме во всех выводах написал - какое число и как возводим в степень!!!!!не просто "КВАДРАТ" или "ЧЕТВЕРТАЯ" --- укажите какое именно число! 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.10.2009, 21:42	11
	Сообщение от Keeny возвести в квадрат не отрицательные числа,а положительные в 4 степень. Интересно как все решали задачу с таким загадочным условием? 0