нужна помощь)))
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
нужна помощь))) - 2005-12-20 19:39:42
|
|
|
буржуазия
Сообщений: 60
Оценки: 0
Присоединился: 2005-05-29 16:57:53
|
hi all)))
people,не могу написать программульку на Дядюшке Паскале))),Просьба не обзывать меня лАмАком и т.п.))
Просто мне 10 лет и я занимаюсь программированием всего лишь 2 недели)))
Вот она Задача:
"Дано слово состоящее из трёх слогов.Определить,
является ли во втором слоге гласная ''O'',если ДА то вывесть сооющение что такая буква присутствует, а если НЕТ-вывести сообщение что в ввёдённом втором слоге её нет".
У меня есть мысли, но к сожелению не получается)))
Если кому интересно,может глянуть на мои мысли ниже=)))
МЫСЛЯ номбер ван:
Program XxX;
Uses Crt;
Var s1,s2,s3:String[4];
StrNew:string;
i:byte;
number:integer;
k:integer;
Begin
ClrScr;
k:=0;
Write(''vvedi 1 slog '');
ReadLn(s1);
Write(''vvedi 2 slog '');
ReadLn(s2);
Write(''vvedi 3 slog '');
ReadLn(s3);
strnew:=s1+s2+s3;
WriteLn(strnew);
For i:=1 to Length(strnew) Do
Begin
if (s2=''o'') Then WriteLn(''est'')<BR> else<BR> WriteLn(''net'');<BR> ReadLn;<BR> End;<BR> End.<BR>
|
|
|
|
|
нужна помощь))) - 2005-12-20 21:25:41
|
|
|
Вождь
Сообщений: 559
Оценки: 0
Присоединился: 2005-11-09 17:45:39
|
вот так вроде работает (clrscr ведь необязательно использовать?:)
Program XxX;
Var s1,s2,s3:String[4];
StrNew:string;
i:byte;
k:integer;
Begin
k:=0;
Write('vvedi 1 slog ');
ReadLn(s1);
Write('vvedi 2 slog ');
ReadLn(s2);
Write('vvedi 3 slog ');
ReadLn(s3);
strnew:=s1+s2+s3;
WriteLn(strnew);
For i:=1 to Length(s2) Do
Begin
if (s2='o') Then WriteLn('est'){Здесь после s2 i в квадр. скобках, которые почему-то не отображаются здесь?..}<BR>else<BR>WriteLn('net');<BR>ReadLn;<BR>End;<BR>End.
|
|
|
|
|
нужна помощь))) - 2005-12-21 00:25:41
|
|
|
n1ght
Сообщений: 288
Оценки: 0
Присоединился: 2005-11-12 20:39:41
|
Помому правильно… Хитрая программа [sm=2.gif]
|
|
|
|
|
нужна помощь))) - 2005-12-21 10:57:46
|
|
|
Jaden
Сообщений: 78
Оценки: 0
Присоединился: 2005-11-23 10:34:16
|
program sl;
var
s1,s2,s3 : string;
i : integer;
begin
write('Введите первый слог: ');
readln(s1);
write('Введите второй слог: ');
readln(s2);
write('Введите третий слог: ');
readln(s3);
for i := 1 to length(s2) do
if s2(i) = 'o' then {i в квадратных скобках}
begin
writeln('Присутствует ;)');
readln;
halt
end
else
writeln('Нет буквы О во втором слоге :(');
readln
end.
Вот это вроде должно работать. Хотя я уже давно такие вещи не помню, мне драйвак написать проще на АСМе. Школа, школа… Золотые годы.
|
|
|
|
|
|
