С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Vit9noob
0 / 0 / 0
Регистрация: 23.01.2012
Сообщений: 1
1

Определить старшего по возрасту человека

26.01.2012, 18:19. Просмотров 1799. Ответов 2
Метки нет (Все метки)

1)Известны год, номер месяца и день рождения каждого из двух человек. Определить кто из них старше.
2)Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.
3)Треугольник задан координатами своих вершин. Найти периметр и площадь треугольника.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 18:19
Ответы с готовыми решениями:

Определить порядковый номер самого старшего по возрасту человека
1.В массиве числа образуют неубывающую последовательность. Несколько элементов,...

Определить фамилию самого младшего по возрасту человека среди военнообязанных
Известны данные о 16 сотрудниках фирмы: фамилия, возраст и отношение к воинской...

Определить: фамилию самого младшего по возрасту человека среди военнообязанных
Известны данные о 10 сотрудниках фирмы: фамилия, возраст и отношение к воинской...

Определить: фамилию самого младшего по возрасту человека среди военнообязанных
База данных «Фирма» состоит из записей о сотрудниках фирмы (фамилия, имя,...

Определить самого старшего человека из списка и вывести его фамилию, имя и дату рождения
Имеется список людей с указанием их фамилии, имени и даты рождения. Напишите...

2
sasha528
7 / 7 / 9
Регистрация: 06.12.2011
Сообщений: 20
26.01.2012, 20:47 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Задача №3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program qq;
var x,x1,y,y1,x2,y2:integer;
P,S:real;
s1,s2,s3,h:real;
begin
writeln('Ââåäè êîîðäèГ*Г*ГІГ» 1 òî÷êè');
read(x,y);
writeln('Ââåäè êîîðäèГ*Г*ГІГ» 2 òî÷êè');
read(x1,y1);
writeln('Ââåäè êîîðäèГ*Г*ГІГ» 3 òî÷êè');
read (x2,y2);
s1:=sqrt(((x1-x)*(x1-x))+((y1-y)*(y1-y)));
s2:=sqrt(((x2-x1)*(x2-x1))+((y2-y1)*(y2-y1)));
s3:=sqrt(((x2-x)*(x2-x))+((y2-y)*(y2-y)));
P:=s1+s2+s3;
h:=p/2;
S:=sqrt(h*(h-s1)*(h-s2)*(h-s3));
writeln('Ïåðèìåòð =',P,'ÏëîùГ*äü=',S);
end.
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5119 / 1557 / 950
Регистрация: 23.01.2011
Сообщений: 3,187
Завершенные тесты: 1
28.01.2012, 14:38 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Vit9noob Посмотреть сообщение
2)Известны оценки по информатике каждого из 20 учеников класса. В начале списка перечислены все пятерки, затем все остальные оценки. Сколько учеников имеют по информатике оценку "5"? Условный оператор не использовать. Известно, что пятерки имеют не все ученики класса.
можно так...с помощью оператора выбора...сойдет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const
 n = 20;
var
 arr: array[1..n] of integer;
 i, cnt: integer;
begin
 cnt:=0;
  for i:=1 to n do
   begin
    read(arr[i]);
     case arr[i] of
      5: inc(cnt)
     end;
   end;
 writeln;
 writeln('Оценок 5: ', cnt);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2012, 14:38

Напишите программу, которая по возрасту и полу человека, определяет является ли он военнообязанным
Напишите программу, которая по возрасту и полу человека, определяет является ли...

По возрасту человека отнести его к одной из четырех групп: дошкольник, ученик, работник, пенсионер
Напишите программу, которая анализирует человека по возрасту и относит к одной...

Определить порядковый номер самого старшего по возрасту человека
В массиве хранится информация о годе рождения каждого из 30 человек. Определить...


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

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

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