В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

с доработкой кода, вообщем написал процедуру, но выскакивает ошибка. Процедура должна вставлять новый элемент E после первого элемента непустого списка L. Полная программа в txt файле

procedure vstavka(var list: ukaz;n:integer;fioo,godd,poll,sost,det,okll:string);

var p: ukaz; i:integer;

fiooo,goddd,polll,sostt,dett,oklll:string;

begin

temp:=left;

list:=temp;

p:=list;

n:=0;

i:=1;

if (temp<>nil) and (temp^.next<>nil) then

begin

Writeln('Введите элементы которые нужно вставить');

writeln('Введите ФИО студента');

readln(fioo);

writeln('Введите год рождения студента');

readln(godd);

writeln('Введите пол студента');

readln(poll);

writeln('Введите cемейное состояние студента');

readln(sost);

writeln('Введите кол-во детей студента');

readln(det);

writeln('Введите оклад студента');

readln(okll);

p^.inf.fio:=fioo;

p^.inf.god:=godd;

p^.inf.pol:=poll;

p^.inf.semsost:=sost;

p^.inf.koldet:=det;

p^.inf.okl:=okll;

temp := list;

list := nil;

while temp<>nil do

begin

n:=n+1;

writeln(i,')',temp^.inf.fio,' | ',temp^.inf.god,' | ',temp^.inf.pol,' | ',temp^.inf.semsost,' | ',temp^.inf.koldet,' | ',temp^.inf.okl);

if i=2 then

begin

temp^.inf := p^.inf;

p^.next := temp^.next;

temp:= p^.next;

end;

list^.next:=temp^.next;

list^.inf := temp^.inf;

temp:=temp^.next;

i:=i+1;

end;

end;

list := temp;

end;


с доработкой кода, вообщем написал процедуру, но выскакивает ошибка. Процедура должна вставлять новы

Показать ответ
Ответ:
Атмир089997
Атмир089997
01.07.2020 17:30
Можно. на одном как основное место работы, на втором по совместительству. можно на втором по совместительству. можете работать хоть по полной ставке на каждом предприятии, полной занятостью (ну работаете 16 часов в день, что с того), если, это не государственные учреждения,там свое кино, тем более - не госслужба, там вообще запрещено совместитество. никакие справки в трудовую не вклеиваются. на основном месте работы вам сделают запись в трудовую о том, что с такого-то по такое-то работали по совеместительству там-то и там-то, на основании справки (когда вы уже уволитесь с работы по совместительству).
0,0(0 оценок)
Ответ:
SoktoevTimur
SoktoevTimur
06.01.2023 00:29

«философия, как мудрость моей жизни..» если задуматься, подумать, осмыслить.. как ни странно, на ум ничего приличного не приходит. начинаешь думать обо всякой ерунде, на важную для тебя тему в голову не приходит ничего, кроме «да ничего, можно сделать и завтра! », «иди отдохни, подумай, потом напишешь! ». и заснула в раздумьях. вот так я мучилась почти месяц, размышляла, обдумывала, взвешивала, анализировала…. пришла к горькому выводу – философии во мне нет. точнее, не во мне, а в моей жизни она отсутствует. может быть, я и не права…. либо это возрастное, приходящее с осмыслением своего существования, цели своего бытия в этом мире, с появлением и осознанием ценностей, моральных и нравственных. либо эта самая философия затаилась где-то в недрах моего сознания. хотя, говорят, что возраст уже тот, пришло время задуматься, я не считаю, что это так. но если посмотреть с другой стороны: когда размышлять и осмысливать? когда буду седой, старой бабулькой, вяжущей своим бесчисленным внукам носки на скамейке возле подъезда, параллельно новую серию очередной мыльной оперы и при этом всём думая, как я прожила жизнь, что сделала плохого, что хорошего, кто пострадал из-за меня, кому я причинила боль. ну раз уж на то пошло, то задуматься нужно сейчас. это не вынужденная мера, ни в коем случае. это то, что стало мне интересно сегодня: пролистать книгу своих прожитых 18 с половиной лет, вспомнить всё, посмеяться, поплакать, , но не вдаваясь в недра воспоминаний, а лишь слегка черпнув из этого жизненного колодца пару десятков воспоминаний буквально на пару часов. итак, можно начать…. период первый. детсад + начальная школа. в этот период меня во многом обделил мой ужасный характер, детское непослушание. я не была записана туда, куда мама спала и видела меня отдать: скрипка, у-шу, рисование, бассейн и всё в этом русле – те секции куда родители заталкивают своих детей против их воли. а я в принципе ничего не потеряла, не стремилась к этому. музыка – однозначно не моё (медведь неплохо постарался), единоборства – ещё не поздно всё исправить, бассейн – позор на весь союз, я не умею плавать но не беда-и эта погрешность исправима. характер с тех пор мало изменился – всё тот же непослушный ребенок, который всё делает по-своему и на мнение отдельных людей ему глубоко наплевать. период второй. 4ый – 9ый класс. ах, как это всё было чудесно. тогда были способности к иностранным языкам, аккордеон, который я вытерпела полгода, шорт-трек, из которого я ушла, так и не став звездой льда (а , постарше меня, с которыми я занималась, связали с этим жизнь и привозят из зарубежных соревнований призовые места), «наклонности»-стихи от зубов, сочинения на 5/5, проверка тетрадей одноклассников на предмет ошибок, бадминтон, волейбол – самый долгий период моей связи со спортом. ровно 6 лет ему отдала, но мало чему научилась. а всё эта паршивая лень-матушка. или просто это было «не моё»? хотя, моё, зря я . о, аллах, эти годы были по-своему чудесны…. новые знакомства, первые мальчики, первая любовь. тогда я думала, что мои друзья – самые-самые лучшие, они всегда будут рядом, и выслушают. как оказалось, я во всём …. стоило уйти из школы, как та, компанейская дружба, рассыпалась на кусочки. наверное потому, что я захотела начать новую жизнь, без старых связей, без той наигранности со стороны лжедрузей. потому что начала соображать, умнеть, знать больше того, что нужно.

0,0(0 оценок)
Популярные вопросы: Другие предметы
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота