Срочно надо решить 2 простые задачи ** pascal.

Question

Срочно надо решить 2 простые задачи на pascal.

---

---

Comments

Если Ваших знаний хватает на то, чтобы отнести задачи к простым, решайте их самостоятельно. Это же, как Вы утверждаете, просто!

---

Я сам программист на python, не хочу дополнительно изучать pascal, на python я бы эти задачи сделал бы минут за 10, предполагаю, что и на pascal также

---

Если человек называет себя "Программистом", то для него не должно составлять проблемы решить подобные задачки на другом ЯП. Да и вообще, на одном языке далеко не уедешь, а изучив PascalABC.NET, к примеру, можно безболезненно с него перелезть на C# и .NET Framework.

---

Да, поэтому я и говорю, что простые задачки. Я не учил синтаксис PascalABC, т.к пока не считал нужным, он мне нужен только ради этих заданий, которые задали в универе, и не хотел тратить время на изучение pascal, но сейчас трачу время на эту беседу. Всего доброго!

Answer 1

Ответ:

PascalABC.NET 3.6.2

#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.

begin

 var Exp := ReadString();

 Exp := Exp.RegexReplace('`[!"#%&()*,-./:;[email protected]_{}¡\\\[\]«·»¿;·$1234567890]', '').RegexReplace('\s+', ' ');  //Рега пропускает " ' ".

 Exp.Split(' ').Where(p -> p.First = p.Last).Count.Println;

end.

#2

begin

 var A := ArrRandom(ReadInteger(), -99, 99);

 a.Println;

 var zero_ind := A.IndexOf(0);

 if zero_ind <> -1 then Print($'Fisrt "0" number is {zero_ind+1}') else Print('No "0" Finded in Current Array');

end.

Объяснение:

15 минут работы. Я тоже больше по питону)

Comments

По номеру 1 все куда проще))

---

begin
ReadString.ToWords.Where(p -> p.First = p.Last).Count.Print
end.

---

Второй не буду комментировать))

---

А можно даже короче: ReadString.ToWords.Count(p -> p.First = p.Last).Print

---

Что до Питона - да вот вчера только обсуждалось, как он "замечательно" работает - говорили, в 200 раз медленнее Паскаля или в 300, не могу сюда ссылку дать корректную, не пропускает комментарий такой, так что пробелы уберите vk . com / spb_dl?w=wall-148776817_3750_r3797

---

Но Вы, ребята, пишите на нем и дальше, ибо это модно ПОКА модно.

---

Скорость исполнения важна не всегда. Да, питон медленный. ОЧЕНЬ медленный. Это факт. Тест из обсуждения, которое вы скинули, лично на моём пк он осилил... я успел попить чаю. На процессоре FX 8350 4.4 gHz. Но если скорость выполнения не требуется, то это не такой уж и плохой вариант.

---

Например, не так давно я занятия какого либо ради попробовал написать простенький месседжер, который даже умудрялся пересылать картинки. По локальной сети, правда. Ни у кого из тех, кто в нём посидел тот вечер, не было нареканий на скорость работы. Однако, серверная часть занимала менее 100 строк.

---

У разных языков разные назначения. Кому нужна скорость и ручное управление памятью - Пишет на С++. Кому нужно быстро сделать бэкэнд для сайта - Пишет на PHP. Или Python Django/Flask. Или C# ASP.NET, если сильно хочется. Нет плохих языков, есть те, которые не подходят для конкретных задач.

---

Все так. Ниша Питона - скрипты для веб. Остальное - это так, поделки.