09.05.2011, 22:42 | #1 (permalink) |
Новичок
Регистрация: 09.05.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal
1.Скласти програму, яка у діалоговому режимі запропонувала Вам обчислити задану математичну функцію. y = (2a + b)2+ c3/(d -2) npu a=0.83; b=4.2; c=-6.7; d=-1.5 2.Хлопчик поклав у коробку стільки кубиків, скільки їх там вже було, і ще D штук. Після цього в коробці виявилося N кубиків. У скільки разів більше кубиків поклав хлопчик у коробку другого разу, ніж першого? 3.Скласти програму, яка б за температурою визначала фізичний стан води. 4.Задані точки А(x1, у1), В(х2, у2), С(х3, y3) і О(х4,у4). Визначити, чи є точка О центром кола, яке проходить через точки А, В, С. Довжина відрізка обраховується за формулою: 5.Складіть програму для порівняння віку трьох дітей. 6.N разів виконати такі дії: значення змінної Е відняти від значення змінної С і результат присвоїти змінній С. 7.віддалі в морських милях i кілометрах для значень миль від а до b з кроком с миль, знаючи що 1 морська миля = 1,852 км; 8.Обчислити добуток d = (1 + 1/12) • (1 + 1/22) • … • (1 + 1/n2) |
09.05.2011, 22:42 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Подобные вопросы раньше тоже создавались Pascal Pascal На Pascal Pascal Pascal PASCAL ABC |
10.05.2011, 10:38 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Так. Ну поскольку заняться нам тут решительно нечем (по мнению kent541), то займемся поначалу переводом з мовi на москальский:
1. Составить программу, работающую в диалоговом режиме и вычисляющую заданную математическую функцию: y = (2a + b) 2 + c3 / (d -2) npu a = 0.83; b = 4.2; c =- 6.7; d =- 1.5 2. Мальчик положил в коробку столько кубиков, сколько их там уже было, и еще D штук. После этого в коробке оказалось N кубиков. Во сколько раз больше кубиков положил мальчик в коробку во второй раз, чем в первый? 3. Составить программу, которая бы по температуре определяла физическое состояние воды. 4. Заданы точки А (x1, у1), В (х2, у2), С (х3, y3) и О (х4, у4). Определить, является ли точка О центром круга, проходящего через точки А, В, С. Длина отрезка рассчитывается по формуле: 5. Составить программу для сравнения возраста трех детей. 6. N раз выполнить следующие действия: значение переменной Е отнять от значения переменной С и результат присвоить переменной С. 7. {Сосчитать расстояние (?)} в морских милях и километрах для значений миль от а до b с шагом с миль, зная что 1 морская миля = 1,852 км; 8. Вычислить произведение d = (1 + 1 / 12) • (1 + 1 / 22) • ... • (1 + 1/n2) |
10.05.2011, 11:42 | #3 (permalink) | ||||||
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
По-идее, задача решается через уравнение 2х+D=N, но без точных значений D и N это просто-напросто нерешаемо. Цитата:
Цитата:
Код:
AO:=sqrt(sqr(x0-xA)+sqr(yO-yA)) Цитата:
Код:
for i:=1 to n do c:=c-e; Цитата:
Цитата:
__________________
Убить всех человеков! |
||||||
10.05.2011, 11:42 | #4 (permalink) |
Member
Регистрация: 22.01.2008
Сообщений: 553
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 46
|
Помогу чуток земляку...
Программы очень легкие, школьный курс 100%. У меня дети такие делают. Легче всего выложить задание, а вы решайте... 1. program funcia; var a,b,c,d,y: real; begin write ('Vvedite cherez probel a, b, c, d'); read(a); read (b); read (c); read (d); y:=(2*a+b)*2+c*3/(d-2); write ('y=',y:6:2); end. набирал прямо сдесь. |
10.05.2011, 11:43 | #5 (permalink) | ||||||||
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR a,b,c,d,y:Real; BEGIN Write('a= '); ReadLn(a); Write('b= '); ReadLn(b); Write('c= '); ReadLn(c); Write('d= '); ReadLn(d); y:=Sqr(a*2+b)+c*c*c/(d-2); Writeln('y= ',y:9:3); Readln; END. Цитата:
Цитата:
Код:
VAR t:Real; BEGIN Write('t= '); ReadLn(t); If t<0 then writeln('Ice') else If t=0 then writeln('Melting ice') else If t<100 then writeln('Liquid') else If t=100 then writeln('Boiling liquid') else writeln('Vapor'); Readln; END. Цитата:
Код:
VAR x1,y1,x2,y2,x3,y3,x4,y4:Real; BEGIN Writeln('Point A:'); Write('x1= '); Readln(x1); Write('y1= '); Readln(y1); Writeln; Writeln('Point B:'); Write('x2= '); Readln(x2); Write('y2= '); Readln(y2); Writeln; Writeln('Point C:'); Write('x3= '); Readln(x3); Write('y3= '); Readln(y3); Writeln; Writeln('Point O:'); Write('x4= '); Readln(x4); Write('y4= '); Readln(y4); Writeln; If (SQRT(SQR(x4-x1)+SQR(y4-y1))=SQRT(SQR(x4-x2)+SQR(y4-y2))) and (SQRT(SQR(x4-x1)+SQR(y4-y1))=SQRT(SQR(x4-x3)+SQR(y4-y3))) then writeln('YES') else writeln('NO'); Readln; END. Цитата:
Код:
VAR Name1, Name2,Name3:String; Age1,Age2,Age3:Real; BEGIN Writeln('Child_1:'); Writeln('Name:'); Readln(Name1); Write('Age= '); Readln(Age1); Writeln; Writeln('Child_2:'); Writeln('Name:'); Readln(Name2); Write('Age= '); Readln(Age2); Writeln; Writeln('Child_3:'); Writeln('Name:'); Readln(Name3); Write('Age= '); Readln(Age3); Writeln; If Age1>Age2 then Writeln(Name1+' is older then '+Name2); If Age2>Age1 then Writeln(Name2+' is older then '+Name1); If Age1>Age3 then Writeln(Name1+' is older then '+Name3); If Age3>Age1 then Writeln(Name3+' is older then '+Name1); If Age2>Age3 then Writeln(Name2+' is older then '+Name3); If Age3>Age2 then Writeln(Name3+' is older then '+Name2); If Age1=Age2 then Writeln(Name1+' has the same age as '+Name2); If Age1=Age3 then Writeln(Name1+' has the same age as '+Name3); If Age2=Age3 then Writeln(Name2+' has the same age as '+Name3); Readln; END. Цитата:
Код:
VAR n,i:Integer; C,E:Real; BEGIN Write('n= '); Readln(n); Write('C= '); Readln(C); Write('E= '); Readln(E); For i:=1 to n do C:=C-E; Write('C= ',C:9:3); Readln; END. Цитата:
Код:
VAR n,i:Integer; a,b,c,x:Real; BEGIN Write('a= '); Readln(a); Write('b= '); Readln(b); Write('c= '); Readln(c); n:=Round((b-a)/c); Writeln(' miles kilometres'); For i:=0 to n do begin x:=a+c*i; Writeln(x:10:3, x*1.852:15:3); end; Readln; END. Цитата:
Код:
VAR n,i:Integer; P:Real; BEGIN Write('n= '); Readln(n); P:=1; For i:=1 to n do P:=P*(1+1/(10*i+2)); Writeln('P= ',P:15:3); Readln; END. |
||||||||
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.05.2011, 12:12 | #10 (permalink) |
Новичок
Регистрация: 09.05.2011
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое)) выручили:tehnari_r u_288:....
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|