Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.04.2012, 18:33   #1 (permalink)
Sergikы
Новичок
 
Регистрация: 12.04.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Lightbulb Блок-схема по коду Pascal

Привет всем!
Если кто может пожалуйста нарисуйте блок схему по моему коду
Код:
const nmax=100;
var a:array[1..nmax] of integer;
n,i,j:byte;
f,k:boolean;
begin
randomize;
repeat
write('Размер последовательности A до ',nmax,'n=');
readln(n);
until n in [1..nmax];
writeln('Последовательнось:');
for i:=1 to n do
 read(a[i]);
for i:=1 to n do
 write(a[i]:3);
readln;
writeln;
writeln;
writeln('Входят по одному разу:');
k:=false;
for i:=1 to n do
 begin
  f:=true;
  for j:=1 to n do
  if(a[i]=a[j])and(i<>j) then f:=false;
  if f then
   begin
    write(a[i]:3);
    k:=true;
   end;
  end;
if not k then write('Таких чисел нет');
readln;
end.
Буду очень благодарен.
Sergikы вне форума   Ответить с цитированием

Старый 12.04.2012, 18:33
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Это ссылки, по которым содержаться схожие с вашей темы

Блок-схема. Паскаль
Блок-схема в Qbasic
Нужна блок-схема
Блок-схема к программе
Блок - схема

Старый 13.04.2012, 15:39   #2 (permalink)
Sergikы
Новичок
 
Регистрация: 12.04.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Вот что я смог сделать через программу.
Миниатюры
program.jpg  
Sergikы вне форума   Ответить с цитированием
Старый 13.04.2012, 20:55   #3 (permalink)
Sergikы
Новичок
 
Регистрация: 12.04.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Добавлю условия задачи
Дана последовательность целых чисел a1, a2, ..., am . Постройте на ее основе новую
последовательность, содержащую только те числа, которые в исходную
последоватеьность входят по одному разу.
может поможет
Sergikы вне форума   Ответить с цитированием
Старый 11.12.2012, 03:36   #4 (permalink)
Екатерина Only
Новичок
 
Регистрация: 11.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите пожалуйста с блок-схемой
program xz;
const
x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,10);
y:array[1..15] of integer=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
var
i:integer;
s1,s2:real;
BEGIN
s1:=0; s2:=0;
for i:=1 to 10 do s1:=s1+sqr(sin(x[i]));
for i:=1 to 15 do s2:=s2+sqr(ln(abs(y[i])));
writeln(s1*s2)
END.
Екатерина Only вне форума   Ответить с цитированием
Старый 11.12.2012, 03:57   #5 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от Екатерина Only Посмотреть сообщение
помогите пожалуйста с блок-схемой
Блок-схема:
Миниатюры
1.png  
Léon вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 05:37.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.