Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
#1

Решение! - Pascal

13.12.2010, 18:10. Просмотров 489. Ответов 9
Метки нет (Все метки)

Добрый вечер. нужно решить задачи.
№1
Даны три переменные вещественного типа: A, B, C. Если их значения упорядочены по возрастанию, то удвоить их; в противном случае заменить значение каждой переменной на противоположное. Вывести новые значения переменных A, B, C.

Входные данные: ввести 3 вещественных числа А,В,C (-1000<= А,В,C <=1000).

Выходные данные: вывести новые значения переменных A, B, C с точностью до 5 цифр в дробной части.

Моё решение:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var a,b,c:real;
begin
 read(a,b,c);
  if (a<=b) and (b<=c) then
                          begin
                          a:=a*2;
                          b:=b*2;
                          c:=c*2;
                          end
                       else
                        begin
                         a:=-a;
                         b:=-b;
                         c:=-c;
                        end;
write(a:0:5, b:0:5, c:0:5);
end.
Подскажите, где ошибка О_о
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2010, 18:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Решение! (Pascal):

решение - Pascal
напишите те программы, которые можете ,пожалуйста .Заранее благодарю.

Решение задач - Pascal
Всем здравствуйте. Буду благодарна за любую помощь. У меня уже психоз скоро начнется. Вообще я учусь по специальности &quot;Финансы и Кредит&quot;,...

Подскажите решение!)) - Pascal
Упражнения С клавиатуры вводится заданный текст

Вычислить решение - Pascal
Добрый вечер! Помогите, пожалуйста, вычислить данный пример B=m/m(m-1)+\sum_{k=1}^{m}kSin{(k+3)}^{2}где m=20 Заранее спасибо!

Решение матрицы - Pascal
Помогите сделать программу для вычисления и запомнить суммы и число положительных элементов каждой строки матрицы. Результаты отпечатать...

подскажите решение - Pascal
На сколько дней работнику хватит зарплаты S, если он тратит N р. в день и его расходы каждый день увеличиваются на X р.?

9
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
13.12.2010, 18:13 #2
ошибки нет
но лучше так выводить
write(a:5:1, b:5:1, c:5:1);
0
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
13.12.2010, 19:06  [ТС] #3
Не помогло! Программа не принимает решение
0
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
13.12.2010, 19:13 #4
у меня все работает как по условию если изменить вывод как я сказал
1
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
13.12.2010, 20:41  [ТС] #5
спс! завтра буду узнавать почему не принимает. Видимо ошибка в тестах

Добавлено через 1 час 0 минут
Можешь помочь ещё и с этой задачей?

На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

Входные данные: ввести 3 целых чисел x1,x2,x3 координаты точек А,В,С (-10<= x1,x2,x3<=10).

Выходные данные: вывести координаты этой точки и ее расстояние от точки A.
0
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
25.12.2010, 19:51  [ТС] #6
Сумма цифр N чисел.

Дан одномерный массив размерность N (1<=N<=1000).

Написать программу нахождения суммы цифр всех чисел одномерного массива.

Входные данные: В первой строке ввести N (1<=N<=1000) -количество элементов в одномерном массиве.

Во второй строке заданы N чисел в диапазоне от 1 до 1000.

Выходные данные: Вывести одно число - сумму цифр всех чисел одномерного массива.
Пример входных данных:
5
1 2 3 4 5
Пример выходных данных
15
Пример входных данных:
5
10 11 12 13 14
Пример выходных данных
15
0
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
25.12.2010, 20:06 #7
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program Dekio;
var
i,sum,n,k :integer;
begin
sum:=0; k:=1;
writeln('Ââåäèòå n');
readln(n);
for i:=1 to n do
begin
sum:=sum+k*i;
k:=-k;
end;
writeln('ÑóììГ* ',sum);
end.
1
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
25.12.2010, 20:21  [ТС] #8
Dekio, не то решение
0
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
25.12.2010, 20:24 #9
Цитата Сообщение от Hrust Посмотреть сообщение
Dekio, не то решение
Вроде темкой ошибся
0
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
25.12.2010, 20:51  [ТС] #10
Помоги с этой задачей!!!! Срочно нужно!!!!
0
25.12.2010, 20:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 20:51
Привет! Вот еще темы с ответами:

Решение задачи - Pascal
Доброго времени суток! хотел бы попросить помочь мне с одной задачкой: Даны два массива A и B по шесть элементов в каждом. Образовать новый...

Решение уравнения - Pascal
Составить программу на языке программирования Паскаль, вызывающую процедуру или функцию, позволяющую решить следующую задачу: дано...

Решение задачи - Pascal
Помогите решить задачу, зарание спасибо: Всем известно, что «от перестановки слагаемых сумма не изменяется». Однако, случается и так, что...

подскажите решение - Pascal
Дан целочисленный массив.Найти кол-во элементов расположенных после последнего максимального.Вывести на экран. на вашем сайте нашла...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru