Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Задачи на массивы и не только
Автор: Slayerman 26.05.2004 22:23
Народ помоги решить задачи
1. Подсчитать и вывести на экран кол-во слов в заданном предложении Я РАД ЧТО Я ЖИВУ
2. Из слова ПРОСТОКВАША получить фразу ВАШ ШАР ПРОСТО КРАСОТА
3. В массиве из 10 элементов найти произведение отрицательных элементов
Автор: Altair 26.05.2004 22:30
1.
А что это по этой фразе или это размер показан? (хотя это не имеет значение)
Код
var s:string;
b:byte;
p:byte;
begin
readln(s);
for b:=1 to Length(s) do If s[b]=' ' then inc(p);
inc(p);
writeln('Количество слов =',p);
end.
2 - совсем условие не понятно. Как из напитка получить шар???
3.
Код
var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
pp:=1;
for i:=1 to 10 do if a[i]<0 then pp:=pp*a[i];
writeln('произв.=',pp);
end.
Автор: Slayerman 26.05.2004 22:42
еще помогите:
в массиве из 10-ти элементов найти сумму чисел больших 1
заполнить двухмерный массив А из k-строк и m-столбцов произвольными числами. Вывести его на экран в виде таблицы
Написать прогу определения длины любого слова
Автор: Catty 26.05.2004 22:46
а где спасибо за предыдущие проги? <_< 
Автор: Altair 26.05.2004 22:50
Цитата
в массиве из 10-ти элементов найти сумму чисел больших 1
Код
var
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
for i:=1 to 10 do if a[i]>1 then pp:=pp+a[i];
writeln('SUMMA=',pp);
end.
a:array[1..10] of integer;
pr,i:integer;
begin
{ввод массива не пишу}
for i:=1 to 10 do if a[i]>1 then pp:=pp+a[i];
writeln('SUMMA=',pp);
end.
Автор: Slayerman 26.05.2004 23:07
Вот я дурак забыл...
ОГРОМНОЕ СПАСИБО!!!!
Автор: Catty 27.05.2004 0:58
Цитата
Написать прогу определения длины любого слова
Код
var n,i:byte;
v:string;
begin
read(v);
n:=length(v);
writeln(n);
end.
v:string;
begin
read(v);
n:=length(v);
writeln(n);
end.
Автор: Catty 27.05.2004 1:09
Код
uses Crt;
const k=5; m=7;
var i,j:byte;
a:array[1..k,1..m] of byte;
Begin
randomize;
for i:=1 to k do
for j:=1 to m do
a[i,j]:=random(30);
for i:=1 to k do
for j:= 1 to m do begin
GotoXY(i*3,j+1);
write(a[i,j]);
end;
end.
const k=5; m=7;
var i,j:byte;
a:array[1..k,1..m] of byte;
Begin
randomize;
for i:=1 to k do
for j:=1 to m do
a[i,j]:=random(30);
for i:=1 to k do
for j:= 1 to m do begin
GotoXY(i*3,j+1);
write(a[i,j]);
end;
end.