Форумы-->Форум для внеигровых тем-->
| Автор | Помощь по Delphi |
|---|
. За весну Обломов похудел на Р1%, за лето поправился на Р2%, за осень похудел на Р3%, за зиму поправился на Р4%. Написать программу, определяющую, похудел или поправился за год Обломов.
Решение на Паскале
Program if14;
uses crt;
var
p1,p2,p3,p4,a,b:real;
begin
clrscr;
Writeln('Введите вес в начале года а:');
read(a);
Writeln('Введите процент р1:');
read(p1);
Writeln('Введите процент р2:');
read(p2);
Writeln('Введите процент р3:');
read(p3);
Writeln('Введите процент р4:');
read(p4);
b:=a;
a:=a-a*p1/100;
a:=a+a*p2/100;
a:=a-a*p3/100;
a:=a+a*p4/100;
if a>b then writeln ('поправился')else
if a<b then writeln ('похудел')else
writeln ('вес остался прежним');
end.
Как все это перевести на Дельфи? | Задачку решил. Теперь вторая.
Фирма осуществляет набор сотрудников. Условия приема требуют не менее К лет рабочего стажа и возраст не более V лет. Написать программу, проверяющую, удовлетворяет ли кандидат этим требованиям. | procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d:integer;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
c:=strtoint(edit3.Text);
d:=strtoint(edit4.Text);
If a<=c and b<=d then label5.caption:=inttostr'Принимаем на работу' else
If a>c and b<d then label5.caption:=inttostr'Не принимаем на работу' else
If a<c and b>d then label5.caption:=inttostr'Не принимаем на работу' else
If a>c and b>d then label5.caption:=inttostr'Не принимаем на работу' else
end;
end.
Пишет [Error] Unit1.pas(42): There is no overloaded version of 'IntToStr' that can be called with these arguments
и
[Error] Unit1.pas(42): Incompatible types
Что за беда? | | Убрал inttostr та же беда... | inttostr там вообще никаким боком... И даже неверно написано: 'Не принимаем на работу' должно быть заключено в круглые скобки, ведь ты передаешь строку функции inttostr в качестве параметра.
Я с паскалем не работаю, но на си у меня ошибок не возникло в этом твоем примере. Caption же типа AnsiString, а не просто string. Попробуй сделать
Label5.Сaption := AnsiString('Не принимаем на работу');
Не факт, что получится правда. Жди ответов людей, знающих этот язык.
з.ы. зачем столько лишних условий? | | тема закрыта by Mangecu (2011-12-16 16:06:18) |
|---|
К списку тем
|
