31.01.2011, 15:00 | #1 (permalink) |
Новичок
Регистрация: 31.01.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите сделать блок схему.
2.Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10): a. саженей в метры ( 1 сажень равна 2,1366 м) b. футов в метры (1 фут равен 0,3048 м) c. драхм в граммы (1 драхма равна 3,7325 г) d. унций в граммы (1 унция равна 29,86 г) e. фунтов в килограммы (1 фунт равен 0,40951 кг) f. аршинов в метры (1 аршин равен 0,7112 м) g. золотников в граммы (1 золотник равен 4,2657 г) h. дюймов в миллиметры (1 дюйм равен 25,3995 мм) 3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ... 4.Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа. Листинг есть в блок схемах к сожалению не шарю заранее спасибо за помощь!!! |
31.01.2011, 15:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Возможно вам будет полезно обратить внимание на эти топики Помогите сделать схему Помогите пожалуйста составить блок-схему! |
31.01.2011, 15:09 | #2 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
LeoN47AK если вам нужны блок-схемы по вашим листингам, то выкладывайте их сюда.
Последний раз редактировалось shrek=); 31.01.2011 в 15:17 |
31.01.2011, 15:14 | #3 (permalink) |
Новичок
Регистрация: 31.01.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
1.Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном целочисленном массиве имеется хотя бы один элемент, кратный а и не кратный b.
program Project1; {$APPTYPE CONSOLE} uses sysutils; var l:array[1..100] of integer; a,b,n,i:integer; w:boolean; begin readln(n); randomize; for i:=1 to n do begin l[i]:=random(10)-3; write(l[i]:3); end; writeln; readln(a,b); w:=false; for i:=1 to n do if (l[i] mod a=0) and (l[i] mod b<>0) then begin w:=true; end; writeln(w); readln; end. 3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ... program Project2; {$APPTYPE CONSOLE} uses SysUtils; VAR a,e:REAL; i:BYTE; BEGIN e:=1; i:=0; a:=1; Repeat Inc(i); a:=a/i; e:=e+a; Until a<0.000001; WriteLn(e:9:7); ReadLn; END. Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа. program Project2; {$APPTYPE CONSOLE} uses sysutils; var i,j:integer; begin for i:=10 to 99 do for j:=1 to 99 do if (i*100+j) mod (i*j) = 0 then writeln(i,' i ',j); readln end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
блок схема, задача, помогите, програмирование, программа |
|
|