|
0 / 0 / 0
Регистрация: 14.12.2008
Сообщений: 4
|
|
| 1 | |
Задачи. Помогите плиз!!!14.12.2008, 01:11. Показов 1892. Ответов 4
Метки нет (Все метки)
№2Разветвляющаяся программа. Работа с числами. Предусмотреть при одном запуске программы на выполнение расчёт по нескольким наборам исходных данных. Подготовить отладочные просчёты и схему алгоритма. Даны a, b, c. Определить, является ли одно из них гипотенузой прямоуголь¬ного треугольника со сторонами a, b, c. Вывести соот¬ветствующее сообщение. Код
program lab2;
uses crt;
var a,b,c:real;
begin clrscr;
writeln ('vvedite znacheniya');
read (a,b,c);
if (sqr (a)+sqr(b)=sqr(c)) or (sqr(b)+sqr(c)=sqr(a)) or (sqr(a)+sqr(c)=sqr(b)) then writeln ('gipotenuza')
else writeln ('ne yavlyaetsya');
end.
№4 Работа с одномерными массивами чисел (сумма, произведение, формирование нового массива). Задание во вложенном файле... Код
var f,d:array [1..8] of real; c,s:real; i:integer; begin for i:=1 to 8 do begin... end; Код
s:=0
s:=s+f[i]...
Придрался препод...
for i:=1 to 8 do
begin
c:=s*(f[i]-2.5)/d[i];
writeln ('c', i, '=');
end;
end.
№5 Как её сделать? Задание 5. Простая циклическая программа с использованием рекуррентных формул. При отсутствии таких формул задача не принимается. Задание в файле... 6) Усложненная циклическая программа с числовыми данными. Ввод исходных данных из текстового «внешнего» файла (данные вводятся не с клавиатуры в момент выполнения программы, а из заранее подготовленного файла, находящегося на каком- то внешнем носителе). Подготовить схему алгоритма. Помогите кто чем может! Хотя бы инструкции какие-нибудь... Спасибо всем откликнувшимся! Помогите еще пожалуста с блок-схемами во второй, 4, 5 6...
0
|
|
(|
|
| 14.12.2008, 01:11 | |
|
Ответы с готовыми решениями:
4
Плиз срочно помогите решить задачи.... Нужна помощь! Помогите плиз решить олимпиадные задачи! помогите плиз... срочно :) !!Помогите плиз с задачей!! |
|
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
|
|
| 14.12.2008, 02:05 | 2 |
|
2) правильная
1) так: Код
var a,b,l,k:real;
begin
write('Введите а: ');
readln(a);
write('Введите b: ');
readln(b);
l:=a+sqr(b)-( sqr(b)-1.5 )/( sqr(sin(pi/6)) );
K:=( sqrt(abs(l))-2.7 )/( (a-b)*(b-l));
writeln('l= ',l);
writeln('k=',k);
readln;
end.
3 так: Код
program lab3;
uses crt;
var s:string [20];
i:integer;
begin
writeln ('vvedite predlojenie');
read (s);
i:=length (s);
if s[i]='.' then
writeln ('da')
else writeln ('net');
readln;
end.
4) Код
var f,d,c:array[1..8] of real;
i:integer;
summa:real;
begin
for i:=1 to 8 do
begin
write('Введите ',i,'элемент f: ');
readln(f[i]);
end;
writeln;
for i:=1 to 8 do
begin
write('Введите ',i,'элемент d: ');
readln(d[i]);
end;
summa:=0;
for i:=1 to 8 do
summa:=summa+f[i];
for i:=1 to 8 do
c[i]:=( (f[i]-2.5)*summa )/(d[i]);
for i:=1 to 8 do
writeln('C',i,'=',C[i]);
readln;
end.
5) Код
var y:real;
i,a,c:integer;
begin
write('Введите а: ');
readln(a);
c:=1;
for i:=1 to 10 do
begin
y:=y+(sqrt(2*i+a*c)+i);
c:=a*c;
end;
write('y=',y);
readln;
end.
2
|
|
|
0 / 0 / 0
Регистрация: 14.12.2008
Сообщений: 4
|
|
| 18.12.2008, 03:15 [ТС] | 4 |
|
Задание №4.
Наход. в файле. program lab4; uses crt; var f,d: array [1..8] of real; c,s:real; i:integer; begin for i:=1 to 8 do begin writeln ('vvedite f',i); read (f[i]); writeln ('vvedite d',i); read (d[i]); Препод сказал, что надо из файла. Как я понимаю из текстового, там в строке числа надо задать... end; s:=0; s:=s+f[i]; Здесь что-то не понравилось... for i:=1 to 8 do begin c:=s*(f[i]-2.5)/d[i]; writeln ('c',i,'=',c:8:1); end; end. Выручите пожалуйста! По возможности объясните всю прожку плиз.... И ещё: преподу на показать контрольный просчет... Как его здесь сделать? Спасибо! №5 Как её сделать? Задание 5. Простая циклическая программа с использованием рекуррентных формул. При отсутствии таких формул задача не принимается. Задание в файле... 6) Усложненная циклическая программа с числовыми данными. Ввод исходных данных из текстового «внешнего» файла (данные вводятся не с клавиатуры в момент выполнения программы, а из заранее подготовленного файла, находящегося на каком- то внешнем носителе). Подготовить схему алгоритма. Контрольный просчет тоже интересует... Помогите кто чем может! Хотя бы инструкции какие-нибудь... Спасибо всем откликнувшимся!
0
|
|
|
0 / 0 / 0
Регистрация: 14.12.2008
Сообщений: 4
|
|
| 27.12.2008, 13:30 [ТС] | 5 |
|
Помогите плиз...
0
|
|
| 27.12.2008, 13:30 | |
|
Помогаю со студенческими работами здесь
5
Помогите плиз с таблицей умножения)) Помогите с парочкой задач плиз... помогите плиз сделать лабораторную....
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
Наверх