0 / 0 / 0
Регистрация: 20.11.2009
Сообщений: 8
1

Блок схемы

22.11.2009, 14:44. Показов 870. Ответов 5
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
var a,b,c:array[1..80] of integer;
    n,m,i,j,k:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Массив А:');
for i:=1 to n do
 begin
  a[i]:=random(9)+1;
  write(a[i]:3);
 end;
writeln;
writeln;
repeat
write('Размер массива B от 1 до 60 m=');
readln(m);
until m in [1..60];
writeln('Массив B:');
for i:=1 to m do
 begin
  b[i]:=random(10)+10;
  write(b[i]:3);
 end;
writeln;
writeln;
repeat
write('Индекс для включения массива В от 1 до ',n-1,' k=');
readln(k);
until k in [1..n-1];
for i:=1 to k do
c[i]:=a[i];
for i:=k+1 to m+k do
c[i]:=b[i-k];
for i:=k+m+1 to m+n do
c[i]:=a[i-m];
writeln('Массив С:');
for i:=1 to m+n do
write(c[i]:3);
readln
end.
2.Известны три натуральных числа С-часы,М-минуты,S-секунды,Написать программу используя услолвные операторы,которые определят время через 15 секунд.
2.Программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var c,m,s,md,cd:byte;
begin
clrscr;
write('kol-vo chasov ');
readln(c);
write('kol-vo minut ');
readln(m);
write('kol-vo sicund ');
readln(s);
 
md:=(s+15) div 60;
s:=(s+15) mod 60;
cd:=(m+md) div 60;
m:=(m+md) mod 60;
c:=(c+cd) mod 24;
writeln('Vremyaÿ ',c,':',m,':',s);
readln;
end.
3.Число,равное сумме всех своих делителей,включая еденицу называется совершенным.Найти и напечатать все совершенные числа в интервале от 2 до Х.
3.Программа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var x,i,j,sum:byte;
begin
clrscr;
write('x= ');
readln(x);
for i:=2 to x do
begin
sum:=0;
for j:=1 to trunc(i/2) do
if i mod j=0 then sum:=sum+j;
if sum=i then writeln(i);
end;
readln;
end.
Добавлено через 1 час 19 минут
up
0
22.11.2009, 14:44
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
22.11.2009, 14:44
Ответы с готовыми решениями:

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

Блок-схемы
Помогите сделать схемы, заранее большое спасибо)))

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

5
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.11.2009, 15:31 2
Вот к первой задаче.
Вложения
Тип файла: rar №1.rar (9.3 Кб, 23 просмотров)
1
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.11.2009, 15:32 3
Вторая.
Вложения
Тип файла: rar №2.rar (3.1 Кб, 14 просмотров)
1
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.11.2009, 15:34 4
Вот третья!
Переделайте к более наглядному виду - которому вас учат.
Вложения
Тип файла: rar №3.rar (3.5 Кб, 12 просмотров)
1
0 / 0 / 0
Регистрация: 20.11.2009
Сообщений: 8
22.11.2009, 15:48  [ТС] 5
спасибо
0
Программист 1С
 Аватар для Давид
859 / 647 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.11.2009, 15:53 6
fuucker,Пожалуйста. Обращайся....
0
22.11.2009, 15:53
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
22.11.2009, 15:53
Помогаю со студенческими работами здесь

блок-схемы
кто может помочь проверит блок-схемы под созданные программы?

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

блок-схемы
помогите сделать блок схемы по данным кодам в паскале: 1.uses crt; var Xd1,Xd2,Yd1,Yd2,by:integer; S,p:real; begin clrscr; ...

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

блок схемы...
Помогите сделать блок схемы... 1) var a: array of integer; kol, j, i, n: integer; begin randomize; readln(n); ...


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru