Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)
Полная версия: Задачи: массивы!
А как нозтчет зваих нороботак по ентой задачи?
Первая прога:
Код
program dva;
var a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
if ((a/B) >0) or (a/b <4) then writeln('Принадлежит отрезку');
end.
var a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
if ((a/B) >0) or (a/b <4) then writeln('Принадлежит отрезку');
end.
У меня есть свои наработки но я неуверен в их правельности.!
Пожалуста помоги мне!
Пожалуста помоги мне!
Цитата
Первая прога:
program dva;
var a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
if ((a/B) >0) or (a/b <4) then writeln('Принадлежит отрезку');
end.
program dva;
var a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
if ((a/B) >0) or (a/b <4) then writeln('Принадлежит отрезку');
end.
Так ты неуказал как определить остаток от деления!
А как насчет сам? ;D У тебя же есть наработки! ;)
Код
program dva;
var q,a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
q:=a-(b*trunc(c));
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
writeln('Остаток: ',q:3:1);
end.
var q,a,b,c:real;
begin
writeln('Ввести A');
readln(a);
writeln('Ввести B');
readln(B);
c:=a/b;
q:=a-(b*trunc(c));
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
writeln('Остаток: ',q:3:1);
end.
Так какраз ето я и непойму!
Ладно ответил я уже! Смотри!
Спасибо тебе большое!!! ;)
Если можеш то решы и другие задачи ;)
Если можеш то решы и другие задачи ;)
Вторая прога:
Над последней сам подумай!
Код
program desyat;
var a:array[1..10] of real;
min:real;
i:integer;
begin
writeln('Ввести 10 чисел');
for i:=1 to 10 do read(a[i]);
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:=a[i];
writeln('Ответ: ',round(min));
end.
var a:array[1..10] of real;
min:real;
i:integer;
begin
writeln('Ввести 10 чисел');
for i:=1 to 10 do read(a[i]);
min:=a[1];
for i:=2 to 10 do
if min>a[i] then min:=a[i];
writeln('Ответ: ',round(min));
end.
Над последней сам подумай!
Над самой сложной.
Я подумаю и потом если чтото не пойму то спрошу у тебя ;) :P
Я подумаю и потом если чтото не пойму то спрошу у тебя ;) :P
Цитата
program dva;
<...>
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
<...>
end.
<...>
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
<...>
end.
if (q>0) and (q<4)
Описка с кем не бывает :
Спасибо терминаторам ;D
Nox: посмотри тут http://forum.pascal.dax.ru/?board=zd;actio...num=10535011641
Спасибо терминаторам ;DNox: посмотри тут http://forum.pascal.dax.ru/?board=zd;actio...num=10535011641
Во... а я-то как раз ее искал
Может, сунешь ее в FAQ?
Может, сунешь ее в FAQ?
Цитата
Во... а я-то как раз ее искал
Может, сунешь ее в FAQ?
Может, сунешь ее в FAQ?
Я как раз над факом работаю! Содержимое этого топика будет в нем, да и не только это!
Пожалуста посмотрите еще такую задачу!
Она находится по етому адресу http://home.interstar.com.ua/~music/Zadacha_Paskal.htm
Пожалуста помогите решыть!
Она находится по етому адресу http://home.interstar.com.ua/~music/Zadacha_Paskal.htm
Пожалуста помогите решыть!
Nox, ты слишком много хочешь.
a=0
решения нет
a>=2
x = -ln(a)/ln(l)
a<0
x = -1
0<a<=1
x = (a-1)/2a
1<a<2
x = (1-a)/2a
a=0
решения нет
a>=2
x = -ln(a)/ln(l)
a<0
x = -1
0<a<=1
x = (a-1)/2a
1<a<2
x = (1-a)/2a
Цитата
Nox, ты слишком много хочешь.
zx1024 просто я в универ должен 5 лабораторных по праграмиреванию.А сам я пока ниче не шарю! И ети пять лабораторных мне нада пренисти в четверг! :-/
P.S если можеш напишы програму полностю!
Я отплачу! 8)
Код
program ForNox;
var a, x, l : real;
b : boolean;
begin
repeat
write ('введите l (l>0, l<>1): ');
readln (l)
until (l>0) and (l<>1);
write ('введите a: ');
readln (a);
b := true;
if a>=2 then
x := -ln(a) / ln(l)
else
if a<0 then
x := -1
else
if (0<a) and (a<=2) then
x := - abs(a-1)/a
else
b := false;
if b then
writeln ('f(x)=0 при x=', x)
else
writeln ('решения нет!!!')
end.
var a, x, l : real;
b : boolean;
begin
repeat
write ('введите l (l>0, l<>1): ');
readln (l)
until (l>0) and (l<>1);
write ('введите a: ');
readln (a);
b := true;
if a>=2 then
x := -ln(a) / ln(l)
else
if a<0 then
x := -1
else
if (0<a) and (a<=2) then
x := - abs(a-1)/a
else
b := false;
if b then
writeln ('f(x)=0 при x=', x)
else
writeln ('решения нет!!!')
end.
zx1024 посмотри еще ету задачу там заместь l должно быть 6!Решы ее с таким условием!Пожалуста сегодня решы!
Nox, ты вообще-то Pascal хоть раз видел?
Ну это уже откровенная наглость со стороны Nox'а. Тема закрыта.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.