 Составление мини-программы |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
  |
| XIII06 |
  20.06.2008 21:43
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Павел Павлович Репутация:  0   |
Выручайте бедного студента
 Задание: Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение: 1. возраст девушки равен половине возраста мужчины плюс 7, 2. возраст мужчины определяется как удвоенный возраст девушки минус 14. В начале выполнения программы на экране должен появиться вопрос: МУЖЧИНА ИЛИ ЖЕНЩИНА? ВВЕДИТЕ 1 ИЛИ 2. В зависимости от ответа выводятся соответствующие рекомендации. Надо файлик .pas и .exe Отчёт, думаю, как-то сам сделаю Пример выполнения работы в архиве. 
example.rar ( 7.16 килобайт )
Кол-во скачиваний: 360 |
   |
 
|
| Vinsent90 |
21.06.2008 8:30
Сообщение
#2
|
|
Новичок  Группа: Пользователи Сообщений: 13 Пол: Мужской Репутация: 0 |
program sex;
uses crt;
var p,m,d,q,c: real;
begin clrscr;
writeln(' Mujik - 1, Devushka - 2 '); readln(p);
if p=1 then begin
writeln('vvedite vozrast muj4ini'); readln(m);
if m>1 then begin
d:=m/2+7; writeln('vozrast devushki = ',d:1:0);end;end;
if p=2 then begin
writeln('vvedite vozrast devushki'); readln(d);
if d>8 then begin
m:=d*2-14; writeln('vozrast muj4ini = ',m:1:0);end;end;
readkey; clrscr;
end.
sex.zip ( 12.95 килобайт )
Кол-во скачиваний: 337Сообщение отредактировано: Vinsent90 - 21.06.2008 8:36 |
|
|
|
| -XIII06- |
 21.06.2008 11:51
Сообщение
#3
|
|
Гость |
Цитата(Vinsent90 @ 21.06.2008 8:30)  program sex;
uses crt;
var p,m,d,q,c: real;
begin clrscr;
writeln(' Mujik - 1, Devushka - 2 '); readln(p);
if p=1 then begin
writeln('vvedite vozrast muj4ini'); readln(m);
if m>1 then begin
d:=m/2+7; writeln('vozrast devushki = ',d:1:0);end;end;
if p=2 then begin
writeln('vvedite vozrast devushki'); readln(d);
if d>8 then begin
m:=d*2-14; writeln('vozrast muj4ini = ',m:1:0);end;end;
readkey; clrscr;
end.
sex.zip ( 12.95 килобайт )
Кол-во скачиваний: 337Отлично! То что надо! Спасибо большое! |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 22.07.2025 20:50 |