Страница 3 из 4
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 02 июн 2008, 23:49
Aigerim
Denys писал(а):Код: Выделить всё
if (n div 10 = a) or (n mod 10 = a) then
writeln('Da');[/quote]
thank you very much
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 03 июн 2008, 21:05
Aigerim
НАЙТИ КВАДРАТ СЛОГАЕМЫХ ВСЕХ ЦЕЛЫХ ЦЫФР НАЧИНАЯ С А ДО 50. А МЕНЬШЕ 50
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 04 июн 2008, 11:19
Хыиуду
"И вовфе необявательно так орать! Я и ф первого ваза вас пвекрафно уфлышал!" (с) Кролик.
Что, по-вашему, такое "КВАДРАТ СЛОГАЕМОГО ЦЕЛОЙ ЦЫФРЫ"?
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 07 июн 2008, 08:08
Света
Здравствуйте! Помогите пожалуйста глупой блондиночке с задачкой. "Паскаль-одномерные массивы". Вставить элемент массива с номером k.
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 07 июн 2008, 11:39
drummer
Куда вставить?
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 07 июн 2008, 12:48
Света
Вставить в ряд элементов массива.
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 07 июн 2008, 15:00
Хыиуду
Света, достаточно было создать одну тему, а не копировать сообщение в две или три другие, да еще и дублировать личкой.
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 07 июн 2008, 15:33
drummer
Идем с конца до нужной позиции при этом сдвигая каждый элемент влево. В итоге освободим ту позицию, куда надо вставить элемент. Вставляем.
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 11 июн 2008, 12:54
Света
Привет всем! Помогите разобраться с задачей: создать нетекстовый файл Video.dat, в котором хранятся данные о фильмах (назв. фильма, киностуд.,реж.,год вып.).Переписать в текстовый файл инф. о фильмах упоряд. по году выпуска. Переписать в отд. файл режис. и назв. фильмов, снимавшихся на одной киностуд.Вывести на экран инфю о фильмах, снятых до 1999г. Я вот начала делать, а правильно или нет не знаю:const
MaxFilms=15;
type FilmArray =array [1..MaxFilms] of string;
type film-record
a(Nazavnie) : string[45];
b(KStudio) : string[45];
c(Regiser) : string[45];
d(God) : integer;
end;
var
F : file of Film;
Дальше у меня идет список фильмов
....
Re: Пару задачек по Паскалю, помогите если не тяжело...
Добавлено: 11 июн 2008, 16:31
MOTOCoder
" писал(а):MaxFilms=15;
type film-record
a(Nazavnie) : string[45];
b(KStudio) : string[45];
c(Regiser) : string[45];
d(God) : integer;
end;
Это на каком языке?
На паскаль это даже отдаленно не похоже.
Тогда уж так:
[syntax='Delphi']
type film=record
Nazavnie : string[45];
Studio : string[45];
Regiser: string[45];
God : integer;
end;
[/syntax]