Страница 1 из 1

перевести с С на паскаль

Добавлено: 27 окт 2009, 22:43
betman
нужно с этого

Код: Выделить всё

using System;
using System.Collections.Generic;
using System.Text;

namespace ConsoleApplication1
{

//Заданные поля записи, определить их типы данных, 
//написать программу для ввода произвольного количества записей через массив,
//инициализировать как типизированные константу.
//Вывести записи согласно указанному критерию на экран в формате, удобном для просмотра. 
//Судно: длина, ширина, осадка, количество пассажиров. 
//Критерий: отношение ширина / осадка> = 2,5.

class Program
{public class ship
{
public int dl;
public int sh;
public int os;
public int kp;
}
static void Main()
{
ship[] ships = new ship[3];
for (int i = 0; i < 3; i++)
{
string s;
ships[i] = new ship();
Console.WriteLine("Введите длину {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].dl = int.Parse(s);

Console.WriteLine("Введите ширину {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].sh = int.Parse(s);

Console.WriteLine("Введите осадку {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].os = int.Parse(s);

Console.WriteLine("Введите количество пассажиров {0} корабля", i + 1);
s = Console.ReadLine();
ships[i].kp = int.Parse(s);
}
for (int i = 0; i < 3; i++)
{
Console.WriteLine("---------------------");
Console.WriteLine("корабль #{0}", i + 1);
Console.WriteLine("длина-{0}", ships[i].dl);
Console.WriteLine("ширина-{0}", ships[i].sh);
Console.WriteLine("осадка-{0}", ships[i].os);
Console.WriteLine("количество пассажиров-{0}", ships[i].kp);
}
for (int i = 0; i < 3; i++)
{
if (ships[i].sh / ships[i].os >= 2.5)
{

Console.WriteLine("-----отбор по критерию----");
Console.WriteLine("корабль #{0}", i + 1);
Console.WriteLine("длина-{0}", ships[i].dl);
Console.WriteLine("ширина-{0}", ships[i].sh);
Console.WriteLine("осадка-{0}", ships[i].os);
Console.WriteLine("количество пассажиров-{0}", ships[i].kp);
}
}
Console.ReadLine();
} 
}
}
сделать на паскаль

Re: перевести с С на паскаль

Добавлено: 28 окт 2009, 06:08
BHy4ok
Отредактируйте свой пост под код.

[syntax='Pascal']
uses
Crt;
var
ship: array[0..50,0..50] of integer;
i,dl,sh,os,kp,s:integer;
begin
ClrScr;
dl:=1;
sh:=2;
os:=3;
kp:=4;
write('Введите количество кораблей: ');
readln(n);
for I := 1 to n do
begin
write('Введите длину корабля ', i,': ');
readln(s);
ship[i,dl]:=s;
write('Введите ширину корабля ', i,': ');
readln(s);
ship[i,sh]:=s;
write('Введите осадку корабля ', i,': ');
readln(s);
ship[i,os]:=s;
write('Введите количество пассажиров корабля ', i,': ');
readln(s);
ship[i,kp]:=s;
end;
for I := 1 to n do
begin
writeln('---------------------');
writeln('корабль #', i);
writeln('длина - ', ship[i,dl]);
writeln('ширина - ', ship[i,sh]);
writeln('осадка - ', ship[i,os]);
writeln('количество пассажиров - ', ship[i,kp]);
end;
writeln;
for I := 1 to n do
if (ship[i,sh] / ship[i,os] >= 2.5) then
begin
writeln('-----отбор по критерию----');
writeln('корабль #', i);
writeln('длина - ', ship[i,dl]);
writeln('ширина - ', ship[i,sh]);
writeln('осадка - ', ship[i,os]);
writeln('количество пассажиров - ', ship[i,kp]);
end;
readln;
end.
[/syntax]