Информатика (архив)

[Arnett]

Мне нужны тексты следующих программ, написанных на Паскале. Сама сейчас это сделать не могу, т.к. не была на объяснении темы, а сдать надо. Поможете?
1) Написать программу, которая выясняет, может ли последовательность символов обозначать 11ричное число.
2) Написать программу, которая после ввода 10ричного числа получает цифры его перевода в 11ричную систему счисления.

[Arrgot]

Arnett До которого тебе надо?
Первое не понятно. Немного подробнее можно?

которая после ввода 10ричного числа получает цифры его перевода в 11ричную систему счисления.

То есть переводит 10-число в 11-число?

[Arnett]

Argo, до 12го апреля.
Первое - например, ты вводишь "12345", а программа выдает, 11ричное это число или нет.
Второе -

То есть переводит 10-число в 11-число?

да.

[Arrgot]

Arnett До 12 апреля мне слабо.
Zigzy Тебя не затруднит здесь выложить? Чувствую, в скором времени мне предстоит то же.

[Zigzy]

Argo извини, отправила сообщение для Arnett раньше, яем увидела твоё сообщение... Программу №1 получай. Вторую если успею между тестами, то сделаю. Но не обещаю.

Program ...;
Var a: string;
b: word;
i: integer;
BEGIN
readln(a); <----- считывает число в текстовом формате
b:=0;
for i:=1 to length(a) do
begin
if (a[i]<'0') or (a[i]>'A') then b:=1; <----- регистр "А" имеет
end; - - - - - - - - - - - - - - - - - - - - - - значение! Как и язык (англ.)
if b=0 the n writeln('Данное сочетание сомволов может являться числом в одиннадцатиричной системе счисления')
else writeln('Данное сочетание сомволов не может являться числом в одиннадцатиричной системе счисления');
Readln;
END.

[Arrgot]

Zigzy, если я правильно поняла, у тебя есть возможность проверить работоспособность программы на Паскале. Дело в том, что дома он у меня загнулся, и негде отладить программы. В связи с чем огромная просьба проверить мои проги и сказать где ошибки.
До субботы.
Первая:
Задание: Найти сумму последовательности x1,x2,x3,..xn (n=<30), начиная от первого отрицательного элемента и до конца последовательности.

Program sum(input,output);
Const
nmax:=30;
type
index:=1..nmax;
vec=array[index] of real;

Var
x:=vec;
I,n:index;
s:real;

begin
write('n=');
readln(n);
for I:=1 to n do
begin
write ('x[',I:2,'] =')
readln (x[I]);
end;

I:=1;
while x[I]>=0 do
I:=I+1;

s:=0;
for I to n do
s:=s+x[I];

write('s=',s);
end.

[Zigzy]

Argo проблема в том, что паскаля у меня дома нет А ту прогу я прям так написала...

[Arrgot]

Zigzy Аааа...нееет. Может попробуешь ошибки так найти?
Arnett А может у тебя есть?

[Zigzy]

Argo на каком паскале пишется программа? если на 7-ом, то нет нужды ничего обнулять... Всё равно 0 изначально. и смысл вот этого цикла -
I:=1;
while x[I]>=0 do
I:=I+1;
я не поняла. Там же всё равно, отрицательные или положительные числа складываешь...

[Arrgot]

Найти сумму начиная с первого отрицательного. Какой Паскаль? Честно говоря без понятия, но вроде бы шестой. Но не факт.

[size=1]Argo добавил [date]1082033478[/date]:[/size]
Zigzy Тебя не затруднит посетить эту тему утром в субботу . Просто еще несколько вопросов есть, но я сейчас не дома и вспомнить их не в состоянии.

[Zigzy]

Argo хорошо, мне не жалко, обязательно забегу...
а что значит "начиная с первого отрицательного"? При суммировании имеет значение, с чего начинаешь складывать?

[Паладин+]

если на 7-ом, то нет нужды ничего обнулять... Всё равно 0 изначально.

хм... когда я учил TP7 препод, утверждал, что обнулять всё равно необходимо.

[Arrgot]

Program vosem(input,output);
Type row=array[1..100] of real;
Var Num,I,NumbMax, NumbRMax, NumbVMax: integer;
MaxTemp,rmax,vmax; real;
Temp,r,v:row;

procedur FindMax (t: row; Num: integer;-
var Max:real;var Imax: integer);
var I:integer;
begin
Max:=T[1];
Imax:=1;

for I:=2 to Num do
if T[I]>Max then
begin
Max:=T[I]; Imax:=I
end
end;

begin

writeln('vvedite 4islo elementov');
readln(Num);
writeln('vvedite massiv zna4enij');

for I:=1 to Num do read (Temp[I]);

r:=Temp[I]*Temp[I];
Temp:=r;
FindMax (Temp,Num, MaxTemp, NumbMax);
Rmax:= MaxTemp;
NumbRMax:= NumbMax;

