Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.10.2017, 20:19   #1
VladimirSamara
Новичок
Джуниор
 
Регистрация: 24.10.2017
Сообщений: 1
Восклицание Срочно,пожалуйста.Тема Aski cod

В коде,указанном ниже,в строчке выдаленной слешкми привыполнеии программы выскакивает ошибка НЕТ ПЕРЕГРУЖЕННОЙ ПРОГРАММЫ С ТАКИМИ ТИПАМИ ПАРАМЕТРОВ;Сама задача должна сортировать строки по их последнему символу аски кода
var a:array[1..1000] of string;
i,j,n:integer;
p1,p2:string;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=1 to n-i do begin
p1:=Copy(a[j],length(a[j]),1);
p2:=Copy(a[j+1],length(a[j+1]),1);
///////// If ord(p1)>ord(p2) then
swap(a[j],a[j+1]);
end;
writeln;
for i:=1 to n do
write(a[i],' ');
end.
VladimirSamara вне форума Ответить с цитированием
Старый 24.10.2017, 20:26   #2
ura_111
Участник клуба
 
Регистрация: 14.05.2016
Сообщений: 1,793
По умолчанию

А без этой строчки работает?
ura_111 вне форума Ответить с цитированием
Старый 24.10.2017, 20:28   #3
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

1. ord от String не бывает
2. на пустой строке в массиве этот код сдохнет
3. что за swap?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 24.10.2017, 20:32   #4
ura_111
Участник клуба
 
Регистрация: 14.05.2016
Сообщений: 1,793
По умолчанию

Почему не бывает?
(я сам не знаю, но я думаю, что здесь по аналогии):


2.jpg
ura_111 вне форума Ответить с цитированием
Старый 24.10.2017, 20:33   #5
ura_111
Участник клуба
 
Регистрация: 14.05.2016
Сообщений: 1,793
По умолчанию

Да, пусть удалит обе строки
Код:
///////// If ord(p1)>ord(p2) then
swap(a[j],a[j+1]);
и по одной вводит... На каком месте появиться ошибка...
ura_111 вне форума Ответить с цитированием
Старый 24.10.2017, 20:35   #6
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

PHP при чем? У ТС паскаль какой-то, я о нем.
Вот например делфийский ord http://www.delphibasics.ru/Ord.php
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 25.10.2017, 00:16   #7
min@y™
Цифровой кот
Старожил
 
Аватар для min@y™
 
Регистрация: 29.08.2014
Сообщений: 7,656
По умолчанию



78.png
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
min@y™ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите написать прогу на Си, тема файлы, срочно! Xyber Помощь студентам 1 06.12.2008 16:14
Помогите,plz,решить задачи на С++.Тема:Указатели и ф-ии!Срочно!!! Wia Помощь студентам 5 06.12.2008 12:30
помогите пожалуйста с Паскалем.Тема векторы Moroka Помощь студентам 1 23.12.2007 16:17