Форум программистов [Powered by Invision Power Board]

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

Форум программистов > Центр помощи > Помогите составить схему-алгоритм

Автор: Skromnyashka 7.12.2005, 12:36

Народ, помогите пожалуйста составить схему-алгоритм для решения поставленной задачи, просто мне задали такое задание по Начертательной геометрии, начертить блок-схему это я сделаю, но вот как выглядит сама схема… smile

ЗАДАНИЕ: Определить количество строк матрицы B(i)25,10 среди элементов которых имеется одна и более троек.

Автор: Skromnyashka 9.12.2005, 00:18

Народ помогите, ну напишите хотя бы программу...может как-нибудь сама попытаюсь составить схему алгоритма...заранее ОГРОМНОЕ СПАСИБО!!!

Автор: Pakshin A. S. 9.12.2005, 17:42

Модератор: Я думаю, что вы хотите в нас развить телепатические способности... У меня не выходит что-то; поэтому напишите язык программирования, на котором вы желаете получить код программы.

Автор: mvdr 10.12.2005, 11:38

1)ввод массива (матрицы)
2) проверка условия налиия одной тройки в строке (цикл от 1 до 25, в нем цикл от 1до 10, там условие, что если элемент В[i,j]='3' то k:=k+1 )
3) вывод k

Автор: mvdr 10.12.2005, 11:56

Код


programm 13;
uses crt;
var i, j: integer;
     B:array[25,10] of integer;
Begin clrscr;
for i:=1 to 25 do 
for j:=1 to 10 do 
readln(a[i,j]); {вводим матрицу пострчно}
for i:=1 to 25 do
 for j:=1 to 10 do
  begin
   if B[i,j]='3' then k:=k+1;
   j:=10;
  end;
write('строк содержащих цифру 3 -  ',k);
readln; 
End.