-
Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.
Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.
Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.
Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.Задать вопрос Новые сообщения Как правильно спроситьЕсли пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.
Записи
- Автор темы Ins1s
- Дата начала
program upoHu9;
type cheJIoBek=record
gorod: string[2];
yJIuILa: 1..2
end;
var g,y:array [1..2] of cheJIoBek;
i:integer;
begin
for i:= 1 to 2 do
with g do begin
writeln ('введите город');
readln (gorod);
writeln ('введите улицу');
readln (yJIuILa);
writeln;
end;
for i:=1 to 2 do
with g do if yJIuILa < 2
then writeln ('adreca raBni eto cyDb6a' );
readln;
end.
type cheJIoBek=record
gorod: string[2];
yJIuILa: 1..2
end;
var g,y:array [1..2] of cheJIoBek;
i:integer;
begin
for i:= 1 to 2 do
with g do begin
writeln ('введите город');
readln (gorod);
writeln ('введите улицу');
readln (yJIuILa);
writeln;
end;
for i:=1 to 2 do
with g do if yJIuILa < 2
then writeln ('adreca raBni eto cyDb6a' );
readln;
end.
- Регистрация
- 19 Авг 2007
- Сообщения
- 15,802
- Реакции
- 491
- Баллы
- 0
Для начала в записи определите длину выражения не в 2 символа, а, по крайней мере, в 30, причем строковыми должны быть обе переменные (и gorod и yJIuILa). Большинство названий городов и улиц вполне будут укладываться в эту длину.
Массив задавайте, не опираясь на запись, к примеру, из N элементов. Место в памяти под него программа выделит самостоятельно.
Кстати, почему вы проверяете именно 2 адреса, а не больше?
Массив y вам тоже не нужен!
Массив задавайте, не опираясь на запись, к примеру, из N элементов. Место в памяти под него программа выделит самостоятельно.
Кстати, почему вы проверяете именно 2 адреса, а не больше?
Массив y вам тоже не нужен!
- Регистрация
- 27 Авг 2008
- Сообщения
- 27,807
- Реакции
- 1,025
- Баллы
- 0
А я бы посоветовал просто тип STRING, без задания длины. В этом случае длина определится сама.
- Регистрация
- 27 Авг 2008
- Сообщения
- 27,807
- Реакции
- 1,025
- Баллы
- 0
ну у меня 2 человекавот поэтому 2 адреса.. а все менял у меня стока ошибок потом выходит ..тип не соответствует и еще че нибудь...
Ну так и попробуйте, как Вам советуют:
type cheJIoBek=record
gorod: string;
yJIuILa: string;
end;
Или так:
type cheJIoBek=record
gorod: string[30];
yJIuILa: string[30];
end;
Да, кстати и проверка выполнена неправильно. Надо так:
for i:=1 to 2 do
with g do if yJIuILa < 2 - убрать!
if g[1].yJIuILa=g[2].yJIuILa then
writeln ('adreca raBni eto cyDb6a' );
readln;