Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Составление мини-программы

Автор: XIII06 21.06.2008 1:43

Выручайте бедного студента smile.gif
Задание:

Составить программу для определения подходящего возраста кандидатуры для вступления в брак, используя следующее соображение:
1. возраст девушки равен половине возраста мужчины плюс 7,
2. возраст мужчины определяется как удвоенный возраст девушки минус 14.
В начале выполнения программы на экране должен появиться вопрос: МУЖЧИНА ИЛИ ЖЕНЩИНА? ВВЕДИТЕ 1 ИЛИ 2. В зависимости от ответа выводятся соответствующие рекомендации.

Надо файлик .pas и .exe smile.gif Отчёт, думаю, как-то сам сделаю smile.gif

Пример выполнения работы в архиве.

Прикрепленный файл  example.rar ( 7.16 килобайт ) Кол-во скачиваний: 416

Автор: Vinsent90 21.06.2008 12: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 килобайт ) Кол-во скачиваний: 402

Автор: -XIII06- 21.06.2008 15:51

Цитата(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 килобайт ) Кол-во скачиваний: 402


Отлично! То что надо! Спасибо большое!