Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задачи: массивы!
Автор: Nox 14.09.2003 21:54
Програмисты пожалусто помогите решыть такие задания:
1.Ввести два вешественых числа a и b. Найти остаток от деления a и b. Определить принадлежность остатка интервалу [0…4].
2.Даны 10 вешественых чисел. Определить набольшее из отрицательных чисел, округлить его к ближайшему целому.
3.Найти суму положительных элементов двух диогоналий массива. Определить является ли полученное округлое число простым.
P.S Пожалуста кто знает ответте!!! ;)
Автор: trminator 14.09.2003 22:40
А как нозтчет зваих нороботак по ентой задачи?
Автор: AlaRic 14.09.2003 23:00
Первая прога:
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.
Автор: Nox 14.09.2003 23:00
У меня есть свои наработки но я неуверен в их правельности.!
Пожалуста помоги мне!
Автор: Nox 14.09.2003 23:03
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.
Так ты неуказал как определить остаток от деления!
Автор: AlaRic 14.09.2003 23:15
А как насчет сам? ;D У тебя же есть наработки! ;)
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.
Автор: Nox 14.09.2003 23:17
Так какраз ето я и непойму!
Автор: AlaRic 14.09.2003 23:18
Ладно ответил я уже! Смотри!
Автор: Nox 14.09.2003 23:22
Спасибо тебе большое!!! ;)
Если можеш то решы и другие задачи ;)
Автор: AlaRic 14.09.2003 23:29
Вторая прога:
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.
Над последней сам подумай!
Автор: Nox 14.09.2003 23:32
Над самой сложной.
Я подумаю и потом если чтото не пойму то спрошу у тебя ;) :P
Автор: trminator 14.09.2003 23:35
<...>
if (q>0) or (q<4) then writeln('Принадлежит отрезку');
<...>
end.
if (q>0) and (q<4)
Автор: AlaRic 14.09.2003 23:37
Описка с кем не бывает :
Спасибо терминаторам ;D
Nox: посмотри тут http://forum.pascal.dax.ru/?board=zd;action=display;num=10535011641
Автор: trminator 14.09.2003 23:42
Во... а я-то как раз ее искал
Может, сунешь ее в FAQ?
Автор: AlaRic 14.09.2003 23:46
Может, сунешь ее в FAQ?
Я как раз над факом работаю! Содержимое этого топика будет в нем, да и не только это!
Автор: Nox 15.09.2003 23:07
Пожалуста посмотрите еще такую задачу!
Она находится по етому адресу http://home.interstar.com.ua/~music/Zadacha_Paskal.htm
Пожалуста помогите решыть!
Автор: zx1024 16.09.2003 0:47
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
Автор: Nox 16.09.2003 23:09
zx1024 просто я в универ должен 5 лабораторных по праграмиреванию.А сам я пока ниче не шарю! И ети пять лабораторных мне нада пренисти в четверг! :-/
P.S если можеш напишы програму полностю!
Я отплачу! 8)
Автор: zx1024 16.09.2003 23:34
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.
Автор: Nox 18.09.2003 21:48
zx1024 посмотри еще ету задачу там заместь l должно быть 6!Решы ее с таким условием!Пожалуста сегодня решы!
Автор: zx1024 20.09.2003 2:04
Nox, ты вообще-то Pascal хоть раз видел?
Автор: Ivs 20.09.2003 23:48
Ну это уже откровенная наглость со стороны Nox'а. Тема закрыта.