Срочно нужна помощь ! Помогите плз - Паскаль, Turbo Pascal, PascalABC.NET

AnyaSama · 28.06.2015, 10:32

Ребят помогите пожалуйста , завтра тест по Pascal , а я почти ничего не знаю , пол семестра в больнице пролежала.
Вопросы почти все одинаковые , ответьте хотя бы на несколько , буду очень признательна

1. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наибольшего элемента массива. Выведите на экран значения элементов массива, индекс наибольшего элемента массива и его значение.
2. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наименьшего элемента массива. Выведите на экран значения элементов массива, индекс наименьшего элемента массива и его значение.
3. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Отсортируйте массив по возрастанию. Выведите на экран значения элементов массива.
4. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Отсортируйте массив по убыванию. Выведите на экран значения элементов массива.
5. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Задайте возможность поиска элемента массива следующим образом: пользователь вводит с клавиатуры значение элемента, на экран выводятся индексы всех элементов массива с таким значением.
6. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Замените все отрицательные элементы массива нулями. Выведите вновь получившийся массив на экран.
7. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все отрицательные элементы массива.
8. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все положительные элементы массива.
9. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наименьшего элемента массива по модулю. Выведите на экран значения элементов массива, индекс наименьшего элемента массива по модулю и его значение.
10. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наибольшего элемента массива по модулю. Выведите на экран значения элементов массива, индекс наибольшего элемента массива по модулю и его значение.
11. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все четные элементы массива.
12. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все нечетные элементы массива.
13. Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверны (делитель равен нулю), выдавать сообщение об ошибке.
14. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 5% предоставляется если сумма покупки равна 1000 рублей, Скидка в 10% предоставляется если сумма покупки равна 2000 рублей.
15. Написать программу, которая сравнивает два числа введенных с клавиатуры. Программа должна вывести на экран сообщения в соответствии с сравнением «Числа равны», «Первое число больше второго», «Второе число больше первого».
16. По заданному номеру месяца вывести на экран значение времени года.
17. Вывести на экран название дня недели, соответствующее заданному числу, при условии что в месяце 31 день и первое число понедельник.
18. Имеется информация о пяти междугородних переговорах, содержащая название города, цену одной минуты и время разговора в минутах. Определить сумму оплаты за каждый разговор и суммарную стоимость всех переговоров. При решении задачи использовать записи.
19. Имеется информация о пяти студентах группы: ФИО студента, оценки по математике, информатике, физике. Определить средний бал каждого студента и по группе, зная их оценки по математике, информатике, физике. При решении задачи использовать записи.
20. Продемонстрировать работу со строковыми операциями pos, copy, length.
21. Продемонстрировать работу со строковыми операциями ord, chr, pred, succ, upcase.
22. Продемонстрировать работу со строковыми операциями delete, insert, str, val.

newerow1989 · 28.06.2015, 16:30

1 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   m:=1;
   For i:=1 to n do
      If p[m]<p[i] then
         m:=i;
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Writeln('p[',m,'] = ',p[m]);
   Readln;
end.

2 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   m:=1;
   For i:=1 to n do
      If p[m]>p[i] then
         m:=i;
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Writeln('p[',m,'] = ',p[m]);
   Readln;
end.

3 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
    b:boolean;
begin
   For i:=1 to n do
      Readln(p[i]);
   Repeat
      b:=true;
      For i:=2 to n do
         If p[i-1]>p[i] then
         begin
            b:=false;
            m:=p[i];
            p[i]:=p[i-1];
            p[i-1]:=m;
         end;
   Until b;
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

4 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
    b:boolean;
begin
   For i:=1 to n do
      Readln(p[i]);
   Repeat
      b:=true;
      For i:=2 to n do
         If p[i-1]<p[i] then
         begin
            b:=false;
            m:=p[i];
            p[i]:=p[i-1];
            p[i-1]:=m;
         end;
   Until b;
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

5 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Readln(m);
   For i:=1 to n do
      If m=p[i] then
         Write(i,' ');
   Writeln;
   Readln;
end.

6 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   For i:=1 to n do
      If p[i]<0 then
         p[i]:=0;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

7 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   For i:=1 to n do
      If p[i]<0 then
         Write(p[i],'  ');
   Writeln;
   Readln;
end.

8 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   For i:=1 to n do
      If p[i]>0 then
         Write(p[i],'  ');
   Writeln;
   Readln;
end.

9 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   m:=1;
   For i:=2 to n do
      If Abs(p[m])>Abs(p[i]) then
         m:=i;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Writeln('p[',m,'] = ',p[m]);
   Readln;
end.

10 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   m:=1;
   For i:=2 to n do
      If Abs(p[m])<Abs(p[i]) then
         m:=i;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   Writeln('p[',m,'] = ',p[m]);
   Readln;
end.

11 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   For i:=1 to n do
      If p[i] mod 2=0 then
         Write(p[i],'  ');
   Writeln;
   Readln;
end.

12 задача

Код:

const n=5;
var p:array[1..n] of integer;
    i,m:integer;
