Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
Hrust
0 / 0 / 0
Регистрация: 13.12.2010
Сообщений: 9
1

Решение!

13.12.2010, 18:10. Просмотров 507. Ответов 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
Ответы с готовыми решениями:

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

Решение заданий
Помогите решить задания в приложенном файле

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

пришлите решение
Племянник спросил дядю, сколько тому лет. Дядя ответил: «Если к половине моих...

Решение задач
как решить: 1-Напишите программу, которая по введенному числу N (1&lt;N&lt;10)...

9
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 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
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 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
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 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
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 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

Подскажите решение
Program laba4; uses Crt; const n=4;m=4; var a:array of integer;...

Решение в Паскале
Задачка:найти все натуральные числа из промежутка от 500 до 900, которые...

Вычислить решение
Добрый вечер! Помогите, пожалуйста, вычислить данный пример...


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

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

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