Нужна помощь с Pascale-м

[AlexZir]

Если число сотрудников неизвестно, создайте текстовый файл со списком и используйте чтение из файла в динамический массив.

 

[AlexZir]

Попробуйте скопировать мой вариант и запустить, предварительно изменив crt на wincrt. Команду clrscr тоже можно не писать.

 

[clever person]

я так сделала но все равно фамилии не выводятся

 

[AlexZir]

А что делает? Числа-то хоть выводит?

 

[clever person]

числа выводит а вот фамилии нет

 

[AlexZir]

Какая у вас версия Паскаля?

 

[AlexZir]

Только что проверил в Borland Pascal 7.1 - все выводит

 

[clever person]

у меня очень старый турбо паскаль

 

[AlexZir]

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

 

[AlexZir]

у меня очень старый турбо паскаль

Вы фамилии как вводили - на русском? Кроме цифр какие нибудь знаки на экран выводятся?

 

[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;
for i:=1 to n do begin
write('name[',i,']=');
readln(name);
write('план приема=');
readln (b);
write('заявления=');
readln (c);
end;
r:=0;
for i:=1 to n do begin
if b>1000 then r:=r+1;
end;

for i:=1 to r do begin
j:=1 ;
kon[j]:=c/b;
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;

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

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

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


end.


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

 

[bubuka]

alena-yalymova

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

 

[bubuka]

#1. Вычислить значения функции и распечатать в виде таблицы y(Xi,Yi/arccosX)+0,41(в 3 степ.)*tg(x+0,5))(вся скобка в 3 степ.) X1+-1, Xi+1+Xi+0.5, i=0.1,...,7

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

#2. Найти произведение ненулевых элементов в одномерном числовом массиве и напечатать.2

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

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

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

writeln('Otvet',p);
end.

#3 Дана строка вида "число1+число2-число3". Вычислить числовое значение выражения и распечатать

тут несколько варинтов решения, если конкретно по условию (строка без пробелов только +, - и числа то решение такое (оно не совсем может оптимально, скорее где чисел не 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<>'+' and s<>'-' then mas[k]:=mas[k]+s
else k:=k+1;
for i:=1 to k do
val(mass;mash;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 ;
for i:=1 to n do
begin
writeln ('vvedem A');
readln (A);
end;
min:=A;
for i:=1 to n do
if min>A then
kmin:=i;
end.
i:=1;
for i:=kmin to n do
begin
B[l]:=A;
l:=l+1;
end;
for i:=1 to kmin do
writeln ('B,' ');
readln (B);
end.