Sanekl9, дак нам просто нужно найти индекс наибольшего элемента в массиве.
Const N=3;
Var bank:array[1..N] of real;
i,b:integer;
max:real;
Begin
for i:=1 to N do
Begin
Write('Введите курс в ',i,' банке: ');
Readln(bank[i])
end;
max:=bank[1];
b:=1;
for i:=2 to N do
if bank[i]>max then
Begin
max:=bank[i];
b:=i
end;
Writeln('Наиболее выгоден курс для обмена в банке номер ',b)
End.
slepoy, а ты уверен, что формулы правильные?
program e2;
uses crt;
var C,R,S: real;
begin
clrscr;
WriteLn('Введите длину С');
ReadLn(C);
C:=2*3.14*R;
R:=C/2*3.14;
S:=3.14*R*R;
Write('C=',C:10:1, 'R=',R:10:1, 'S=',S:10:1);
readkey
end.
slepoy пишет: "
и как насчет пробелов влияют они на правильность?"
Пробелы не влияют, но сама программа написана не верно. И синтаксические ошибки есть, и сам алгоритм я не понял. Если не изменяют знания школьной геометрии, есть формула S=(c^2)/4P. Вот и получаемс:
var s,c: real;
begin
write('введите длину окружности: ');
readln(c);
s:=sqr(c)/(4*pi);
writeln('площадь круга = ',s:5:2);
end.
Дмитрий, формулы точно знаю площадь круга будет ''пи R квадрат вот 3.14*R*R'' длинна круга ''C=2*3.14*R"
формулы все верные.
добавлено спустя 23 минуты:
Дмитрий, вот говорят так надо
program E2;
var C,R,S: real;
begin
write('vvedite dliny C');
read (C);
R:=C/(2*3.14);
S:=3.14*R*R;
write('C=', C:10:1, 'R=', R:10:1, 'S=', S:10:1);
End.
Помогите с задачкой, знаю что она элементарная ( сам сделал ее минут за 5) но вот чет сижу и никак понять не могу - что от мя хотят
var x,y:real;
begin
x:=0.2;
Writeln('-------------------');
Writeln('| x y |');
Writeln('|-----------------|');
while x<=1.2 do
begin
y:=( sqr( cos(x)/sin(x) ) )*(sqrt(x)+0/5);
Writeln('| ',x:4:4,' ',y:5:1,' |');
x:=x+0.1
end;
Writeln('-------------------')
end.
вот здесь от меня требуется помимо ответа установить интервал от синуса.. ну и чтоб все ответы таблицы были в пределах от 0.2 до 1.2... я вроде бы все сделал - но говорят что неправильно
Solskjaer, var f1,f2: text;
s: string;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
while not eof(f1) do
begin
readln(f1,s);
if odd(length(s)) then writeln(f2,s);
end;
close(f1);
close(f2);
end.
Дмитрий
