Тест сравнения строк

This commit is contained in:
rexim 2024-04-01 14:17:54 +07:00
parent ef58f951b4
commit ab62355cbe
2 changed files with 18 additions and 0 deletions

View File

@ -65,3 +65,11 @@
кц
вернуть символ;
кц
про строки_равны(одна: строка, другая: строка): лог нч
если размер(одна) != размер(другая) то вернуть ложь;
для индекс := 1..размер(одна) то
если одна(индекс-1) != другая(индекс-1) то
вернуть ложь;
вернуть истина;
кц

View File

@ -154,6 +154,15 @@
сравнить_какиео_структуры(одна, вторая);
кц
про тест_строки_равны(одна: строка, другая: строка) то
печать(" «",одна,"» = «",другая,"» => ",строки_равны(одна, другая),«\н»);
про сравнение_строк() нч
печать(«Сравнение строк:\н»);
тест_строки_равны(«Hello», «World»);
тест_строки_равны(«Foo», «Foo»);
кц
про главная() нч
печать(«Печать чисел: », 0, «, », 69, «, », 1234567890, «\н»);
печать(«Печать логических: », 69 = 69, «, », 69 = 420, «\н»);
@ -176,4 +185,5 @@
тест_подбрить_строку_слева(«»);
индексация_срезов_внутри_структуры();
сравнение_структур();
сравнение_строк();
кц