clever person

СПАСИБО ВАМ ОГРОМНЕЙШЕЕ !!! ВСЕ ПОЛУЧИЛОСЬ!!! УРА!!!

AlexZir

Да на здоровье, кушайте - не обляпайтесь ;).

__________________
Убить всех человеков!

clever person

вот опять запуталась с задачей помогите: имеется список вузов, в котором для каждого вуза указывается:наименование, план приема, кол-во поданных заявлений. среди всех вузов,у которых план приема больше
1000 чел., найти вуз с наибольшим конкурсом. вот что получилось:
Program Zplata;
uses wincrt;
var name:array [1..10] of string[8];
b:array [1..10] of word;
c:array [1..10] of word;
kon:array [1..10] of real;
r,n,i,j,k:integer;
max:real;
begin
write('ввод n');
readln(n);
for i:=1 to n do begin
write('name[',i,']=');
readln(name[i]);
write('план приема=');
readln (b[i]);
write('заявления=');
readln (c[i]);
end;
r:=0;
for i:=1 to n do begin
if b[i]>1000 then r:=r+1;
end;

for i:=1 to r do begin
j:=1 ;
kon[j]:=c[i]/b[i];
j:=j+1;
end;
max:=kon[1];
for j:=1 to r do begin
if kon[j]>max then
begin max:=kon[j]; k:=j; end else if kon[1]=max then k:=1;
end;
writeln('max=',max);
writeln('name=',name[k]) ;
end.
исправте мои ошибки пожалуйста!!!

alena-yalymova

Здравствуйте. Пожалуйста помогите решить 4 задачки в Паскале. Я в этом вообще ни чего не понимаю. Если можно то сделайте до 5.04.2007 (субботы)
#1. Вычислить значения функции и распечатать в виде таблицы y=((Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7
#2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2
#3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать.
#4 Задан массив из семи строк. В каждой строке "наименование товара_цена". Увеличить цены на 10%, отсортировать массив по возрастанию цен, распечатать.

bubuka

Program Zplata;
uses wincrt;
type
data = record
name: string[20];
plan: integer;
zayvy: integer;
end;

var

vuz: array [1..maxint] of data;
I, maxi: integer;
Max:real;

begin
write (‘Kol-vo Vuzov’); readln(n);

for i:=1 to n do
begin
write(‘Введите имя, план и колв-во заявок’,i, ‘вуза’);
read(vuz[i].name, vuz[i].plan, vuz[i].zayvy);
end;

if n>0 then begin
max=vuz[1].zayvy/vuz[1].plan;
maxi:=1;
for i:=1 to n do
if vuz[i].plan>1000 then
begin
if max<vuz[i].zayvy/vuz[i].plan then
begin
maxi:=I;
max=vuz[i].zayvy/vuz[i].plan;
end;
end;
write(‘Имя вуза с наибольшим конкурсом ’, vuz[maxi].name);

end
else
write (‘Ввузы не введены’);


end.


Это только алгоритм возможно ошибки в написании словах или синтаксисе ( ну нитпа двоеточие не там, писал в ворде), если что отвечу на вопросы

bubuka

если некто не сделает раньше завтра в обед сделаю а то всетаки на работе еще и работать надо )))
и завтра в обед напиши надо это еще или нет а то несмотря на то что тут работы на 15 минут нехочеться за зря делать

bubuka

не совсем понятно условие y(Xi,Yi/arccosX) может тут умножить? и что за запятые? это оттдельные функции? поясни и сделаю



var
mas: array [1..100] of real;
i,n:integer;
p:real;

begin
write ('Vvedite dlinu massiva'); readln(n);
For i:=1 to n do
begin
write('Vvedite ',i,'element massiva');
readln(mas[i]);
end;

if n=0 then write('Massiv ne soderzhit elementov')
else
begin
p:=1;
for i:=1 to n do
if mas[i]<>0 then p:=p*mas[i];
end;

writeln('Otvet',p);
end.

тут несколько варинтов решения, если конкретно по условию (строка без пробелов только +, - и числа то решение такое (оно не совсем может оптимально, скорее где чисел не 3 а произвольно)

var
s,s1:string;
mass:array [1..3] of staring;
mash:array [1..3] of real;
i,d,k,code:intger;
otv:real
begin
writeln('Vvedite vyrazhenie');
readln(s);
d:=length(s);
k:=1;

for i:=1 to d do
if s[i]<>'+' and s[i]<>'-' then mas[k]:=mas[k]+s[i]
else k:=k+1;
for i:=1 to k do
val(mass[i];mash[i];code);

otv:= mash[1]+mash[2]-mash[3];

writeln('Otvet',otv);
end.

это самы епростые и быстрые соответсвенно 1 и 4 сделаю если поступит поттверждение что точно надо делать. чтоб не отвлекаться лишний раз

alena-yalymova

Огромное спасибо. Все работает. А про первую задачу я не знаю, но мне ее уже сделали и 4 тоже. Огромное Вам спасибо!

bubuka

да незашта
мне не трудно и настальгия по программированию в паскале)

Let4ick

ПОМОГИТЕ плз надо нипизать прогу я щас сижу на инфе и незнаю что делать вроде написал все правельно а она все равно вылетает на определенном моменте. Посмотрите где я допустил ошибку:
program lol;
var B,A:array[1..255] of integer;
i,j,min,n,kmin:integer;
begin
writeln ('vvedite kol-vo elementov');
readln (n);
for i:=1 to n do
begin
writeln ('vvedem A[i]');
readln (A[i]);
end;
min:=A[i];
for i:=1 to n do
if min>A[i] then
kmin:=i;
end.
i:=1;
for i:=kmin to n do
begin
B[l]:=A[i];
l:=l+1;
end;
for i:=1 to kmin do
writeln ('B[i],' ');
readln (B[i]);
end.