IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите пжалстаааа, выдает ошибку в 56 строке...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 8
Пол: Женский
Реальное имя: Ленуська

Репутация: -  0  +


хз что что не правильно((в 56 строке там стоит Val.программу не устраивает.единственный мой вариант что там должен стоять другой оператор но хз какой.он должен переводить строку в число.


program Project1;

var

kg{количество городов},maxi{индекс максимума},max{максимум},z,
fl1,fl2{флажки}:integer;
i,j,k,m,n1,n2:integer;{разные счетчики}
nazv: array [0..13] of string;{исходный массив городов и их населения}
tabl1,tabl2: array [0..13] of string; {окончательные масивы}
massfl: array [0..13] of integer; {массив флажков, показывают записал уже
этот город или нет}

begin
{тут пишу своей графикой кто выполнил и т.д., }

{тут опять вывожу графикой или как хочешь}
writeln ('Vvedite koli4estvo gorodov');
fl1:=0;
repeat
if fl1=1 then writeln ('Nevernoe 4islo, Vvedite koli4estvo gorodov');
Readln(Kg);
fl1:=1;
until (Kg>=2) and (kg<=14);

{тут ввдится исходный массив, }
For i:=0 to kg-1 do
begin
Writeln ('VVedite nazvanie ',i+1,'-go goroda и ego naselenie');
readln (nazv[i]);
If i=kg-1 then writeln ('&');
end;

n1:=-1;
n2:=-1;
{тут в исходном массиве поочередно ищется максимум и распределяются города
по двум другим массивам, которые ты выведешь в соотв две таблицы}
For i:=0 to kg-1 do
begin
max:=0;
for j:=0 to kg-1 do
begin
if massfl[j]=0 then {смотрю только те строки, которые еще не}
begin {распределили по таблицам }
{находим пробел, отделяющий количество людей от названия города}
fl2:=0;
for k:=Length(nazv[j]) downto 0 do
if fl2=0 then
if Copy(nazv[j],k,1)=' ' then begin {если нашел пробел,}
m:=k; { то искать прекращает}
fl2:=1;
end;
z:=Val(Copy(nazv[j],m+1,Length(nazv[j])-m));
if z>max then begin
max:=z;
maxi:=j;
end;
end;
end;
massfl[maxi]:=1;
If max > 100000 then {тут формируются массивы}
begin {В одном больше 100000,}
N1:=N1+1; {в другом меньше}
tabl1[n1]:=nazv[maxi];
end
else
begin
N2:=N2+1;
tabl2[n2]:=nazv[maxi];
end;
end;
{теперь просто вывести надо всё}
For i:=0 to n1 do
writeln (tabl1[i]);
For i:=0 to n2 do
writeln (tabl2[i]);
readln;
end.

Сообщение отредактировано: mitten -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Val - не функция, а процедура...

z:=Val(Copy(nazv[j],m+1,Length(nazv[j])-m));

заменить на
Val(Copy(nazv[j],m+1,Length(nazv[j])-m), z, error); { <--- описать error: integer; }
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 8
Пол: Женский
Реальное имя: Ленуська

Репутация: -  0  +


огромное спасибо!!!!!!!!!!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4





Группа: Пользователи
Сообщений: 8
Пол: Женский
Реальное имя: Ленуська

Репутация: -  0  +


а ещ вопрос,как данные в паскале раскидать на 2 таблицы.не используя процедуры и модуль граф????кто-то гооврил по строчкам как-то можно рисовать..
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Michael_Rybak
*****

Группа: Пользователи
Сообщений: 1 046
Пол: Мужской
Реальное имя: Michael_Rybak

Репутация: -  32  +


 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги code

Исправляем.



 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гуру
*****

Группа: Пользователи
Сообщений: 1 220
Пол: Мужской

Репутация: -  16  +


Цитата
а ещ вопрос,как данные в паскале раскидать на 2 таблицы.не используя процедуры и модуль граф????кто-то гооврил по строчкам как-то можно рисовать..

Массивы. Матрицы. Типичные задачи.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 14:48
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name