Помогите написать программу на языке Паскаль

Тимурка174 · 20.12.2010, 13:43

Составить линейную программу, печатающую значение true, если указаное высказывание является истинным, и false- в противном случае
Данная тройка натуральных чисел a,b,c является тройкой пифагора. т.е. C в квадрате = A в квадрате + B в квадрате

Vladimir_S · 20.12.2010, 14:07

Цитата:

Сообщение от Тимурка174

Составить линейную программу, печатающую значение true, если указаное высказывание является истинным, и false- в противном случае
Данная тройка натуральных чисел a,b,c является тройкой пифагора. т.е. C в квадрате = A в квадрате + B в квадрате

Во-первых, не цепляйтесь к чужим темам - создавайте свои. Сейчас я это сделал за Вас. А во-вторых, учитесь, а не ориентируйтесь на то, что всю жизнь за Вас всё будут делать глупые добрые дяденьки. Если уж с такой ерундой Вы прибегаете на форум, то что будет дальше?
Ладно, в порядке исключения (но вообще-то мы подобным детским садом не занимаемся):

Код:

VAR
 a,b,c:WORD;
BEGIN
 Write('a= ');
 ReadLn(a);
 Write('b= ');
 ReadLn(b);
 Write('c= ');
 ReadLn(c);
 WriteLn(a*a+b*b=c*c);
 Readln;
END.

Тимурка174 · 20.12.2010, 15:01

посчитать количество целых среди чисел a,b,c

AlexZir · 20.12.2010, 19:11

Тимурка174
Вы вообще представляете себе, как работает компьютер? Если вы определяете переменную вещественного типа, то она уже отрабатывается процессором именно как число с плавающей точкой, а не как целое и любое значение будет также не целым. Если же вы эти 3 переменные определите как целочисленные - то и ответ будет очевидным.
Если уж вам кровь из носа нужно решить именно ваш вариант задания - используйте при сравнении значений функцию округления с отбрасыванием остатка trunc() или, на худой конец, round().

Тимурка174 · 21.12.2010, 20:26

var a,b,c,F,S,R,D:integer;
begin
writeln('введите числа');
readln(a,b,c);
If a mod 1=0 then S:=F+1;
If b mod 1=0 then R:=S+1;
If c mod 1=0 then D:=R+1;
writeln(D);
readln;
end.

Vladimir_S · 21.12.2010, 20:40

Цитата:

Сообщение от Тимурка174

var a,b,c,F,S,R,D:integer;
begin
writeln('введите числа');
readln(a,b,c);
If a mod 1=0 then S:=F+1;
If b mod 1=0 then R:=S+1;
If c mod 1=0 then D:=R+1;
writeln(D);
readln;
end.

Примерно так: абсолютно бессмысленный набор команд. Вы хоть какую задачу решить пытаетесь? И каким путем - расскажите словами идею. Попытаемся разобраться.

Тимурка174 · 21.12.2010, 20:57

я пытаюсь сделать так чтобы при воде 3 любых чисел она находила три целые числа

Vladimir_S · 21.12.2010, 21:15

Цитата:

Сообщение от Тимурка174

я пытаюсь сделать так чтобы при воде 3 любых чисел она находила три целые числа

Не пойдет.
Насколько я понимаю задачу, состоит она в следующем:
Даны три ВЕЩЕСТВЕННЫХ числа. Определить, сколько из них - целые. То есть, например, если вводятся числа 9.76, 15.0 и 134.0, то ответ - два числа.
Теперь рассмотрим Вашу программу.
1. Формат всем переменным Вы задаете Integer, т.е. целочисленный. В таком случае, задача лишается смысла, поскольку числа ИСХОДНО целые. Если Вы попробуете ввести что-нибудь типа 4.8, то программа немедленно вылетит с сообщением об ошибке.
2. Вы вообще представляете себе, что такое (a mod b)? Похоже, нет. Так вот, это ОСТАТОК от деления ЦЕЛОГО a на ЦЕЛОЕ b. Отсда если b=1, то этот остаток ВСЕГДА РАВЕН НУЛЮ, и выражение
If a mod 1=0 then
бессмысленно, поскольку условие ВСЕГДА ИСТИННО, а потому критерием чего-либо служить не может.

Так что попробуйте изобрести что-нибудь другое.
Между прочим, подсказка содержится в посте #4 от AlexZir.

Тимурка174 · 21.12.2010, 21:25

PHP код:


			
var a,b,c:real;

begin

readln(a,b,c);

writeln("Целых чисел: ", byte(frac(a)=0)+byte(frac(b)=0)+byte(frac(c)=0));

readln

end.

Тимурка174 · 21.12.2010, 21:26

может тогда попробывать вот так

20.12.2010, 13:43	#1 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программу на языке Паскаль Составить линейную программу, печатающую значение true, если указаное высказывание является истинным, и false- в противном случае Данная тройка натуральных чисел a,b,c является тройкой пифагора. т.е. C в квадрате = A в квадрате + B в квадрате

20.12.2010, 15:01	#3 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	помогите пожалуйста написать программу на языке паскаль пожалуйста посчитать количество целых среди чисел a,b,c

20.12.2010, 19:11	#4 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Тимурка174 Вы вообще представляете себе, как работает компьютер? Если вы определяете переменную вещественного типа, то она уже отрабатывается процессором именно как число с плавающей точкой, а не как целое и любое значение будет также не целым. Если же вы эти 3 переменные определите как целочисленные - то и ответ будет очевидным. Если уж вам кровь из носа нужно решить именно ваш вариант задания - используйте при сравнении значений функцию округления с отбрасыванием остатка trunc() или, на худой конец, round(). __________________ Убить всех человеков!

21.12.2010, 20:26	#5 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вот такое решение как вам?? var a,b,c,F,S,R,D:integer; begin writeln('введите числа'); readln(a,b,c); If a mod 1=0 then S:=F+1; If b mod 1=0 then R:=S+1; If c mod 1=0 then D:=R+1; writeln(D); readln; end.

21.12.2010, 21:25	#9 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	PHP код: `var a,b,c:real; begin readln(a,b,c); writeln("Целых чисел: ", byte(frac(a)=0)+byte(frac(b)=0)+byte(frac(c)=0)); readln end.`

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

21.12.2010, 20:57	#7 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	я пытаюсь сделать так чтобы при воде 3 любых чисел она находила три целые числа

21.12.2010, 21:26	#10 (permalink)
Тимурка174 Новичок Регистрация: 20.12.2010 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	может тогда попробывать вот так

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид