Об игре
Новости
Войти
Регистрация
Рейтинг
Форум
5:54
1347
 online
Требуется авторизация
Вы не авторизованы
   Форумы-->Форум для внеигровых тем-->

АвторКалькулятор в Паскале
Mc_Artemon
 1  2011-02-13 19:04:51
Нужно написать калькулятор в Паскале о_О
Знаю что там один блок копируеться три раза
Помогите
Mc_Artemon
 2  2011-02-13 19:15:30
Program kalkulator;
Var a,c: real;
b: char;
Begin
Write('Первое число:');
readln (a);
Write ('Введите знак');
readln (b);
Write ('Второе число');
readln (c);
case b of
'+': a:=a+c;
'-': a:=a-c;
'*':a:=a*c;
'/':a:=a/c;
end;
Write ('Результат:',a);
readln
End.

так правильно?
medmax-lg-2
 3  2011-02-13 19:15:50
о, мсье думает, что под любую задачу только 1 вариант кода?
Mc_Artemon
 4  2011-02-13 19:16:47
для medmax-lg-2:
а что нет? О_о
#997некр4
 5  2011-02-13 19:17:15
а что readln в конце делает?
+ проверяй если с = 0 и знак делить
Моррог
 6  2011-02-13 19:18:40
Так вроде нормально, но твоё "write" означает, что всё будет написано впритык)
Первое число:Введите знакВторое число
Mc_Artemon
 7  2011-02-13 19:18:44
а что readln в конце делает?
а не надо?
Mc_Artemon
 8  2011-02-13 19:20:02
напиши правильно, а то я нуп
darth-sasha
 9  2011-02-13 19:20:39
для Mc_Artemon:
я бы тоже по сhar делал

а если программу:
k=min(x,y,z)+sqr(min(x-z,s,z)/4*min(5x,6y,z-0.5)+10
зделаеш?
через минут 10 решу и напишу ответ)
Mc_Artemon
 10  2011-02-13 19:21:17
k=min(x,y,z)+sqr(min(x-z,s,z)/4*min(5x,6y,z-0.5)+10
О_о что это?
darth-sasha
 11  2011-02-13 19:29:27
program frod;
var s,k,a,b,c,b1,b2,b3:real;
funktion cho(a,b:real;var min:real):real;
begin
if b>a then a:=min
else b:min;
end;
writeln('x,y,z,s');
readln(x,y,z,s);
k:=cho(cho(x,y),z))+cho(cho(x-y,s),z))*(cho(x-y,s),z))/4*cho(cho(5*x,6*y),z-0.5))+10;
writeln('k=',k);
readln;
end.

ето ответ на программу:
k=min(x,y,z)+sqr(min(x-z,s,z)/4*min(5x,6y,z-0.5)+10

я мог что-то с функцыей протупить так что сильно не ругай)
darth-sasha
 12  2011-02-13 19:30:57
для Mc_Artemon:напишы в паскале и поймеш)
ато на мелочах сидиш с калькуляторами возишся надо на module CRT идти!
а ты с ФИГНЕЙ возишся)
Mc_Artemon
 13  2011-02-13 19:30:59
для darth-sasha:
что ты нацарапал?
Mc_Artemon
 14  2011-02-13 19:32:11
program frod;
var s,k,a,b,c,b1,b2,b3:real;
funktion cho(a,b:real;var min:real):real;
begin
if b>a then a:=min
else b:min;
end;
writeln('x,y,z,s');
readln(x,y,z,s);
k:=cho(cho(x,y),z))+cho(cho(x-y,s),z))*(cho(x-y,s),z))/4*cho(cho(5*x,6*y),z-0.5))+10;
writeln('k=',k);
readln;
end.
я вот это за урок с листика не перепичатаю О_О
darth-sasha
 15  2011-02-13 19:51:27
для некр4:
для Mc_Artemon:
readln вконце для удержівания результата без него оно та пощитает но результат покажет после включения во второй раз!
а оценка тебе 10 можнои чуть-чуть проще но мне лень писать и так накатал много)
Mc_Artemon
 16  2011-02-13 20:00:09
спс всем
тема закрыта by Mc_Artemon (2011-02-13 20:00:17)
К списку тем
2007-2025, онлайн игры HeroesWM