01.11.2011, 22:39 | #1 (permalink) |
Новичок
Регистрация: 01.11.2011
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль. Помогите с решением задач
Паскальные задачки, тво* м*ть))) Ребят очень срочно нужна ваша помощь, прям кровь из носа Косяк на зиму останется этот один в универе((( по информатике Буду очень признателен и благодарен!!!!!! Задание №1 Дано вещественное число - цена 1 кг. конфет. Вывести стоимость 1.2, 1.4, ..., 2 кг. конфет Задание №2 (Одномерный массив) Дан массив А размера N (N - не четное число). Вывести его элементы с нечетными номерами в порядке убывания номеров : A[N], A[N-2], A[N-4], ..., A[1]. Условный оператор не использовать. Задание №3 (Двумерный массив) Дан двумерный массив размера M x N. Найти максимальный среди минимальных элементов ее строк. Задание №4 (Строки) Даны строки S и S0. Найти количество вхождений строки S0 в строку S. Задание №5 (Процедуры и функции) Описать процедуру Swap(X,Y), меняющую содержимое переменных X и Y (X и Y - вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и С и вывести новые значения A, B, C, D. |
01.11.2011, 22:39 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Вот топики которые так или иначе имеют сходства с вашим Задачка по Паскалю для истинных профессионалов в этом деле. Помогите с решением! Помогите, пожалуйста, с решением задачи Помогите решить несколько задач Задание в паскале. Помогите с решением Помогите с решением |
02.11.2011, 01:14 | #2 (permalink) |
Member
Регистрация: 15.02.2009
Сообщений: 695
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 523
|
Задача 1
Код:
var x,s:real; i:integer; begin read(x); s:=x*0.2; for i:=1 to 5 do begin x:=x+s; writeln('Price of the ',1.0+i*0.2:5:2,' kilograms = ',x:5:2,' '); end; readln; end. Код:
const n=5; var a:array [1..n] of integer; i:integer; begin randomize; for i:=1 to n do a[i]:=random(10); writeln('Array'); for i:=1 to n do write(a[i],' '); writeln; writeln('Odd elements'); i:=n; repeat write(a[i],' '); i:=i-2; until (i<1); writeln; readln; end. Код:
const n=3; m=3; var a:array [1..n,1..m] of integer; max,i,j:integer; min:array [1..m] of integer; begin randomize; for i:=1 to n do for j:=1 to m do a[i,j]:=random(20); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; for i:=1 to n do begin min[i]:=a[i,1]; for j:=1 to m do if (a[i,j]<min[i]) then min[i]:=a[i,j]; end; writeln; max:=min[1]; for i:=1 to n do if (min[i]>max) then max:=min[i]; writeln(max); readln; end. Код:
const n=3; m=3; var a:array [1..n,1..m] of integer; max,i,j:integer; min:array [1..m] of integer; begin randomize; for i:=1 to n do for j:=1 to m do a[i,j]:=random(20); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; for i:=1 to n do begin min[i]:=a[i,1]; for j:=1 to m do if (a[i,j]<min[i]) then min[i]:=a[i,j]; end; writeln; max:=min[1]; for i:=1 to n do if (min[i]>max) then max:=min[i]; writeln(max); readln; end. Код:
var a,b,c,d:integer; procedure swap(var x,y:integer); var t:integer; begin t:=x; x:=y; y:=t; end; begin readln(a,b,c,d); swap(a,b); swap(c,d); swap(b,c); write(a,' ',b,' ',c,' ',d) readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|