Как соединить два кода в один и получить ответ?

13.12.2015, 17:19. Показов 1165. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

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
const 
n = 10; 
 
var 
a, b, s: array [1..n] of integer; 
summ, count, i: integer; 
avg: real; 
 
p: char; 
{p - пол} 
u: char;
{u - семейное положение} 
 
begin 
randomize; 
 
writeln('Генерируем сотрудников'); 
for i := 1 to n do 
begin 
a[i] := random(1960, 1997); 
b[i] := random(0, 1); {0 - М, 1 - Ж} 
s[i] := random(2, 3); {Х - М, 3 - Ж} 
end; 
 
writeln('Выводим сотрудников'); 
for i := 1 to n do 
begin 
if b[i] = 0 then 
p := 'М' 
else 
p := 'Ж'; 
 
begin 
if s[i] = 0 then 
u := 'Х' 
else 
u := 'Ж';
 
writeln(i:4, ') Год рождения: ', a[i], ', Возраст: ', 2015 - a[i], ', Пол: ', p);
end; 
writeln(i:4, ') Семейное положение: ' , u);
end;
writeln
end.

ОТВЕТ
Генерируем сотрудников
Выводим сотрудников
1) Год рождения: 1964, Возраст: 51, Пол: М
1) Семейное положение: Ж
2) Год рождения: 1986, Возраст: 29, Пол: М
2) Семейное положение: Ж
3) Год рождения: 1992, Возраст: 23, Пол: М
3) Семейное положение: Ж
4) Год рождения: 1986, Возраст: 29, Пол: М
4) Семейное положение: Ж
5) Год рождения: 1971, Возраст: 44, Пол: М
5) Семейное положение: Ж
6) Год рождения: 1976, Возраст: 39, Пол: Ж
6) Семейное положение: Ж
7) Год рождения: 1983, Возраст: 32, Пол: Ж
7) Семейное положение: Ж
8) Год рождения: 1983, Возраст: 32, Пол: М
8) Семейное положение: Ж
9) Год рождения: 1965, Возраст: 50, Пол: М
9) Семейное положение: Ж
10) Год рождения: 1984, Возраст: 31, Пол: Ж
10) Семейное положение: Ж

Pascal
1
2
3
  sum:=0;god:=2015;
  for i:=1 to 8 do if (god-a[i]>60)and(b[i]=1)and(s[i]=0) then inc(sum);
  writeln(sum);

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

13.12.2015, 17:19

Ответы с готовыми решениями:

Решить ребус: "один один один один один=пять"
Решить ребус: ОДИН ОДИН + ОДИН один один = пять

Ребус: "один+один+один+один+один=пять"
С помощью множеств решить ребус Один+один+один+один+один=5. Ответ запишите в файл. Заранее спасибо...

Даны два массива. Соединить их в один массив
Даны два массива А и В, состоящие из N целых элементов. Соединить их в один массив С=...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

13.12.2015, 17:19

Помогаю со студенческими работами здесь

Заданы два упорядоченных по возрастанию массива. Соединить их в один массив, так чтобы элементы были упорядоченны по возрастанию
Заданы два упорядоченных по возрастанию массива А и В, состоящих из N и M вещественных элементов...

Заданы два упорядоченных по убыванию массива. Соединить их в один массив, так чтобы элементы были упорядоченны по убыванию
Заданы два упорядоченных по убыванию массива А и В, состоящих из N и M вещественных элементов...

Соединить два массива в один, сохраняя упорядоченность.
Даны два вектора {xi}, {yi}, i=1, ..., 10, упорядоченные по возрастанию. Соедините их в один вектор...

Соединить два массива в один, упорядоченный в возрастающем порядке
Даны численный массив A упорядоченный в возрастающем порядке и численный массив B упорядоченный в...

Сделанный код соединить с кодом меню
Сама программа работает, когда склеиваю и кодом и процедурами, чтобы соединилось для меню, то...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

Наверх