begin
   For i:=1 to n do
      Readln(p[i]);
   Writeln;
   For i:=1 to n do
      Write(p[i],'  ');
   Writeln;
   For i:=1 to n do
      If p[i] mod 2=1 then
         Write(p[i],'  ');
   Writeln;
   Readln;
end.

13 задача

Код:

var a,b,m,d:integer;
begin
   Readln(a,b);
   If b=0 then
      Writeln('delenie na 0!') else
   begin
      m:=a mod b;
      d:=a div b;
      Writeln(d,' ',m,'/',b);
   end;
   Readln;
end.

14 задача

Код:

var a:real;
begin
   Readln(a);
   If a>=1000 then
      a:=a*0.95 else
   If a>=2000 then
      a:=a*0.9;
   Writeln(a:1:2);
   Readln;
end.

newerow1989 · 28.06.2015, 16:30

15 задача

Код:

var a,b:integer;
begin
   Readln(a,b);
   If a=b then
      Writeln('chisla =') else
   If a>b then
      Writeln('1-e > 2-go') else
   If a<b then
      Writeln('2-e < 1-go');
   Readln;
end.

16 задача

Код:

var m:integer;
begin
   Readln(m);
   Case m of
   12,1,2: Writeln('zima');
   3..5: Writeln('vesna');
   6..8: Writeln('leto');
   9..11: Writeln('osen');
   else
      Writeln('< no! >');
   end;
   Readln;
end.

17 задача

Код:

var d:integer;
begin
   Readln(d);
   If (d<1) or (d>31) then
   begin
      Writeln('< no day! >');
      Readln;
      Exit;
   end;
   d:=d mod 7;
   Case d of
   0: Writeln('voskres');
   1: Writeln('ponedel');
   2: Writeln('vtornik');
   3: Writeln('sreda');
   4: Writeln('chetv');
   5: Writeln('pyatn');
   6: Writeln('subbota');
   else
      Writeln('< no! >');
   end;
   Readln;
end.

18 задача

Код:

type tel=record
        gorod:string;
        stoim:real;
        tim:integer;
        summa:real;
     end;
const n=5;
var p:array[1..n] of tel;
    i:integer;
    s:real;
begin
   For i:=1 to n do
   begin
      Write('gorod = ');
      Readln(p[i].gorod);
      Write('stoim = ');
      Readln(p[i].stoim);
      Write('times = ');
      Readln(p[i].tim);
   end;
   Writeln;
   s:=0;
   For i:=1 to n do
   begin
      p[i].summa:=p[i].stoim*p[i].tim;
      Writeln(p[i].gorod,' ',p[i].summa:1:2);
      s:=s+p[i].summa;
   end;
   Writeln;
   Writeln('Itogo: ',s:1:2);
   Readln;
end.

19 задача

Код:

type student=record
        fio:string;
        matem,infor,physik:byte;
        sred:real;
     end;
const n=5;
var p:array[1..n] of student;
    i:integer;
    s:real;
begin
   For i:=1 to n do
   begin
      Write('fio    = ');
      Readln(p[i].fio);
      Write('matem  = ');
      Readln(p[i].matem);
      Write('infor  = ');
      Readln(p[i].infor);
      Write('physik = ');
      Readln(p[i].physik);
   end;
   Writeln;
   s:=0;
   For i:=1 to n do
   begin
      p[i].sred:=(p[i].matem+p[i].infor+p[i].physik)/3;
      Writeln(p[i].fio,' ',p[i].sred:1:2);
      s:=s+p[i].sred;
   end;
   s:=s/n;
   Writeln;
   Writeln('Itogo: ',s:1:2);
   Readln;
end.

20 задача

Код:

var s,c:string;
    i,m:integer;
begin
   Writeln('          pos');
   Write('s = ');
   Readln(s);
   Write('substr = ');
   Readln(c);
   i:=Pos(c,s);
   Writeln(i);
   Writeln('          copy');
   Write('s = ');
   Readln(s);
   Write('index = ');
   Readln(i);
   Write('count = ');
   Readln(m);
   c:=Copy(s,i,m);
   Writeln(c);
   Writeln('          length');
   Write('s = ');
   Readln(s);
   i:=Length(s);
   Writeln(i);
   Readln;
end.

21 задача

Код:

var x:char;
    i:byte;
begin
   Writeln('          ord');
   Write('x = ');
   Readln(x);
   i:=Ord(x);
   Writeln(i);
   Writeln('          chr');
   Write('x = ');
   Readln(i);
   x:=Chr(i);
   Writeln(x);
   Writeln('          pred');
   Write('x = ');
   Readln(x);
   x:=Pred(x);
   Writeln(x);
   Writeln('          succ');
   Write('x = ');
   Readln(x);
   x:=succ(x);
   Writeln(x);
   Writeln('          UpCase');
   Write('x = ');
   Readln(x);
   x:=UpCase(x);
   Writeln(x);
   Readln;
end.

22 задача

Код:

var s,su:string;
    i,c:integer;
