Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
mobDiller
0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 4
1

срочно надо сдать контрольную Pascal !!

17.04.2011, 15:59. Просмотров 859. Ответов 7
Метки нет (Все метки)

Помогите пожалуйста осталась неделя до сдачи контрольной !
2е задачи сам смог решить )


2 Программы разветвляющей структуры.
2. 1.Составить блок – схему и написать программу, вычисляющую функцию Y при заданном значении аргумента:

2.2.Значения переменных x,y,z поменять местами так, чтобы они оказались упорядоченными по возрастанию.
2.3. Даны названия шести видов бытовой техники. По введённой первой букве названия выдать сообщение для чего применяется данная техника.
3. Программы циклической структуры.
Составить блок-схему и программу вычисления значений функций f(x) на отрезке [a,b] в точках x:=x+h , где h- шаг цикла, с последующим выводом таблицы значений:
f(x)=3x2+4x-5
xЄ[5;10], h=0,5

5. Программы на массивы.
Дан массив размером N. Вычислить сумму элементов стоящих на нечетных местах. Отсортировать по убыванию. Найти минимальный элемент массива.
6. Программы на строки.
Составьте программу вычисления суммы мест, на которых в слове х стоят буквы "в” и "п". Вывести строку в обратном порядке.
7. Программы на записи.
В магазин поступили товары. В накладной было указано: наименование товара, цена штуки товара и количество штук. Требуется вывести списки самых дорогих и самых дешёвых товаров и их количество, список товаров, количество которых было наибольшее.
8. Программы на файлы.
Сведения о студенте состоят из его имени, фамилии, названия группы (номер и буква), года обучения.
Дан файл F, содержащий сведения о студентах коллежа:
а) выяснить, имеются ли в колледже однофамильцы;
б) выяснить, в каких группах насчитывается более n студентов;
в) выяснить, какая группа самая многочисленная.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.04.2011, 15:59
Ответы с готовыми решениями:

исправите ошибку, пожалуйста до четверга надо сдать
{$A+,N+,B+,D+,E+,F+,G+,I+,L+,O+,P+,Q+,R+,S+,T+,V+,X+,Y+} {$M 16384,0,655360}...

Программа на сортировку. Кто-нибудь сделайте в ближайшее время, надо сдать
Написать программу сортировки линейного массива целых чисел методом обмена....

Паскаль!циклы и одномерный массив. На экзамен нужно срочно.!!не могу сдать экзамен
СРОЧНО!ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ В ПАСКАЛЕ НА ЦИКЛЫ И ОДНОМЕРНЫЙ...

помогите, срочно надо до понедельника
Исходный массив должен быть выведен на экран. Все преобразования производить с...

файлы.. надо срочно на экзамен
Задание 1. (типизированные файлы) 1. В файле f записаны целые числа. Написать...

7
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
17.04.2011, 16:07 2
Предлогаю воспользоваться поиском.Так как это не однократно уже решалось.
0
go
Эксперт С++
3637 / 1369 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
17.04.2011, 16:08 3
6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var s:string;
i,sum : byte;
begin
 write ('Vvedite stroku : ');
 readln (s);
 
sum:=0;
 
for i:=1 To length (s) do
 if (s[i]='в') or (s[i]='п') Inc (sum,i);
 
writeln ('sum= ',sum);
 
writeln ('stroka: ',s);
write ('V obratnom poryadke :');
For i:=length(s) Downto 1 do
write (s[i]);
end.
1
mobDiller
0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 4
17.04.2011, 16:11  [ТС] 4
пишет что ошибка
0
go
Эксперт С++
3637 / 1369 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
17.04.2011, 16:29 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var s:string;
i,sum : byte;
begin
 write ('Vvedite stroku : ');
 readln (s);
 
sum:=0;
 
for i:=1 To length (s) do
 if (s[i]='в') or (s[i]='п') then Inc (sum,i);
 
writeln ('sum= ',sum);
 
writeln ('stroka: ',s);
write ('V obratnom poryadke :');
For i:=length(s) Downto 1 do
write (s[i]);
end.
1
mobDiller
0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 4
17.04.2011, 17:05  [ТС] 6
во, спс !!!!

Добавлено через 33 минуты
можт еще какое-нибудь задание кто решит плиииз
0
go
Эксперт С++
3637 / 1369 / 243
Регистрация: 16.04.2009
Сообщений: 4,527
17.04.2011, 17:40 7
5
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function min (ms:array [1..N] of byte):byte;
var i,m:byte;
begin m:=ms[1];
for i:=2 To N Do
if m>ms[i] then m:=ms[i];
min:=m;
end; 
 
Function sum (ms:array [1..N] of byte):byte;
var i,s:byte;
begin s:=0;i:=1;
while i<=N Do
begin Inc (s,ms[i]);
Inc (i,2);
end;
sum:=s; 
end;
Процедуру сортировки, думаю, напишете сами.
1
mobDiller
0 / 0 / 0
Регистрация: 17.04.2011
Сообщений: 4
17.04.2011, 17:51  [ТС] 8
спасибо

Добавлено через 8 минут
а можно до конца пожалуста)
0
17.04.2011, 17:51
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.04.2011, 17:51

Уравнение на Паскали...срочно надо решить
Помогите пожалуйста решить задачки которые находятся на картинках..

Олимпиадная задача, котроую срочно надо решить
Эта задача вышла у нас на олимпиаде, и никто её не смог решить. Хочу узнать как...

Срочно надо решение,кто может это сделать!?
Составить программу и вывести на экран график функции y = sinx + cos2x на...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru