Find words which contains more than 3 e vowels: Difference between revisions
Find words which contains more than 3 e vowels (view source)
Revision as of 21:31, 11 February 2021
, 3 years agoAdd Pascal
Not a robot (talk | contribs) (Add awk) |
Not a robot (talk | contribs) (Add Pascal) |
||
Line 411:
nevertheless persevere preference referee seventeen seventeenth telemeter tennessee
</pre>
=={{header|Pascal}}==
{{works with|Turbo Pascal}}
<lang pascal>program EWords;
var
FileVar: Text;
Line: string[255];
I: Integer;
E: Integer;
OK: Boolean;
begin
Assign(FileVar, 'unixdict.txt');
Reset(FileVar);
while not Eof(FileVar) do
begin
ReadLn(FileVar, Line);
E := 0;
OK := True;
for I := 1 to Length(Line) do
begin
OK := OK and (Pos(Line[I], 'aiou') = 0);
if Line[I] = 'e' then E := E + 1
end;
if OK and (E > 3) then
begin
Write(Line);
WriteLn;
end
end
end.</lang>
{{out}}
<pre>belvedere
dereference
elsewhere
erlenmeyer
evergreen
everywhere
exegete
freewheel
nevertheless
persevere
preference
referee
seventeen
seventeenth
telemeter
tennessee</pre>
=={{header|Phix}}==
| |||