Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2010, 22:30   #1
Света=)
Новичок
Джуниор
 
Регистрация: 29.12.2010
Сообщений: 11
По умолчанию Составить болк-схемы.

всем привет=) нужно составить блок-схемы к следующим решённым задачам:
1)Дано натуральное число N. Получить в порядке возрастания N первых натуральных чисел, которые не делятся ни на какие простые числа, кроме 2, 3 и 5.
Код:
VAR
 N,i,m:Byte;
 A,B,d:LongInt;
 b2,b3,b5:Boolean;
BEGIN
 Write('N (<256) = ');
 ReadLn(N);
 A:=0;
 i:=0;
 Repeat
  A:=A+1;
  B:=A;
  b2:=false;
  b3:=false;
  b5:=false;
  repeat
   d:=B div 2;
   m:=B mod 2;
   if m=0 then b2:=true;
   B:=d;
  until (m>0) or ((B=1) and (m=0));
  If m>0 then
   begin
    B:=B*2+m;
    repeat
     d:=B div 3;
     m:=B mod 3;
     if m=0 then b3:=true;
     B:=d;
    until (m>0) or ((B=1) and (m=0));
    If m>0 then
     begin
      B:=B*3+m;
      repeat
       d:=B div 5;
       m:=B mod 5;
       if m=0 then b5:=true;
       B:=d;
      until (m>0) or ((B=1) and (m=0));
     end;
   end;
  If (m=0) and b2 and b3 and b5 then
   begin
    Write(A:8);
    i:=i+1;
   end;
 Until i=N;
 ReadLn;
END.
2) Поменять местами треугольники квадратной матрицы, расположенные выше и ниже боковой диагонали.
Код:
Const
 N=5;
Var
 A,B:ARRAY[1..N,1..N] of Integer;
 i,j,D:Integer;
BEGIN
 Randomize;
 For i:=1 to N do
  For j:=1 to N do
   begin
    D:=Random(10);
    A[i,j]:=D-5;
   end;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(A[i,j]:4);
   WriteLn;
  end;
 WriteLn('Transformed matrix:');
 For i:=1 to N do
  For j:=1 to N do
    B[i,j]:=A[N-j+1,N-i+1];
 For i:=1 to N do
  begin
   For j:=1 to N do
    Write(B[i,j]:4);
   WriteLn;
  end;
END.
3)В квадратной матрице найти номер строки с минимальной суммой её элементов и номер столбца с максимальной суммой элементов. Элементы найденной строки поменять местами с соответствующим элементом найденного столбца.
Код:
var a:array [1..5,1..5] of integer;
maxi,mini,i,j,n,min,max,sum:integer;
begin
n:=3;
for i:=1 to n do
for j:=1 to n do readln(a[i,j]);
for i:=1 to n do begin
writeln;
for j:=1 to n do write(' ',a[i,j]);
end;
min:=32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do
   begin
     sum:=sum+a[i,j];
   end;
  if sum<min then begin min:=sum; mini:=i; end;
end;
Write(' Minimalnaya suma v ',mini,' stroke, ');

max:=-32000;
for i:=1 to n do
begin
sum:=0;
for j:=1 to n do
   begin
     sum:=sum+a[j,i];
   end;
  if sum>max then begin max:=sum; maxi:=i; end;
end;
Write('Maximalnaya suma v ',maxi,' stolbce');
end.
4)
Код:
var
t,zn,ch:real;
n,i:integer;
begin
writeln(' Vvedite n=');
readln(n);
zn:=0;
for i:=1 to n+20 do
zn:=zn+1/i;
for i:=10 to 50 do
ch:=ch+sin(i);
zn:=sqr(zn);
t:=ch/zn;
write('t=',t);
end.
5) Дана строка символов. Необходимо определить в тексте позицию последнего появления определённого слова.
Код:
uses crt;
VAR
 S,W,Sbef,Saft:String;
 cnt,i,W_pos:byte;
BEGIN
 Clrscr;
 WriteLn('Enter the string:');
 ReadLn(S);
 WriteLn('Enter the word:');
 ReadLn(W);
 Repeat
  cnt:=pos(W,S);
  if cnt>0 then
   begin
    W_pos:=cnt;
    Sbef:=copy(S,1,cnt-1);
    Saft:=copy(S,cnt+Length(W),Length(S)-cnt-Length(W)+1);
    S:=Sbef;
    For i:=1 to Length(W) do
     S:=S+'*';
    S:=S+Saft;
   end;
 Until cnt=0;
 WriteLn('The last position of the word "'+W+'" is ',W_pos);
end.

Последний раз редактировалось Света=); 30.12.2010 в 22:34.
Света=) вне форума Ответить с цитированием
Старый 30.12.2010, 22:33   #2
Света=)
Новичок
Джуниор
 
Регистрация: 29.12.2010
Сообщений: 11
По умолчанию

сорри "Блок-схемы"
Света=) вне форума Ответить с цитированием
Старый 30.12.2010, 23:22   #3
ACE Valery
Сама себе режиссер
Старожил
 
Аватар для ACE Valery
 
Регистрация: 27.04.2007
Сообщений: 3,378
По умолчанию

А "пожалуйста"?
Если я вас напрягаю или раздражаю, вы всегда можете забиться в угол и поплакать
ACE Valery вне форума Ответить с цитированием
Старый 30.12.2010, 23:27   #4
Света=)
Новичок
Джуниор
 
Регистрация: 29.12.2010
Сообщений: 11
По умолчанию

пожалуйсто
Света=) вне форума Ответить с цитированием
Старый 31.12.2010, 01:28   #5
Света=)
Новичок
Джуниор
 
Регистрация: 29.12.2010
Сообщений: 11
По умолчанию

Помогииите, если тут есть кто(((( я до утра буду это делать, надо за ночь успеть(((((
Света=) вне форума Ответить с цитированием
Старый 31.12.2010, 02:29   #6
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

скачай FCEditor, он тебе нарисует за 1-2секунды
dosha вне форума Ответить с цитированием
Старый 31.12.2010, 02:37   #7
Света=)
Новичок
Джуниор
 
Регистрация: 29.12.2010
Сообщений: 11
По умолчанию

пасиб, щас посмотрю
Света=) вне форума Ответить с цитированием
Старый 05.04.2013, 23:40   #8
Megapol
Пользователь
 
Регистрация: 28.12.2011
Сообщений: 29
По умолчанию

#include<iostream>
#include<math.h>
using namespace std;

int main()
{
int n=10; //<--- какое количество чисел нужно найти так, что бы эти числа,
// начиная с 2 включительно, не делились на 2,3 и 5

int s[255]; //<--- получатель результатов

int i,b;
int j=0;
for (i=2; j!=n;++i)
{
b=i;
while (b!=1)
{
if(b%2==0) b/=2; else
if(b%3==0) b/=3; else
if(b%5==0) b/=5; else break;
}
if (b==1)
{
s[j++]=i;
cout<<"s["<<j<<"] = "<<i<<endl;
}
}
cin.get();
return 0;
}
С++
Megapol вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Составить блок-схемы kazarcev Помощь студентам 2 22.12.2010 21:24
Нужно составить 2 блок-схемы bwitcher Помощь студентам 5 23.09.2010 20:52
составить блок-схемы Vints Помощь студентам 4 06.02.2010 21:45
Помогите нарисовать болк схемы!ПЛИЗЗЗЗ! vdv08 Паскаль, Turbo Pascal, PascalABC.NET 1 10.04.2008 10:29