Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
CTPEJIOK
0 / 0 / 2
Регистрация: 19.11.2009
Сообщений: 58
#1

Исправление ошибок - Turbo Pascal

11.03.2012, 15:05. Просмотров 412. Ответов 0
Метки нет (Все метки)

Помогите исправить ошибки. Задание во вложении.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
var A:array[1..3000] of integer;
var f:file;
var cena,marka:integer;
ulica,ulica1,ulica2,zapravka,zapravka1,zaprakva2:string;
assign (f,"data.txt");
reset f;
a[1]:=0;
a[2]:=3001;
readln(f,N);
while not (EOF(f)) and (marka<>92)
begin
readln(f,s);
val(s[43]+s[44];marka);
end;
val(s[46]+s[47]+s[48]+s[49];cena);
zapravka1:=copy(s,1,20);
ulica1:=copy(s,21,41);
A[1]:=Cena;
while not (EOF(f))
begin
while not (EOF(f)) and (marka<>92);
begin
readln(f,s);
end;
val (s[43]+s[44];marka);
zapravka=copy(s,1,20);
ulica=copy(s,21,41);
val(s[46]+s[47]+s[48]+s[49];cena);
If (cena<A[1]) and (cena<A[2]) then
begin
A[2]:=A[1];
A[1]:=cena;
zapravka2:=zapravka1;
ulica2:=ulica1;
If (A[1] < cena) and (A[2] > cena) then
begin
A[2]:=cena;
zapravka2:=zapravka;
ulica2:=ulica;
end;
end;
write(zapravka2,' ', ulica2);
end.
0
Миниатюры
Исправление ошибок  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2012, 15:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Исправление ошибок (Turbo Pascal):

Исправление ошибок, проверка. Файлы
Помогите, допишите в основной программе как добавлять процедуру dobav. Найдите...

Строки. Исправление ошибок в слове
Дано ошибочно написанное слово &quot;иинформация&quot;. Путем перемещения его букв...

Исправление ошибок в коде Паскаль
Задание. Составить блок-схему алгоритма и программу на языке ПАСКАЛЬ вычисления...

Исправление недочетов
uses crt; var a,b: array of integer; x,y,i,j,na,nb: integer; ...

Исправление программы.
Вот эту программу можно решить без odd и вообще другим способом, помогите...

Исправление программы
условия! заданы два массивы записей, каждый из которых содержит сведения о...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2012, 15:05
Привет! Вот еще темы с решениями:

Исправление ошибки в определении подпрограммы
Добрый вечер. Дело в том,что заместо булево признака,мне нужно перекодировать...

Исправление ошибок.
товарищи мозги дайте пожалуста правельное решение по паскалю помогите исправеть...

Использование библиотек DLL. Исправление ошибок
Программа должна производить подсчёты в подпрограммах(Оформить подпрограммы в...

Исправление ошибок в веденном тексте (перевести с C#)
здравствуйте..нужна помощь..не могу написать прогу..есть изначальный вариант на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru