Четверг, 28.03.2024, 16:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи по программированию + блок-схемы
задачи по программированию + блок-схемы
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
Спасибо большое за первую задачу!!!! biggrin
Кто-нибудь помогите решить вторую!! Срочно!!! cry
 
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
Ура! Спасибо!!!! biggrin wacko
 
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
Здравствуйте ) нужна помощ в составлении блок схемы на задачу с условием : Составить визуальный циклический алгоритм для обработки последовательности значений . В последовательности чисел определить предпоследнее отрицательное число. Задача вроде бы как и не сложная но заклинило у меня моск на ней ) если поможете буду признателен а нет так нет smile Кстати да задача взята из
Основы программирования: Сборник задач
Автор(ы): Афанасьева Т.В., Родионова Т.Е.
Может кто то встречал такую )


Сообщение отредактировал witcher - Понедельник, 16.11.2009, 14:38
 
pti4ka10Дата: Воскресенье, 30.05.2010, 19:22 | Сообщение # 11
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
ПОМОГИТЕ ПОЖАЙЛУСТА!
Составить схему алгоритма и программу определения суммы
наибольшего и наименьшего элементов вещественного массива
А={ai}, i=1,N, N- число элементов массива (N<100). Вывести на
экран найденную сумму, а также наибольшее и наименьшее
значения и их адреса (индексы) в массиве
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » задачи по программированию + блок-схемы
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024