V:=(Temp[I]-rmax)/Num;
Temp:=V;
FindMax (Temp,Num, MaxTemp, NumbMax);
Vmax:= MaxTemp;
NumbVMax:= NumbMax;
Writeln('Maximum', Rmax:4:1, 'Nomer=', NumbRMax:2);
Writeln('Maximum', Vmax:4:1, 'Nomer=', NumbVMax:2);

end.


Procedur
Type
Row= array[1..dim];
Qmatrix= array[1..dim,1..dim];

procedur NewMax(T:Qmatrix;dim:integer:-var Max:real; I,J:integer);
begin
Max:=T[1,1];
For I:=2 to dim do
for For J:=1 to dim do
If T[I,J]>Max then
Begin
Max:=T[I,J];
End;

T[I,I]:=Max;

End.

Program second (input,output);

var x,y,c:real;
label 1, 2, 3;
begin
writeln('vvedite x,y');
readln(x,y);

if (x=o) then
goto 1;
else
if (y=0) then
goto 1;
else
if (x>0) then
begin

if (y>0) then
goto 1;
else z:=y-x;
if (z<0) then
begin
c:=y/x
if (c=>-1) then
goto 1;
else goto 2;
end;

if (y<0) then
goto 1;
end;
else z:=y-x

if (z>0) then
begin c:=y/x;

if (c=>-1) then
goto 2;

else goto1;
end;

1:
writeln ('da')
goto 3;
2:
writeln ('net')
goto 3;
3:
end.




Program first (input,output);

var x,y,b,a,e,c,F,z:real;
label 1, 2;
begin
writeln('vvedite x,y,a,b. Prichem a I b ne ravnye 0');
readln(x,y,a,b);
if (a=0) then
goto 2;
else
z=y+(x-a)*(x-a);


if (z=o) then
goto 1;

else
c:=(x-a)*(x-a)*(x-a);
e:=exp(-(x/a)*(x/a)-(x/b)*(x/b));
F:=c/z*e;
Writeln('F=', F);
Goto 3;

1:
writeln('Proizoshlo delenie na 0. Izmenite znachenija x,y,a');
goto 3;
2:
writeln('Proizoshlo delenie na 0. Izmenite znachenija a,b');
goto 3;
3:
end.



Program third (input,output);

var x,a,b,h:real;
begin
writeln('vvedite x,a,b,h');
readln(x,a,b,h);
writeln(' x y');
writeln;

while x<(b +h/2) do
begin
If (x<0,5) then
Begin
Y:=1+sin(x+0,5)*sin(x+0,5)*sin(x+0,5);
End

Else
If (-0,5=<x) and (x=<0,5) then
Begin
Y:=1;
End

Else
If (0,5<x) then
Begin
Y:=1+sin(x-0,5)*sin(x-0,5)*sin(x-0,5);
End;

Writeln(x:5:2, y:10:4);
X:=x+h;
End;
Writeln('konec tablitsy');

End.

Program four(input,output);
Const N=10;
Var x,a,S:real;
I:integer;
Begin
Writln('vvedite x');
Readline(x);
A:= sin((I+1)*x)*i/((I+1)*(I+1)*sin(I*x));
S:=a;
For k:=2 to N do
Begin
A;=a+sin(2*x)/(4*sin(I*x));
S:=S+a;
End;
Writeln('Summa',N:2,'slagaemyx',S:7:4)
End.

Program five(input,output);
Var x,a,eps,y,S:real;
K:integer;
Begin
Writln('vvedite x, eps');
Readln(x,eps);
K:=0;
A:=1;
S:=0;
Repeat S:=S+a;
K:=k+1;
A:=a+((-1)*(2*k+3)cos((2*k+3)*x)/((2k+3)*cos((2*k+1)*x));
Until abs(a/y)<eps;
Writeln('S(',x:4:2,')=',S)
End.
Zigzy Имеет
Паладин+ Учла, спасибо.

[Zigzy]

Argo

Имеет

приведи хоть один пример. А то начну цитировать первое правило арифметики...
Паладин+

хм... когда я учил TP7 препод, утверждал, что обнулять всё равно необходимо.

и это далеко не с лучшей стороны характеризует твоего препода Потому что я даю 100%-ую гарантию того, что в 7-ом паскале все переменные изначально равны нулю

[Arrgot]

Уважаемые специалисты по информатике! Помогите пожалуйста. Надо на Паскале составить несколько программ. До пятницы включительно.

1.Проверить, является ли исходная матрица, состоящая из целых чисел, нижней треугольной. Напечатать соответствующее сообщение.

2.Составить процедуру, которая определяет мах по модулю элемент в каждой строке квадратной матрицы и осуществляет его перестановку с соответствующим диагональным элементом.