begin
   Writeln('          delete');
   Write('s = ');
   Readln(s);
   Write('index = ');
   Readln(i);
   Write('count = ');
   Readln(c);
   Delete(s,i,c);
   Writeln(s);
   Writeln('          insert');
   Write('substr = ');
   Readln(su);
   Write('dest = ');
   Readln(s);
   Write('index = ');
   Readln(i);
   Insert(su,s,i);
   Writeln(s);
   Writeln('          str');
   Write('x = ');
   Readln(i);
   Str(i,s);
   Writeln(s);
   Writeln('          val');
   Write('s = ');
   Readln(s);
   Val(s,i,c);
   Writeln(i,' ',c);    
   Readln;
end.

Сойдет?

Потратил время 1 час и 12 мин

AnyaSama · 28.06.2015, 16:36

Спасибо тебе огромное!!!! Уже и отчаялась если бы не ты! Не знаю чтобы делала , спасибо еще раз тебе :*

newerow1989 · 28.06.2015, 16:38

Пожалуйста!

28.06.2015, 10:32	#1
AnyaSama Регистрация: 28.06.2015 Сообщений: 3	Срочно нужна помощь ! Помогите плз Ребят помогите пожалуйста , завтра тест по Pascal , а я почти ничего не знаю , пол семестра в больнице пролежала. Вопросы почти все одинаковые , ответьте хотя бы на несколько , буду очень признательна 1. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наибольшего элемента массива. Выведите на экран значения элементов массива, индекс наибольшего элемента массива и его значение. 2. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наименьшего элемента массива. Выведите на экран значения элементов массива, индекс наименьшего элемента массива и его значение. 3. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Отсортируйте массив по возрастанию. Выведите на экран значения элементов массива. 4. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Отсортируйте массив по убыванию. Выведите на экран значения элементов массива. 5. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Задайте возможность поиска элемента массива следующим образом: пользователь вводит с клавиатуры значение элемента, на экран выводятся индексы всех элементов массива с таким значением. 6. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Замените все отрицательные элементы массива нулями. Выведите вновь получившийся массив на экран. 7. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все отрицательные элементы массива. 8. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все положительные элементы массива. 9. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наименьшего элемента массива по модулю. Выведите на экран значения элементов массива, индекс наименьшего элемента массива по модулю и его значение. 10. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Найдите индекс наибольшего элемента массива по модулю. Выведите на экран значения элементов массива, индекс наибольшего элемента массива по модулю и его значение. 11. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все четные элементы массива. 12. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все нечетные элементы массива. 13. Написать программу, которая вычисляет частное от деления двух чисел. Программа должна проверять правильность введенных пользователем данных и, если они неверны (делитель равен нулю), выдавать сообщение об ошибке. 14. Написать программу вычисления стоимости покупки с учетом скидки. Скидка в 5% предоставляется если сумма покупки равна 1000 рублей, Скидка в 10% предоставляется если сумма покупки равна 2000 рублей. 15. Написать программу, которая сравнивает два числа введенных с клавиатуры. Программа должна вывести на экран сообщения в соответствии с сравнением «Числа равны», «Первое число больше второго», «Второе число больше первого». 16. По заданному номеру месяца вывести на экран значение времени года. 17. Вывести на экран название дня недели, соответствующее заданному числу, при условии что в месяце 31 день и первое число понедельник. 18. Имеется информация о пяти междугородних переговорах, содержащая название города, цену одной минуты и время разговора в минутах. Определить сумму оплаты за каждый разговор и суммарную стоимость всех переговоров. При решении задачи использовать записи. 19. Имеется информация о пяти студентах группы: ФИО студента, оценки по математике, информатике, физике. Определить средний бал каждого студента и по группе, зная их оценки по математике, информатике, физике. При решении задачи использовать записи. 20. Продемонстрировать работу со строковыми операциями pos, copy, length. 21. Продемонстрировать работу со строковыми операциями ord, chr, pred, succ, upcase. 22. Продемонстрировать работу со строковыми операциями delete, insert, str, val.

28.06.2015, 16:38	#5
newerow1989 Я самый любопытный Участник клуба Регистрация: 24.07.2012 Сообщений: 1,949	Пожалуйста! С запрограммированным приветом, Неверов Евгений! Сайт: http://newerow1989.ru [Паскаль] [Delphi]

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Паскаль.Массивы.помогите написать прогу.Срочно нужна помощь!	Timka_inform	Помощь студентам	5	01.10.2013 00:25
СРОЧно нужна помощь(одномерный массив)СРОЧНО, МОГУ заплатить.	warsong	Фриланс	12	11.01.2010 20:30
Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь)	5Paladin5	Помощь студентам	3	02.07.2009 09:12
OnFormClose нужна помощь, плз.	RastMadestov	Общие вопросы Delphi	5	20.11.2006 19:30

28.06.2015, 16:36	#4
AnyaSama Регистрация: 28.06.2015 Сообщений: 3	Спасибо тебе огромное!!!! Уже и отчаялась если бы не ты! Не знаю чтобы делала , спасибо еще раз тебе :*