1 / 1 / 0
Регистрация: 26.12.2018
Сообщений: 36
1

Переделать на делфи

10.03.2020, 09:49. Показов 1051. Ответов 6
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var s: string;
    i, k: integer;
begin
     writeln ('Введите слово на русском языке');
     readln (s);
     k:=0;
for i:=1 to length(s) do
if (s[i]='а') or (s[i]='е') or (s[i]='ё') or (s[i]='и') or (s[i]='о') or (s[i]='у') or (s[i]='э') or (s[i]='ю') or (s[i]='я')
then k:=k+1;
    if k=0 then writeln ('Один слог, не содержащий гласных') else
          writeln ('Количество слогов = ', k);
end.
Подсчет слогов слов
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.03.2020, 09:49
Ответы с готовыми решениями:

Переделать из Паскаля в Делфи
Program Kursovaia_rabota_zadanie_3; uses crt; type mas=array of integer; var a,b:mas;...

Переделать из Matlab в Делфи
Привет всем. Помогите переделать код из Matlab в делфи. Вот код hold on; grid on; c=0.4;...

Нужно переделать в делфи
Готовую задачу сделаную в Паскаль переделать под Делфи: program laba3_volynets; uses crt,...

Из Паскаля в делфи переделать
Помогите переделать код из паскаля в делфи, очень надо. в скайп kanysh9901

6
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
10.03.2020, 10:12 2
Лучший ответ Сообщение было отмечено Rodion_White как решение

Решение

Цитата Сообщение от Rodion_White Посмотреть сообщение
Переделать на делфи
Ну если точь-в-точь:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
    i, k: integer;
begin
     s := AnsiLowerCase(Edit1.Text);
     k:=0;
for i:=1 to length(s) do
if (s[i]='а') or (s[i]='е') or (s[i]='ё') or (s[i]='и') or (s[i]='о') or (s[i]='у') or (s[i]='э') or (s[i]='ю') or (s[i]='я')
then k:=k+1;
    if k=0 then Label1.Caption := 'Один слог, не содержащий гласных' else
          Label1.Caption := 'Количество слогов = ' + IntToSTr(k);
end;
Миниатюры
Переделать на делфи  
0
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
10.03.2020, 10:14 3
Лучше хотя бы через множества решать...
а что буква Ы не создает слог?
0
1 / 1 / 0
Регистрация: 26.12.2018
Сообщений: 36
10.03.2020, 10:33  [ТС] 4
Ой,просто про Ы забыл.Добавлю))
0
528 / 416 / 274
Регистрация: 05.04.2013
Сообщений: 1,890
10.03.2020, 15:08 5
Rodion_White,
Delphi
1
if s[i] in ['а', 'е', 'ё', 'и', 'о', 'у', 'э', 'ю', 'я', 'ы'] then inc(k);
0
2801 / 1480 / 594
Регистрация: 19.03.2019
Сообщений: 4,904
10.03.2020, 16:11 6
AHBAR, я слышал, что в новых Delphi (которые Unicode, >2010) in не работает с кириллицей.
0
Модератор
8223 / 5461 / 2244
Регистрация: 21.01.2014
Сообщений: 23,501
Записей в блоге: 3
10.03.2020, 16:29 7
Цитата Сообщение от mr-Crocodile Посмотреть сообщение
in не работает с кириллицей.
Да и нафиг он не нужен...
Delphi
1
2
3
4
5
6
7
8
const Vowels: String = ('АЕЁИОУЫЭЮЯ');
var i, k: integer;
begin
  k := 0;
  for i := 1 to Length(Edit1.Text) do
    if Pos(AnsiUpperCase(Edit1.Text[i]), Vowels) > 0 then inc(k);
  ShowMessage('Количество слогов = ' + IntToSTr(k));
end;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2020, 16:29
Помогаю со студенческими работами здесь

Переделать программу с Паскаля в Делфи
Программа меняет элементы матрицы(a), которые больше 5 на a-2 и отрицательные на их модуль....

Переделать код с паскаля на делфи
Прошу помощи, нужно переделать код с Паскаля на Делфи. Задания: 1. Дан массив целых чисел из n...

Переделать под делфи, пожалуйста!
Помогите пожалуйста переделать этот код(Паскаль) под делфи uses crt; var a:arrayof integer;...

Переделать программу из паскаля в делфи
{ генерация перестановок } uses crt; const n = 4; { количество элементов в перестановке} var...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru