Срочно надо решить 2 простые задачи на pascal.
Приложения:
BobbyFresnel:
Если Ваших знаний хватает на то, чтобы отнести задачи к простым, решайте их самостоятельно. Это же, как Вы утверждаете, просто!
Я сам программист на python, не хочу дополнительно изучать pascal, на python я бы эти задачи сделал бы минут за 10, предполагаю, что и на pascal также
Если человек называет себя "Программистом", то для него не должно составлять проблемы решить подобные задачки на другом ЯП. Да и вообще, на одном языке далеко не уедешь, а изучив PascalABC.NET, к примеру, можно безболезненно с него перелезть на C# и .NET Framework.
Да, поэтому я и говорю, что простые задачки. Я не учил синтаксис PascalABC, т.к пока не считал нужным, он мне нужен только ради этих заданий, которые задали в универе, и не хотел тратить время на изучение pascal, но сейчас трачу время на эту беседу. Всего доброго!
Ответы
Ответ дал:
1
Ответ:
PascalABC.NET 3.6.2
#1 //Здесь под словом понимается последовательность непробельных символов, ограниченных пробелами или концом строки. Пунктуация программой игнорируется и удаляется из входного текста для дальнейшей работы.
begin
var Exp := ReadString();
Exp := Exp.RegexReplace('`[!"#%&()*,-./:;?@_{}¡\\\[\]«·»¿;·$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 минут работы. Я тоже больше по питону)
По номеру 1 все куда проще))
begin
ReadString.ToWords.Where(p -> p.First = p.Last).Count.Print
end.
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, если сильно хочется. Нет плохих языков, есть те, которые не подходят для конкретных задач.
Все так. Ниша Питона - скрипты для веб. Остальное - это так, поделки.
Вас заинтересует
1 год назад
1 год назад
1 год назад
3 года назад
3 года назад