Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Soldszar
0 / 0 / 0
Регистрация: 01.05.2010
Сообщений: 12
#1

Создайте две блок схемы - Pascal

15.05.2010, 00:22. Просмотров 342. Ответов 2
Метки нет (Все метки)

Задача №1
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var 
a:array [1..10,1..15] of integer;
s,i,j:integer;
begin
   randomize;
   for i:=1 to 10 do
   for j:=1 to 15 do
   a [i,j]:=random(30);
   for i:=1 to 10 do
begin
   for j:=1 to 15 do
   write (a[i,j]:4);
   writeln;
end;
   s:=0
   for i:=1 to 10 do
   for j:=1 to 15 do
   if a[i,j] mod 2=1 then
   s:=s+a[i,j];
   writeln(s);
   readln;
end.
Задача №2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var x1,x2,y1,y2,dl:real;
procedure pr_dl(x1,y1,x2,y2:real; var dl:real);
begin
  dl:=sqrt(sqr(x2-x1)+sqr(y2-y1));
end;
begin
  writeln('Введите координаты точки x1,y1');
  readln(x1,y1);
  writeln('Введите координаты второй точки x2,y2');
  readln(x2,y2);
  pr_dl(x1,y1,x2,y2,dl);
  writeln('Расстояние мжду точками равно ',dl:10:3);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2010, 00:22
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Создайте две блок схемы (Pascal):

Создайте Блок схему а то у меня не получается - Pascal
uses crt; var f,g:file of longint; n,a,b,i,p:longint; m:set of byte; begin clrscr; randomize; assign(f,'fileF'); ...

Блок-схемы - Pascal
помогите составить блок-схемы к этим программам! uses crt; var i,j,n,k,l:integer; a:array of integer; b:array of integer; ...

Блок-Схемы - Pascal
Помогите пожалуйста, завтра сдавать... надо составить несколько блок схем к курсовой... Взамен могу тоже, чем-нибудь помочь...в долгу...

Блок схемы - Pascal
Нарисуйте блок схемы плиз: 1.Заданы два одномерных массива A(N)(N≤20) и B(M)(M≤60).Объединить их в один массив С(N+M),включив массив B...

блок-схемы - Pascal
Помогите пожалуйста написать блок-схему к задаче с оператором case:Единицы массы пронумерованы следущим образом: 1-килограмм, 2-милиграмм,...

Блок-схемы - Pascal
Как составить блок схему???подскажите плизззззззззззззз program 3; uses crt; var y,b,x,c: real; a:integer; begin clrscr; ...

2
Angel-dm
112 / 109 / 19
Регистрация: 21.12.2009
Сообщений: 319
15.05.2010, 08:41 #2
Вот схемы сначало для первого кода потом для второго:
Создайте две блок схемы
А тут в архивах их приблизить можно:
Program.rar
1
Angel-dm
112 / 109 / 19
Регистрация: 21.12.2009
Сообщений: 319
15.05.2010, 08:44 #3
Вот для второго:
Название: pr_dl.jpg
Просмотров: 13

Размер: 7.4 Кб
и
Создайте две блок схемы
И так же архивы:
pr_dl.rar
и
Program.rar
Не забудь отметить (+1)
_______ANGEL-DM_______
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2010, 08:44
Привет! Вот еще темы с ответами:

блок схемы! - Pascal
приветик! ребят помогите пожалуста построит блок схемы а то я сама чёта не помню как :( program p5; uses crt; label 1; var...

=( блок схемы - Pascal
Здравствуйте мальчики помогите плиз дурацкие блок схемы програмки сделала а с блок схемами не как разобраться не могу а их надо сдать уже...

Блок схемы. - Pascal
Нужны блок схемы к этим задачам. Задана квадратная матрица.Поменять местами строку с максимальным элементом на главной диогонали со...

блок схемы - Pascal
кто может помочь оформить блок схемы по госту, я схемы нарисовал, мне нужно чтоб мне подкорректировали по госту и исправили ошибки(каждая...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru