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

Даны три целых числа A,B и С. Если сумма A и B больше квадрата числа C, то вычислить сумму A,B и C

17.11.2019, 15:08. Показов 587. Ответов 3
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program xxx;
var a,b,d,c:real;
begin
writeln('Введи число ');
readln(a);
writeln('Введи число ');
readln(b);
writeln('Введи число ');
readln(c);
if a+b>sqr(c) then
d:=a+b+c
else
d:=c/(a+b);
writeln(d);
readln
end.
подскажите где допущена ошибка?
УСЛОВИЕ:
Даны три целых числа A,B и С. Если сумма A и B больше квадрата числа C, то вычислить сумму A,B и C.
В противном случае число С поделить ну сумму чисел А и В.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2019, 15:08
Ответы с готовыми решениями:

Где ошибка?
Есть задача. Удалить из строки первое слово(слова разделены пробелами). я с этими строками совсем...

Где ошибка?
program simpl; uses crt; const n=7; m=3; vp:array of integer= (1,2,3,4,5,6,7); ...

Где ошибка?
Есть такая задача:N человек пишут свои имена на бумажках.Всех зовут по разному.В мешок кладут...

Где ошибка?
Помогите найти ошибку в программе, которая исследует квадратную матрицу на симметричность. Program...

3
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,127
17.11.2019, 16:27 2
Что-то я не нашел ошибки.
0
495 / 397 / 260
Регистрация: 05.04.2013
Сообщений: 1,763
18.11.2019, 13:53 3
Цитата Сообщение от Mat666 Посмотреть сообщение
подскажите где допущена ошибка?
ошибок нет, разве что нету...
Pascal
1
uses crt
Возможно сумма a+b дает 0
0
Модератор
8416 / 4165 / 2878
Регистрация: 17.08.2012
Сообщений: 13,282
19.11.2019, 08:53 4
AHBAR, зачем uses crt, если в программе модуль crt ни разу не uses?

Насчёт ошибок: программа завершится аварийно при a+b=c=0 из-за попытки деления на 0. Если a+b=0, но c<>0, попытки деления на 0 не будет. Чуть подрихтовать:
Pascal
10
11
12
13
14
15
16
17
18
19
20
21
if (a+b=0)and(c=0) then
wrieln('Деление на 0 ')
else
begin
if a+b>sqr(c) then
d:=a+b+c
else
d:=c/(a+b);
writeln(d)
end;
readln
end.
Mat666, я умышленно сделал форматирование в Вашем стиле.

Не по теме:

Хотя, зря... Надо было вот так отформатировать:

Pascal
10
if (a+b=0)and(c=0) then wrieln('Деление на 0 ') else begin if a+b>sqr(c) then d:=a+b+c else d:=c/(a+b); writeln(d) end; readln end.

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2019, 08:53

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

где-то ошибка
не пойму что не так:program proizv; uses crt; const a:array of real=((0.01,-0.12,1.2,5.64), ...

где ошибка?)
Program dv; var s1:integer; s2:string; begin s1 := StrToInt(Edit1.Text); s2:=''; repeat if...

где ошибка ?
Дан двумерный массив 10х15. Вывести на экран номер строки, в которой положительных элементов...

Где ошибка?
Программа должна сравнивать числа, и в зависемости от результата, писать знаки &quot;&gt;&quot;, &quot;&lt;&quot; и &quot;=&quot;....


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

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

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