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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 05.06.2013, 14:08   #1
Rammstalex
Новичок
Джуниор
 
Регистрация: 05.06.2013
Сообщений: 5
По умолчанию Исправьте ошибку

Вообще изначально задача была такая, решил упростить.Считать из файла информацию о рейсе самолета (N рейса, время вылета, время прилета, пункт назначения). Вывести информацию о всех рейсах в заданный город.

Решил сделать так: просто произвести поиск слова в строках из файла, если найдется нужное слово, то вывести всю строку.

Пожалуйста помогите

[pascal]var
f:text;
temp:string;
s:string;
begin
assign(f,'baza.txt');
reset(f);

while not eof(f) do
begin
writeln('Введите пункт назначения');
readln(s);
readln(f,temp);
writeln(pos(s,string[i]));
end;

close(f);
end.[paskal/]


содержание файла:
23 14 16 Англия
24 19 20 Мексика
25 20 21 Англия
Rammstalex вне форума
Старый 05.06.2013, 14:54   #2
eoln
Старожил
 
Аватар для eoln
 
Регистрация: 26.04.2008
Сообщений: 2,689
По умолчанию

Ввод города надо перенести из цикла, ну и поиск неправильный
Код:
 writeln('Введите пункт назначения');
 readln(s);
 while not eof(f) do
 begin
 readln(f,temp);
 if pos(s,temp)>0 then writeln(temp);
 end;
 close(f);
Надеюсь, городов с названиями типа Йорк и Нью-Йорк не будет, иначе может выдать лишнее.
Ну и на счёт кодировок скажу, что могут быть проблемы с русским языком
eoln вне форума
Старый 05.06.2013, 15:05   #3
Rammstalex
Новичок
Джуниор
 
Регистрация: 05.06.2013
Сообщений: 5
По умолчанию

Спасибо большое)))
Rammstalex вне форума
Старый 11.12.2013, 20:49   #4
Alexmur07
Форумчанин
 
Регистрация: 20.11.2008
Сообщений: 121
По умолчанию

- это задание
это я попытался решить)
Код:
uses crt;
var
x,y:real;
g:double;
begin
clrscr;
writeln('Лабораторная работа 1');
writeln('---------------------');
write('Введите значение переменной x, x=');
readln(x);
write('Введите значение переменной y, y=');
readln(y);
g:=((1+cos(x+y)/(abs(exp(x)-2*y/(1+sqr(x)*sqr(y))))*(exp(3*ln(x))+arctan(y/sqrt(1-sqr(y))))));
writeln('g=',g);
writeln('Для продолжения нажмите любую
клавишу');
readkey;
end.
сильно не ругать)))
если ставить меньше скобочек в формуле то он пишет что скобок мало надо поставить есчё)) и я там попытался арксинус заменить на формулу арктанг, вообщем вроде он что-то считает, но походу считает не правильно... подскажите где я в формуле накосячил... он мне такую ерись в ответе выдаёт... только если ставить х и у 1 тогда ответ более близок к правдивому... подскажите двоячнику
Разгон – вещь не определённая,
по этому конечный результат зависит от конкретного чипа (CPU или GPU а также моста), качества охлаждения и везения.
Alexmur07 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
исправьте ошибку rockrainbow Помощь студентам 3 19.12.2012 22:13
Исправьте ошибку!! Krivaia_soplea Паскаль, Turbo Pascal, PascalABC.NET 5 07.11.2012 20:15
Исправьте ошибку 15104 Общие вопросы C/C++ 2 06.10.2011 11:07
Исправьте ошибку.С# Tase4ka Помощь студентам 8 12.02.2011 14:09
Исправьте ошибку kipapsih Помощь студентам 0 07.01.2011 20:19