Помогите решить задачи в паскале

[Ocherednoi]

1. Создайте программу, которая создает массив (одномерный) случайных чисел, и подсчитывает сумму нечетных чисел.

---

Сумма нечетных чисел равна: 15

Введите массив: 5 3 7 8 12

---

2. Создайте программу, которая запрашивает слова и проверяет первую букву. Если первая буква "а", то отвечает "начинается на "а"", в противном случае "нет". Проверка слов продолжается до слова "все".

---

3. Создайте программу, которая запрашивает текстовую строку и заменяет все буквы "о" на "э", а буквы "д" на "т"

---

Получилось: Не прэтается втэхнэвенье, нэ мэжнэ рукэпись прэтать

Введите строку: Не продается вдохновенье, но можно рукопись продать.

---

Помогите пожалуйста... ну очень надо. Надеюсь найдутся профи в этом деле.

[ALEKSEEV]

1)

if a[i] mod 2=0 then sum:=sum+a[i];

[NAT]

var a:array[1..100] of integer;
i,sum,n:integer;
begin
writeln('Введите размерность массива: ');
readln(n);
cls;
randomize;
sum:=0;
for i:=1 to n do begin
a[i]:=random(30);
write(a[i],' ');
if a[i] mod 2 = 1 then
sum:=sum+a[i];
if i = n then
writeln();
end;
writeln('Сумма нечетных чисел равна: ',sum);
end.

program arrayyy;

[ALEKSEEV]

2)

while slovo<>'все' do
if slovo[1]='a' then write('Начинаеться на а');

NAT

эхх а мне лень писать столько))

[NAT]

var s:string;
i:integer;
begin
cls;
Writeln('Введите строку: ');
readln(s);
for i:=1 to Length(s) do begin
if s[i] = 'о' then
s[i]:='э';
if s[i] = 'д' then
s[i]:= 'т';
end;
writeln('Получилось: ',s);
end.

program stringsss;

на pascal abs все это, хз как в турбо будет робить или нет

ALEKSEEV

[Ocherednoi]

Решите пожалуйста вторую полностью... Заранее спасибо

[NAT]

var s:string;
begin
while s <> 'все' do begin
writeln('Введите слово: ');
readln(s);
if s[1] = 'а' then
writeln('Начинается на А');
end;
end.

program vsee;

[Ocherednoi]

NAT

Спасибо большое... все-таки есть на свете хорошие люди.

[Pride]

3loy4uvak

ну ты наглый! и вся контрольная готова!!! я две сам сделал)

помогите мне тоже, пожалуйста!

• 1 Создайте программу, которая запрашивает массив слов и выводит количество букв "о" в каждом из них.
  

лоск
ветер
В слове "молоко" букв "о" - 3
В слове "лоск" букв "о" - 1
В слове "ветер" букв "о" - 0

Введите слова: молоко

2 Создайте программу, которая создаёт массив (одномерный) случайных чисел, и подсчитывает количество чисел, кратных 3.

[Lakers]

program ras;

uses crt;

var s:array[1..10]of string;

a:array[1..10]of integer;

n,i,l,j:integer;

begin

write('введите количество слов: ');

read(n);

for i:=1 ti n do

begin

write("введите слово: ");

read(s);

l=length(s);

for j:=1 to l do

if s[j]='о' then a:=a+1;

end;

for i:=1 ti n do

write("В слове ", s, "букв о - ", a);

end.

program dva;

uses crt;

var a: array[1..100] of integer;

i,n,k:integer;

begin

write("введите количество чисел: ");

read(n);

for i:=1 to n do

begin

a:=random(100);

if a mod 3 =0 then k:=k+1;

end;

write(k);

end.

[Pride]

Lakers

Вы мой спаситель, даж не знаю, что сказать... большое СПАСИБО!

мда, и NAT'у спасиб за его косвенное участие)

Добавлено спустя 25 минут 29 секунд:

но у меня немного не получается в первой задачке...

дурацкие ошибки вылезают, и немного не по условию...

напишите, пожалуйста, другой вариант... извините за мою чрезмерную навязчивость *39

Добавлено спустя 15 минут 17 секунд:

[Lakers]

program ras;

uses crt;

var s:array[1..10]of string;

a:array[1..10]of integer;

n,i,l,j:integer;

begin

clrscr;

write('введите количество слов: ');

read(n);

for i:=1 to n do

begin

write("введите слово: ");

read(s);

l=ord(s[0]);

for j:=1 to l do

if s[j]='о' then a:=a+1;

end;

for i:=1 to n do

write("В слове ", s, " букв о - ", a);

readln;

end.

паскаля нет проверить правильность неначем. А что не поусловию?

и поподробние о том какие ошибки.

[TolkienDRR]

Lakers, добавил бы ln к read. выглядеть будет хоть цивильно )))

