задачи по программированию + блок-схемы
| |
radscool | Дата: Понедельник, 27.04.2009, 13:36 | Сообщение # 1 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| Помогите решить две задачи по программированию на Паскале. 1-я задача. Дан массив Х (N). Переписать в массив Y подряд все положительные элементы массива X. 2-я запдача. Дана матрица размером 5*6. определить: верно ли, что минимальный элемент расположен в строке с нечетным номером.
|
|
| |
zadachki | Дата: Понедельник, 27.04.2009, 22:38 | Сообщение # 2 |
Admin
Группа: Администраторы
Сообщений: 116
[ 9 ]
Статус: Offline
| 1)Code j:=1; for i:=1 to N do begin if x[i]>0 then begin y[j]:=x[i]; j:=j+1; end; end;
|
|
| |
radscool | Дата: Вторник, 28.04.2009, 10:57 | Сообщение # 3 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| Спасибо большое за первую задачу!!!! Кто-нибудь помогите решить вторую!! Срочно!!!
|
|
| |
renovatio | Дата: Вторник, 28.04.2009, 18:18 | Сообщение # 4 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| 2: Code program pr; const n=5; m=5;
uses crt;
type mas = array [1..n,1..m] of integer; Var a:mas; n,m,j,i,min,imin,jmin:integer;
begin clrscr; writeln('Введите массив');
For i:=1 to n do begin For j:=1 to m do begin read(a[i,j]) end; writeln; end; {ввод элементов массива}
min:=a[1,1]; jmin:=1; imin:=1;
for i:=1 to n do begin for j:=1 to m do begin if a[i,j]<min then begin min:=a[i,j]; imin:=i; jmin:=j end end end;
if odd(imin) then writeln('Verno') else writeln('neverno'); readln end.
Сообщение отредактировал renovatio - Вторник, 28.04.2009, 18:20 |
|
| |
radscool | Дата: Суббота, 02.05.2009, 08:18 | Сообщение # 5 |
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
| Ура! Спасибо!!!!
|
|
| |
notnot | Дата: Понедельник, 11.05.2009, 14:35 | Сообщение # 6 |
Генерал-лейтенант
Группа: Активный пользователь
Сообщений: 54
[ 10 ]
Статус: Offline
| фпадлу было 3 раза писать эту муть. так что получи 3 в 1) Code program zadachi;
uses crt;
procedure Zadacha1; var x,y:real; begin writeln('Zadacha 1'); write('Vvedite agrument = '); readln(x); if 2*x+5<0 then writeln('Zna4inie funkzii nekorrektno') else begin y := sqrt(2*x+5); writeln('y = ',y:2:4); end; writeln('Press any key to continue..'); end;
procedure Zadacha2; var n,s,a,b:integer; isGood:boolean; begin isGood:=false; writeln('Zadacha 2'); write('Vvedite naturalnoe chislo <99. N = '); while isGood=false do begin readln(n); if (n<0) or (n>99) then writeln('Chislo zadano nekorrektno') else begin isGood := true; break; end; write('povtorite vvod. N = '); end; a:=0; b:=0; a:= n div 10; b:= n mod 10; s := a+b; if n*n = s*s*s then writeln('Verno') else writeln('Ne verno'); writeln('Press any key to continue..'); end;
procedure Zadacha3; var X,Y:array [1..3] of integer; S:array[1..3] of real; i,k:integer; min:real; begin writeln('zadacha 3'); writeln('vedite coordinati tochek'); for i:=1 to 3 do begin write('x',i,' = '); read(x[i]); write('y',i,' = '); readln(y[i]); writeln; s[i]:=sqrt(sqr(x[i])+sqr(y[i])); end; min:=s[1]; k:=1; for i:=2 to 3 do begin if s[i]<min then begin min:=s[i]; k:=i; end; end; Writeln('Naimenwee rasstoyanie u tochki s coordinatami (',x[k],',',y[k],')'); writeln('Press any key to exit..'); end;
begin ClrScr; Zadacha1; Readln; ClrScr; Zadacha2; Readln; ClrScr; Zadacha3; ReadKey; end.
я - девушка!! +_+
|
|
| |
alenka | Дата: Понедельник, 11.05.2009, 16:05 | Сообщение # 7 |
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
| спасибки большое))))
|
|
| |
alenka | Дата: Вторник, 12.05.2009, 21:05 | Сообщение # 8 |
Сержант
Группа: Новичок
Сообщений: 5
[ 0 ]
Статус: Offline
| ПОЖАЛУЙСТА!!!!СДЕЛАЙТЕ МНЕ ЧТО СМОЖЕТЕ!!! 1)длина ребра куба задается с клавиатуры.составьте программу вычисления площади грани,площади полной поверхности и объема этого куба. 2)корни приведенного квадратного уравнения Х1 и Х2 задаются с клавиатуры.составьте программу определения коэффициентов этого уравнения. 3)составьте программу вычисления площади кольца,наружный и внутренний радиусы которого задаются с клавиатуры. R1 R2 S 7 3 =125.664 9.5 1.6 =275.486 4)C клавиатуры задаются координаты вершин треугольника.составьте программу вычисления площади и периметра этого треугольника. Контрольный пример точка1 точка2 точка3 P Площадь (-4;6) (0;0) (7,3) =19,07 =15 (-2,5;-4,3) (-1;3,7) (4;5,5) =25,213 =18,65 5)Для заданного четырех-значного числа вывести на экран его "перевёртыш". Например:число 4721 должно преобразоваться в 1274. 6)с клавиатуры задается четырехзначное число.Выбросить из записи числа вторую и четвертую цифры. Вывести изменённое число на экран.Например,число 4372 должно превратиться в 47
|
|
| |
Хой | Дата: Вторник, 26.05.2009, 14:51 | Сообщение # 9 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Пожалуйста помогите сделать блок-схемы к заданиям: 1.Составить программу, которая после введенного с клавиатуры числа в диапазоне от 1 до 999, обозначающего денежную единицу, дописывает слово “рубль” в правильной форме. Например, 12 рублей, 21 рубль, 3 рубля и т. д. 2.Составить программу, которая выводит таблицу значений функции y=-2,4x2+5x-3 в диапазоне значений аргумента от -2 до 2 с шагом 0,5. 3.Дан массив чисел. Написать программу, которая определяет, сколько раз введенное с клавиатуры число встречается в массиве. вот по всем....
|
|
| |
witcher | Дата: Понедельник, 16.11.2009, 14:37 | Сообщение # 10 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Здравствуйте ) нужна помощ в составлении блок схемы на задачу с условием : Составить визуальный циклический алгоритм для обработки последовательности значений . В последовательности чисел определить предпоследнее отрицательное число. Задача вроде бы как и не сложная но заклинило у меня моск на ней ) если поможете буду признателен а нет так нет Кстати да задача взята из Основы программирования: Сборник задач Автор(ы): Афанасьева Т.В., Родионова Т.Е. Может кто то встречал такую )
Сообщение отредактировал witcher - Понедельник, 16.11.2009, 14:38 |
|
| |
pti4ka10 | Дата: Воскресенье, 30.05.2010, 19:22 | Сообщение # 11 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| ПОМОГИТЕ ПОЖАЙЛУСТА! Составить схему алгоритма и программу определения суммы наибольшего и наименьшего элементов вещественного массива А={ai}, i=1,N, N- число элементов массива (N<100). Вывести на экран найденную сумму, а также наибольшее и наименьшее значения и их адреса (индексы) в массиве
|
|
| |
|