uses crt;
var
s:array[1..10]of string;
a:array[1..10]of integer;
n,i,l,j:integer;
begin
clrscr;
write('введите количество слов: ');
readln(n);
for i:=1 to n do begin
 write('введите слово: ');
 readln(s[i]);
 for j:=1 to length(s[i]) do
  if s[i][j]='о' then inc(a[i]);
end;

for i:=1 to n do writeln('В слове "', s[i], '" букв о - ', a[i]);
readln;
end. 

примерно так должно быть. тоже паса нет под рукой, но думаю всё верно =)

Добавлено спустя 6 минут 4 секунды:

и поподробние о том какие ошибки.

write("введите слово: ");

апостроф надо вместо кавычки.

l=ord(s[0]);

пропустил : и надо s[0] и без ord'a можно вроде.

if s[j]='о' then a:=a+1;

неправильный подсчет. все строки равные о будут подсчитываться только.

write("В слове ", s, " букв о - ", a);

тут тоже кавычки не те =)

[Pride]

TolkienDRR

Спасибо! шикарно работает, только как сделать, чтобы можно было ввести сразу несколько слов без вопроса об их количестве? ну как в протоколе...

Добавлено спустя 24 секунды:

Lakers

ещё раз спасибо)

[TolkienDRR]

Pride, если прям как в протоколе, то всегда будет по 3 слова.

uses crt;
var
 s:array[1..3]of string;
 a:array[1..3]of integer;
 i,j:integer;
begin
 clrscr;
  for i:=1 to 3 do begin
  write('введите слово: ');
  readln(s[i]);
  for j:=1 to length(s[i]) do
   if s[i][j]='о' then inc(a[i]);
 end;
 for i:=1 to 3 do writeln('В слове "', s[i], '" букв о - ', a[i]);
 readln;
end. 

[Lakers]

TolkienDRR

и вправду, забыл первый индек прописать=)

[TolkienDRR]

Lakers

да ничего страшного =) вообще на практике редко с первого раза программу без ошибок можно написать )))

[Pride]

А да ладно, уверен, мне это простят

Всем спасибо, это была последняя работа в Pascal'е, больше приставать с такими проблемами не будем)

Добавлено спустя 1 минуту 11 секунд:

TolkienDRR

а Lakers вторую задачу правильно решил, это круто

[TolkienDRR]

Pride, статист чтоле? ))))

[Pride]

TolkienDRR, нет, просто в школе изучаем это с топикстартером, это последняя контрольная работа была.

[User1667]

эх) есть же на форуме хорошие люди)

сегодня целый день решал такую задачу:

Лямзики — это протобионные организмы, обитающие на далекой планете. Существует три вида лямзиков — красные, зеленые и синие. Первоначально в колонии могут находиться представители двух или всех трех видов. Но если два лямзика разных цветов встречаются, то они сливаются, образуя организм третьего цвета (например, встреча синего и красного приводит к образованию зеленого). Наступает момент, когда колония становится одноцветной. Написать программу, которая по введенным целым неотрицательным значениям численности красных, зеленых и синих лямзиков определяет все возможные конечные цвета колонии.

только при помощи друга решил)

надо было сразу сюда и писать)

зы. а вот во второй задаче надо подсчитать 2 миллиарда(число такое)

какой тип нужно писать: cardinal или real ???

Добавлено спустя 47 секунд:

пы.сы. с топикстартером не знаком))

Добавлено спустя 50 секунд:

и это. мне завтра сдавать работу. подскажите что писать?

[Lazerboy]

эх) есть же на форуме хорошие люди)

сегодня целый день решал такую задачу:

Лямзики — это протобионные организмы, обитающие на далекой планете. Существует три вида лямзиков — красные, зеленые и синие. Первоначально в колонии могут находиться представители двух или всех трех видов. Но если два лямзика разных цветов встречаются, то они сливаются, образуя организм третьего цвета (например, встреча синего и красного приводит к образованию зеленого). Наступает момент, когда колония становится одноцветной. Написать программу, которая по введенным целым неотрицательным значениям численности красных, зеленых и синих лямзиков определяет все возможные конечные цвета колонии.

гыгы)))

вам тоже эти задачки в школе дали решить(инф-ка+матем+физика) ,и тот,кто сделает правильно все,тот идет на конкурс какой-то

[User1667]

Lazerboy

ах, вот зачем дали мне эту олимпиаду?((

я не решил вторую по физике(( а так все решил=)

а по делу кто что скажет?

[TolkienDRR]

User1667, по второй задаче читай фак паскаля.

а по первой, может генетические алгоритмы приложить? я с ними не очень дружу, но под твою задачу должны подойти =)

[User1667]

TolkienDRR

да я уже решил первую)

а вот во второй просто real как бы к дробям лучше применять, а cardinal паскаль обычный пхд не знает, в твоей ссылки такого типа вообще нет)